//XALGCL JGB 

//JOeLIB DO 

// 

//PL36C EXEC 

//SYSPRINT 00 



//SYSGC 

// 

//SYS IN 

IEF236I 

IEF237I 

IEF237I 

IEF237I 



00 

DO 
ALLOC. 
JCBLIB 
SYSGO 
SYSIN 



(T193***,914,I, 2,200 ),* EO SATTERTHWAITE ',MSGL£VEL=1 
0SNAME=T12 3.PLLIB,UMT=2314,VnLUME=SER=SYSll, 
OISP={QLO,PASS) 
PGM=PL360 

SYS0UT=A,0C8=BLKSIZE»133 

0SNAM£=SLOADSET,UNIT=23L4»SPACE=(CYL, «3, L) } , 
01 SP= I MOO, PASS) ,0CB = (LRECL=8Q,aLKSIZE=3200,RECFW=F8) 
* 
FOR XALGOL PL360 

ON 434 

ON 330 

GN OOC 



JOB 
2. 

3. 
4. 
5. 
6. 
7. 
8. 



18 



• 



• 
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PL360 COMPILATION 



01 


0000 


CO 


0000 


CI 


00 CO 


CO 


0000 


C6 


COCO 


CO 


0000 


C€ 


coco 


00 


0000 


C6 


0004 


C7 


0000 


06 


0004 


07 


0400 


06 


C0C4 


C7 


0400 


C6 


CC04 


07 


0400 


06 


0004 


07 


0400 


C6 


0004 


07 


0400 


06 


0004 


07 


0404 


06 


0004 


07 


0410 


C6 


0004 


C7 


0414 


06 


0004 


07 


0417 


C6 


00C4 


C7 


049C 


C6 


0004 


C7 


049C 


06 


0GC4 


07 


049C 


C6 


0CC4 


07 


049C 


06 


0G04 


C7 


049C 


06 


0004 


07 


0516 


Cfe 


CCC4 


07 


0520 


06 


0004 


07 


0520 


06 


0004 


7 


0550 


C6 


0004 


07 


0550 


06 


0004 


07 


0550 


06 


0004 


07 


0550 


06 


0004 


07 


0550 


06 


0004 


07 


0550 


C6 


CCC4 


07 


0550 


06 


CCC8 


07 


0550 


06 


0010 


7 


0550 


06 


C012 


07 


05 50 


06 


0012 


07 


0550 


06 


0012 


07 


0550 


06 


0012 


07 


550 


06 


0016 


07 


0554 


C6 


GC1A 


07 


0554 


06 


00 3A 


07 


0554 


06 


0C4A 


7 


0554 


06 


0052 


07 


0554 


06 


OC52 


07 


0554 


06 


0C5E 


07 


0554 


06 


0C62 


07 


0554 


06 


006A 


07 


0554 


06 


C06E 


07 


0554 


C6 


CC7C 


07 


0554 


06 


00 70 


07 


0554 


06 


0070 


C7 


0554 


06 


C07C 


07 


0554 


06 


0074 


07 


0558 


06 


C080 


07 


0558 


06 


CC8A 


07 


0558 


06 


00 92 


07 


0558 


C6 


0092 


07 


0558 


06 


00A6 


07 


0553 


06 


00 A E 


07 


0558 


06 


COBE 


07 


0558 


06 


008E 


07 


0558 



0001 
0002 

000 3 
0004 
0005 
0006 
0007 
0CC8 
0009 
0010 
0C11 
0012 
0013 
0014 

001 5 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0G35 
0036 
0037 
003 8 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
CG46 
GC47 
0048 
0049 
0050 
0051 
005 2 
0053 
0054 
0055 
0056 
005 7 
0058 



GLOBAL 
BEGIN 



OBJECT CARD PROCESSING ROUTINE 
PROCEDURE L0ADCARD(R14) ; 
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INTEGER 
INTEGER 



ESDTA8LE; 

NAME1 SYN 
ADDR 
LENGTH 
FLAGS 



SYN 
SYN 
SYN 



COMMENT GLOBAL SYMBOL DICTIONARY; 
ESOTABLE, NAME2 SYN ESDTABLEI4); 
ES0TABLE(8) ; 

ES0TABLEC12I; COMMENT BYTES 
ESDTABLEU2); COMMENT BYTE 



1-3 J 

o; 



COMMON BASE Rll; 
ARRAY 256 INTEGER 

ARRAY 64 LOGICAL 

ARRAY 64 

ARRAY 64 

ARRAY 64 LOGICAL 
INTEGER ESDINDEX; 

INTEGER LOCORE, HI CORE, LOAOBASE; 

INTEGER ENTRYPOINT; COMMENT EXECUTION ENTRY ADDRESS J 
BYTE ENTRYSET, I NIT, LOADERR; 
ARRAY 133 BYTE ERRBUF; 

INTEGER REGISTER 
I SYN R3, J SYN R4, K SYN R5, T SYN R6, M SYN R7, LINK SYN R8| 

ARRAY 65 SHORT INTEGER HODTABLE? 
SHORT INTEGER ESDID; 

FUNCTION OECR{6,#0600), POINT! 6, #0 500) J 
ARRAY 12 INTEGER REGSAVE; 

INTEGER REGISTER XR SYN R9; 

BYTE MEMOVFL SYN 1, ESDOVFL SYN 2, DUPSEG SYN 3, 

UNDEFSEG SYN 4, INVFMT SYN 4, ESDTYPE SYN 4, 

ESDSEQ SYN 4; 

PROCEDURE ERRORILINK); 
BEGIN COMMENT XR - ERROR TYPE; 

STCUR, LOADERR); GOTO EXIT; 
END; 

PROCEDURE LOOKUP! LINK); 
BEGIN COMMENT R0,Rl - NAME OF SEGMENT TO LOCATE OR ENTER, SETS I; 
LOGICAL WSAVE; WSAVE 5= W; 
FOR I s= STEP 16 UNTIL ESDINDEX DO 
IF RO = NAMEim AND Rl = NAME2 ( I) THEN GOTO X; 
1 ■:= ESDINDEX + 16; IF I >= 1024 THEN 
BEGIN XR s= 3ESD0VFL; ERROR; 
END; 

ESDINDEX := I; M :» 3ESDTABLEU); STMIRO, Rl, MEMIW) ) ; 
RO : = #1; COMMENT END OF CHAIN MARKER; 
Rl := 0; STM!R0,Ri,!«EM!W+8)); 

X: u s= wsave; 
END; i 

PROCEDURE ALLQCATESEG CLINK) ; 
BEGIN COMMENT I - ESDTABLE POINTER, W - SEG LENGTH; 
LOGICAL WSAVE; WSAVE := W; 
W := FLAGS! I) AND #80000000; IF ■*■ THEN 
BEGIN H s» aNAHEKI); MVC! 7,ERRBUF (44) ,MEM! W)l ; 

XR ■:= aOUPSEG; ERROR; 
END; 

RO :« LOAOBASE - WSAVE AND #FFFFF8; IF RO < LOCORE THEN 
BEGIN RO : = _l; REGSAVECO) :* RO; COMMENT NO SPACE; 

W := ESDID - l; ESDID := W; GOTO EXIT; 
END; 
LOAOBASE 3= RO; W :» FLAGS! I) OR #80000000; FLAGS! I ) := W3 



10. 
11. 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
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PL36G COMPILATION 



OBJECT CARD PROCESSING ROUTINE 
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06 


OOCE 


07 


0553 


C6 


0CD2 


C7 


0558 


C6 


COCA 


C7 


0558 


06 


OOOE 


07 


0558 


C6 


GCCE 


07 


0558 


06 


00 FC 


C7 


0553 


C6 


00E6 


07 


0558 


C6 


OCFA 


07 


0558 


C6 


C10A 


07 


0558 


C6 


0112 


07 


0558 


C6 


0114 


C7 


0558 


06 


0114 


07 


0558 


06 


0114 


07 


0558 


06 


0114 


07 


0558 


06 


0114 


07 


0558 


06 


011A 


07 


0558 


06 


0126 


07 


0558 


06 


012E 


07 


0558 


06 


012E 


07 


0558 


C6 


0136 


07 


0558 


06 


013 A 


07 


0558 


G6 


0146 


07 


0558 


06 


Q14A 


07 


0558 


G6 


015E 


07 


0558 


C6 


C15E 


C7 


0558 


06 


0168 


7 


0558 


06 


016C 


07 


0558 


06 


0174 


C7 


0558 


06 


0174 


7 


0558 


06 


0184 


C7 


0558 


06 


018C 


7 


0558 


06 


C18C 


07 


05 58 


06 


G19C 


07 


0558 


C6 


C1<!C 


07 


0558 


06 


01A4 


07 


0558 


06 


C1AC 


07 


0558 


06 


0184 


07 


0558 


06 


01B4 


07 


0558 


06 


C1BC 


07 


0558 


06 


01C8 


07 


0558 


06 


01CC 


07 


0558 


06 


C1D2 


G7 


0558 


06 


CICA 


07 


0558 


06 


01CA 


07 


0558 


06 


01E6 


07 


0558 


06 


01F2 


07 


0558 


06 


OIF 2 


07 


0558 


06 


01FE 


07 


0558 


06 


C1FE 


7 


0558 


06 


020A 


07 


0558 


06 


020A 


07 


0558 


06 


0216 


07 


0558 


06 


G226 


07 


0558 


06 


G234 


07 


0558 


06 


C23C 


07 


0558 


06 


023C 


C7 


0558 


06 


0248 


07 


0558 


06 


0250 


07 


0553 



0059 
0060 
0061 
0062 
C063 
0064 
0C65 
0066 
CC67 
0068 
0069 
CC70 
007! 
CC72 
CC73 
0074 
0C75 
CC76 
0077 
0G78 
0079 
0080 
0C81 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0C93 
0094 
0095 
0096 
0C97 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
01C9 
0110 
0111 
0112 
0113 
0114 
0115 
0116 



H := ADDRt Mj 
WHILE W -■= *H DO 
BEGIN Rl := MEM(W); 

COMMENT { ADDRESS /40 96) BEFORE RELOCATION IN BYTE 0; 

RO := Rl SHRL 24 SHLL 12 + LOAOBASE; MEMfH) :» RO; 

W := Rl AND #FFFFFF; 
END; 

RO s = LOAOBASE; Rl := LENGTHU) AND iFFOOGOOO OR WSAVE; 
AODR(I) x» RO? LENGTHt I } := Rl ; 
END; 

ARRAY 20 LOGICAL CARD SYN MEM(RIO); 
ARRAY 40 SHORT INTEGER SCARO SYN CARD; 

STM(R0,R10,REGSAVE); RIO :* RO; 
IF Rl < LOCORE THEN LOCORE := Rl; 
CLI(#00,LOADERR) ; IF * THEN 
BEGIN COMMENT PROCESS BUFFER CARD; 
IF IN IT THEN 
BEGIN RESETUNIT); 

RO ;= '05 ESDIO := RO; 
FOR K :* STEP 2 UNTIL 



1 5= #l; 
128 DO 



:= Rl 



COMMENT HARK EMPTY; 



MOQTABLEIK) 
END; 

CLCI78,CARDU),CARD) ; IF -** THEN 
BEGIN RO := CARDIO) ; 

IF RO = "8ESD*» THEN 

BEGIN COMMENT 'EXTERNAL .SYMBOL DICTIONARY; 
W := FSDID + is IF W -•* SCARDU4) THEM 



BEGIN 

END; 

FOR J 

BEGIN 
W ' 
IF 



XR :» 3ES0SEQ; ERROR; 

s* 16 STEP 16 UNTIL SCARDUO) 
T := 0; lC(T,CARD(J+8) > ; 

* ESOID + i; 
W > 64 THEN 

XR := 3ESDSEQ; ERROR; 



DO 



BEGIN 

END; 

ESDID s- W; K 

RO := CARD! J); 

MODTABLECK) := 

IF T » THEN 



%- W 
Rl 
I * 

COMMENT 



+ «; 

* CARDfJ+4) 



LOOKUP; 



BEGIN W 
END ELSE 



:= CARDU+12) 



SO; 

ALLOCATESEG; 



IF T = 
BEGIN 

END; 

END; 
END ELSE 
IF RO 
BEGIN 

K 



2 THEN NULL COMMENT ER; 
XR := 3ESDTYPE; ERROR; 



ELSE 



IF 
IF 



= "BTXT" THEN 

COMMENT EBCDIC TEXT; 
= SCARDU4) SHLA 1; I :» MODTABLECK); 
I -= #1 THEN W := FLAGS(l) AND #80000000; 
I = #1 OR W = THEN 

XR s= 3UN0EFSEG; ERROR; 



BEGIN 

eno; 

Rl := ADDR(I) + CARDC4); W :» SCAROtlO); 
BEGIN OECR(W); POINT* R2>; GOTO SKIP; 

MVC(0»81,CARD{ 16M 5 COMMENT EXECUTED; 



68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
31. 
82. 
83. 
84. 
35. 
86 . 
87. 
88. 
89. 
90. 

<n. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124. 
125. 
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PL360 COMPILATION 



OBJECT CARD PROCESSING ROUTINE 



C6 


0256 


07 


0558 


06 


2 5A 


07 


055 8 


• 06 


G25A 


07 


0558 


06 


025A 


07 


0558 


06 


0266 


07 


0558 


• 06 


0266 


07 


0558 


C6 


C272 


07 


0558 


06 


0276 


07 


0558 


# 06 


0286 


07 


0558 


06 


C2S6 


07 


0558 


06 


02A4 


07 


0558 


# 06 


G2AC 


C7 


0558 


06 


02AC 


07 


0558 


06 


02B8 


07 


0558 


9 06 


02C4 


07 


0558 


06 


02CC 


07 


0558 


06 


02D4 


07 


0558 


• 06 


0204 


C7 


0558 


06 


02DC 


07 


0558 


06 


02E4 


07 


0558 


• 06 


C2FC 


07 


0558 


06 


02F4 


07 


0558 


06 


03CC 


07 


0558 


# 06 


0304 


07 


0558 


06 


0304 


07 


0558 


06 


01C8 


C7 


0558 


9 C6 


0314 


07 


055 8 


06 


0314 


07 


0558 


06 


0320 


C7 


0558 


# 06 


0334 


C7 


0558 


06 


0340 


07 


0553 


06 


C35C 


C7 


0558 


£ 06 


03 5E 


07 


0558 


06 


0366 


07 


0558 


6 


0366 


07 


0558 


# 06 


G36E 


07 


055 8 


06 


0316 


C7 


0558 


6 


0376 


07 


0558 


• 06 


Q37A 


07 


0558 


06 


C37A 


07 


0558 


06 


3 £6 


C7 


0558 


# 06 


0386 


07 


0558 


06 


C366 


07 


0558 


06 


0386 


07 


0553 


# 06 


0386 


07 


0558 


06 


G38A 


07 


0558 



0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 
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SKIP: 



COMMENT EXECUTE MVC; 



EX(W,B2(4>> 

END I 
END ELSE 

IF RO = "BRLD" THEN 

BEGIN COMMENT RELOCATION DICTIONARY; 
W := SCARDilO) + 8; SCAROCIOI -S« MS 
FOR J := 16 STEP 8 UNTIL SCAR0C10J 00 
BEGIN K := SCARDU+2) SHLA 1; I s* MODTABLE(K); 
IF I -,« #1 THEN » := FLAGS(I) ANO #80000000; 
IF I « #1 OR W = THEN 
BEGIN XR :* 3UNDEFSEG; ERROR; 
END; 

W := CARDCJ44) AND #FFFFFF + ADDR<I)3 
K s= SCARD(J) SHLA 1; I s* MODTABLE(K); 
IF I * #1 THEN 

BEGIN XR := 8UNDEFSEG; ERROR; 
ENO; 
RO :» 
RO : = 
IF -= 
BEGIN 
RO 

AODRII) ■:= 
END; 
MEMCW) := RO; 



0; IC(R0,CAR0IJ+4)>; 
FLAGS (I) AND #80000000; 
THEN RO := ADORI II + MEM(W) 

COMMENT CHAIN FOR FIXUP t 
:= MEMCW* SHLL 12 OR ADDRU); 



ELSE 



COMMENT ADDRESS OR LINK; 



END; 
END ELSE 

IF RO = »3END" THEN 
BEGIN T := CARD( 4) ; IF T ■-»= » 

BEGIN K := SCARDU.4) SHLA I; I 
IF I ■*= #1 THEN M := FLAGSCI) 
IF I * #1 OR W * THEN 
BEGIN XR := 3UNDEFSEG; ERROR; 
END; 

T s* T ANO #FFFFFF + AOOR(I); 
ENTRYPOINT := T; SET* ENTRVSET) ; 
END; 

SET(INIT); 
END ELSE 

BEGIN XR := 3INVFMT; ERROR; 
END; 
END; 
END; 
EXITS 

LM{RC,R10,REGSAVE) J 
END. 



AND -ENTRYSET THEN 
= MDDTABLECK); 
AND #80000000; 



SEGMENT C7 NAME = 



SEGMENT 06 NAME = LOAOCARD 



LENGTH = 0558 BASE REG = 11 



LENGTH ~ 03D8 BASE REG * 15 



126. 
127. 
128. 
129, 
130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 
13 8. 
139. 
140. 
141. 
142. 
143. 
144. 
145. 
146. 
147. 
148. 
149. 
150. 
151. 
152. 
153. 
154. 
155. 
156. 
157. 
158. 
159. 
160. 
161. 
162. 
163. 
164, 
165. 
166. 
167. 
168. 
169. 
170. 
171. 



• 
# 



# 



PL360 COMPILATION 



CI COOC 
01 OOOC 
C6 CGCC 

Cfc coco 
ce GO 04 
06 0004 
C6 CCC4 
06 0C04 
06 0004 
C6 0004 
06 0004 
C6 0004 
06 0004 
06 0004 
C6 CC04 
06 0004 
06 0004 
C6 0004 
06 0004 
06 0004 
06 0004 
06 0004 
06 0004 
06 0004 
06 0004 
06 0004 
C6 0004 
06 0004 
06 0GC4 
06 OCOA 
06 0012 
06 0012 
06 0016 
06 0022 
06 002E 
06 C02E 
06 C02E 
06 002E 
06 003E 
06 0046 
06 CG4A 
06 0C4A 
C6 0C5E 
06 0066 
C6 C06C 
06 00 6C 
6 006C 
C6 CC74 
C6 CC7C 
C6 GC8A 
06 CCS8 
06 GGAO 
06 OOAO 
C6 CCAA 
06 00C2 
06 CCC? 
06 00 DA 
06 OOCE 



00 0000 
CO 0000 
00 0000 
00 0000 
C7 0000 
07 0400 
07 0400 
07 0400 
07 0400 
07 0404 
07 0410 
07 0414 
07 0417 
G7 049C 
07 049C 
07 049C 
07 049C 

07 Q49C 

08 0000 
08 0004 
C8 0010 
08 0000 
C8 0000 
C8 OODO 
C7 049C 
07 049C 
07 04C4 
C7 04C4 
C7 04C4 
7 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
C7 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
G7 04C4 
07 04C4 
07 04C4 
07 04C4 
C7 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 94C4 
07 04C4 
07 04C4 
C7 04C4 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
00C8 
0009 
0010 
0011 
0012 
0013 
0C14 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 

003 2 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 

004 1 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 



GLOBAL 
BEGIN 



DIRECTORY MERGE ROUTINE 
PROCEDURE EN0LOADIR14M 
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ESOTABLE; 
NAME1 SYN 
ADDR SYN 
FLAGS SYN 



COMMENT GLOBAL 
ES0TA8LE, NAME2 
ESDTABLEI8); 
ESDTA8LEU2); 



SYMBOL DICTIONARY.; 
SYN ES0TABLEC4); 



LOADBASE; 



COMMON BASE Rll; 
ARRAY 256 INTEGER 

ARRAY 64 INTEGER 

ARRAY 64 INTEGER 

ARRAY 64 LOGICAL 
INTEGER ESD INDEX? 
INTEGER LQCORE, HICORE, 
INTEGER ENTRYPOINT; 
BYTE ENTRYSET, INIT, LOADERR; 
ARRAY 133 BYTE ERRBUF; 

INTEGER REGISTER 

I SYN R3, J SYN R4, K SYN R5 , N SYN R6, T SYN R7, W SYN R8; 

DUMMY BASE R9; COMMENT LIBRARY DIRECTORY FORMAT; 
INTEGER LIBTABLEN; COMMENT LENGTH OF DIRECTORY; 
INTEGER LIBENTRY, LIBERROR, LI80ATA; 
ARRAY 48 LOGICAL LIBTABLE; 
ARRAY 16 INTEGER LIBMAMEl SYN LIBTABLE, LIBNAME2 SYN LI8TABLEI4I 
ARRAY 16 INTEGER LI8ADDR SYN LI8TA8LEI8); 
CLOSE BASE; 

ARRAY 10 INTEGER REGSAVE; 
BYTE UNDEFSYM SYN 5 J 

STM(R0,R9, REGS AVE); R9 := RO ; 
CLIi #00, LOADERR) ; IF « THEN 

BEGIN COMMENT MERGE DIRECTORIES, FIX UP ADDRESSES; 
FOR I :» STEP 16 UNTIL ESOINDEX 00 
BEGIN RO := NAHEKI); Rl :» NAME2U); 

W i= FLAGS (I) AND #83000000; IF -.* THEN 

BEGIN COMMENT TEST FOR SEGMENTS WITH SPECIAL PROCESSING; 
INTEGER ENTRYAODR SYN #80; COMMENT ALGOLRUN DISPL.J 
ARRAY 64 LOGICAL RECTAB SYN #84; 
IF Rl - "COOt" AND RO = M AWXS» THEN 
BEGIN Rl :* L1BDATA; RO :■ ADOR(I); 

ENTRYADDR(Rl) : = RO; 
END ELSE 

IF Rl = "CTBL* AND RO = "AHXR* THEN 
BEGIN Rl := LIBDATA; R2 := ADDR ( I) ; 

MVC(255,RECTA8(R1),82) ; 
END; 
END ELSE 
BEGIN N := #U 

J := 0; K s« LIBTABLEN; 
WHILE J <= K AND N = SI 00 



COMMENT BINARY SEARCH; 



i~ J + K SHRL 
= LIBNAMEKT) 



l; 

THEN 



T :* 



* 125; 



BEGIN W 

IF RO 

BEGIN 

IF 

If 

END ELSE 

IF > THEN J := W ♦ I ELSE K := W - 1; 
END; 
IF N * #1 THEN 



Rl = L18NAME2JT) THEN M : 
> THEN J s* y + 1 ELSE K 



T ELSE 
* W - I; 



173. 
174. 
175. 
176. 
177. 
178. 
179. 
180. 
181. 
182. 
183. 
184. 
185. 
186. 
137. 
188. 
189. 
190. 
191. 
192. 
193, 
194. 
195. 
196. 
197. 
198. 
199. 
200. 
201. 
202. 
203. 
204. 
205. 
206. 
207. 
208. 
209. 
210. 
211. 
212. 
213. 
214. 
215. 
216, 
217. 
218. 
219. 
220. 
221. 
222. 
223. 
224. 
225. 
226. 
227. 
228. 
229. 
230. 



i »i»"i' wummiinf m i m^> m rrmnt**+Hm * 



PL36C COMPILATION 



DIRECTORY MERGE ROUTINE 



69.356 a 18:02 



PAGE 



06 
06 
C6 
C6 
C6 
Ct 
06 
06 
06 
06 
06 
06 
C6 
06 
06 
C6 
06 
06 
C6 
06 
06 
C6 
06 
06 
06 
C6 
06 
06 
06 
C6 



00E6 
CCEE 
COFC 
COFC 
0104 
010C 

one 

0120 
0126 
012A 
C12A 
0136 
0136 
0136 
C13E 
0144 
C14C 
014C 
015A 
0164 
016E 
0178 
0182 
019 A 
C19A 
01A6 
01AE 
0182 
0182 
0182 



07 04C4 
07 04C4 
07 04C4 
07 04C4 
C7 04 C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
C7 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 
C7 04C4 
07 04C4 
07 04C4 
07 04C4 
C7 04C4 
07 04C4 
07 04C4 
07 04C4 
07 04C4 



0059 
0060 
0061 
006 2 
0063 
0064 
0065 
0C66 
0067 
0068 
0069 
C070 
0071 
0C72 
0073 
0074 
0075 
0076 
0C7 7 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 



BEGIN U := 3UNDEFSYM; STCt W.LOADERR) ; 

W 2= 3NAME1U); MVC{7,ERR8UF<44),MEMLW)}; GOTO EXIT; 
END; 
T := LIBADDRIN); W :» ADDRCII; 



W -= #1 DO 

Rl := MEM(U); 
:= Rl SHRL 24 SHLL 
:= Ri AND #FFFFFF; 



WHILE 
BEGIN 
RO 
W 
END; 
END; 
END; 

XZ A 1 I * 

END; 

CLI(#00,LOADERR); IF -.» THEN 
BEGIN MVC( 18,ERRBUF,"1*** LOADING 
W :» 0; IC<W t LOADERR); CASE W 

BEGIN 

MVC(19 t ERRBUF(20) j "INSUFFICIENT 



12 + T: 



MEM(W) := RO; 



ERROR,' 
OF 



STORAGE") 



MVCU8»ERRBUF<20) ,"T00 MANY PROCEDURES") ; 
MVC(22,ERRBUFI20) , "DUPLICATE GLOBAL NAME -« ) ; 
MVC(21,ERRBUF< 20) , "INVALID OBJECT RECORDS"); 
MVC(22»ERRBUF(20) , "UNDEFINED GLOBAL NAME -"); 
END; 
END ELSE 
BEGIN IF -.ENTRY SET THEN 

BEGIN RO :» LIBENTRY; ENTRYPOINT := RO; 

SET(ENTRYSET); 
END; 
END; 
END. 



231. 

232. 
233. 
234. 
235. 
236. 
237. 
238. 
239. 
240. 
241. 
242. 
243. 
244. 
245. 
246. 
247. 
248. 
249. 
250. 
251. 
252. 
253. 
254. 
255. 
256. 
257. 
258. 
259. 
260. 



SEGMENT 07 NAME = 



SEGMENT 06 NAME 



ENDLOAD 



LENGTH ~ H4C8 BASE REG = 11 
LENGTH = 0258 BASE REG = 15 



m< 'HWlMHWilMIHliilllWiHHWII 



^ m ^ , i » ■ ,» «» » w« m i m i »»» »«^<»<m^ t i«3 i ^ ) ^m IW i mm ffi^ i wwnM ii m < i 



i i iwumi i nn i i ii i i nn iii nii I n i l m i i . wwi ii i im ii n i M 



IEF285I 
IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

//ASH 

//ASM 

//SYSLI8 

// 

// DC 

//MCI IB 

//SYStTl 

//SYSLT2 

//SYSIT3 

//SYSPRIN 

//SYSLIN 

// 

//SYSPUNC 

//ASF. SYS 

IEF236I A 

IEF237I 

1EF237I 

IEF237I 

IEF237I 

1EF237I 

IEF237I 

IEF237I 

IEF237I 

IEF237I 

IEF237I 



T123.PLLI3 

VOL SER NOS= SYS11 . 

SYSOUT 

VOL SER NOS= 
LGADSET.XALGOL 
VOL SER NOS= SYSC2 . 
EXEC ASMGCL,PARM.ASM 
EXEC PGM=ASMGASM»PARK 
DO OS.MAME~SYSl.MACL 
DD DSNAME-SYS2.DCLI 
DDNAME-MACLIB 
DD DSNAME-SYS2. DUMMY 
DD DSNAME-SYSl.UTl, 
OD 0SNAME-SYS1.UT2, 
DC DSNAME=-SYS1.UT3, 
T DO SYSOUT=A 

CD DSNAME=£LOADSET, 
DISP=( MOD, PASS), 
H DD UNIT-SYSCP 
IN OD * 

LLOC. FOR XALGOL ASM 
CBLI3 ON 434 
YSLI8 ON 331 
430 
430 



PASSED 
SYSOUT 

PASSED 

-•LCAD,LIST,NODECK,NORLD,NaXRFF» 

-»LCAD,NCDECK,FULLXREF,ESD« 

IB,DISP=OLD 

fi,DISP=OLD 

MAC,DISP=OLD 

0ISF-OLD,€C8-<KEYLEN=O,3LKSIZE=3520> 
DISP=QLn t DC8-<KEYLEN-0,8LKSIZE=3520) 
DISP=OL0,0C8=!KEYLEN=O,8LK5IZE=3520) 

liNIT-2314,SPACE = (CYL,(3,l) ), 
CCB-(LRECL-80,BLKSIZE=3200,RECFH-F8) 



ASM 



262* 
00000000 
00 000 I 00 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
*0 0000900 
00001000 
00001100 

263. 



YSUT1 
YSUT2 
YSUT3 
YSLIN 

YSPUNCH 
YSIN 



ON 
ON 
ON 
ON 
ON 
ON 
ON 
CN 



1C1 

330 

530 
330 
OOD 
OOC 



iii»wi»i ii mum pimiiuiimni.il 
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W—WMM W— ^T 1 "* 



OS/360 ASSEMBLER 
LEVEL=G RELEASE=16JUL69 SYSTEM-MET T IME=18:02:48 



OAY=MQNOAY 



DATE=22 OEC 69 



• 



ASSEMBLER CPTIONS^LIST,LOAD,NOESD, NORLD,NODECK,NORENT,NOTEST,NOXREF ,EXTI NE=5, NOBATCH, UT8UFF=^ t INSTSET=1, 

LINECNT=55,NCEXECUTE,SPACE=MAX-2K. 



m 
m 
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ICC OBJECT CCDE 



AOOP1 ADDR2 STMT 

1 
2 



SOURCE STATEMENT 



ICTL 

PRINT 



1,71,18 
NOGEN 



ESTABLISH FORMAT 



4 ******************************************************** **********^ 

5 * * 

6 * STANFORD ALGOL V< SUBMONITOR * 

7 * OS/360 STUDENT SUBSYSTEM * 

8 * AUGUST 1969 * 
g * * 

\() ********************* *********** *************************************** 273. 
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22 DEC 69 

264. 
265. 

267, 
268. 
269. 

270. 
271. 

272. 



# 

• 



cocooc 






0000 CO 






000012 


18CF 




cccocc 






00G014 


18 2D 




CCCC16 


58DC 


C4D8 


00001A 


50 CO 


2O08 


C0C01E 


5O20 


0004 


0CCO22 


58B0 


C4DC 


CCCOOC 






000026 


9200 


CC93 


00C02A 


9200 


CC94 


0CC02E 


9200 


CC92 



12 AWXGDR01 CSECT 



CCCC32 92*0 841? 



CCC046 


1800 




0000*8 


5000 


C81C 


CC004C 


4000 


C8AC 


0000 50 


9200 


CC90 


000054 


9200 


CC91 



C00001 
000002 
000003 







14 








15 








20 








21 








22 








23 






004D8 


24 






GOO 08 


25 






00004 


26 






004DC 


27 
28 




00C93 




30 




00C94 




31 




00C92 




32 




00417 




33 
34 

37 
41 






00 8 1C 


42 






008AC 


43 




00C90 




44 




00C91 




45 








47 


* 






48 


SAl 






49 


S8 






50 


SA2 



USING 


AWXGDR01,15 


SAVE 


114,121,,* 


LR 


12,15 


USING 


AWXG0R01»12 


DROP 


15 


LR 


2,13 


L 


13,=AISAVE) 


ST 


13, 8( ,2) 


ST 


2,41, 13) 


L 


1 1,= A i COMMON) 


USING 


COMMON, 11 


MVI 


RDRSTATtO 


MVI 


REREAD, 


MVI 


ENDDS ,0 


MVI 


BLANK ,C» • 


OPEN 


,MF=CE,DMGLIST) 


BLDL 


0,LIBDIR 


SR 


0,0 


ST 


OtSOVLEN 


STH 


0,1 ST ATE 


MVI 


CONTCARD,0 


MV! 


EOF,0 




INPUT SYSTEM STAT 


EQU 


1 


EQU 


2 


EQU 


3 



ESTABLISH OS CONVENTIONS 



ESTABLISH COMMON ADDRESSING 



INITIALIZE READER FLAGS 



OPEN DATA SETS 

CONSTRUCT POS DIRECTORY IN CORE 

INDICATE NO STORAGE HELD 

INITIALIZE INPUT STATE (SYSINI 
INITIALIZE JOS FLAGS 



CODES 



IN 

IN 
IN 



STREAM Al 
STREAM 8 
STREAM A2 



275. 

277. 
278. 
279. 
280. 
281. 
282. 
283. 
284. 
285. 
286. 
287. 

289. 
290. 
291. 
292. 
293. 
294. 
295. 
296. 
297. 
298. 
299. 



301. 

302. 
303. 
304, 



m 
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LCC OBJECT CODE 



ADDR1 ADDR2 STMT 



SOURCE STATEMENT 



52 *##*##***#*#**#**#*:#*##** ***^ 

53 * THE FOLLOWING CODE SCHEDULES EACH JOB THROUGH THE SUBSYSTEM, * 

54 * DECODING CONTROL CARDS AND MANAGING STORAGE ALLOCATION. * 

55 ***3^**$;Mc****$#^:*$^*$^ 



22 DEC 69 

306. 

307. 
308. 
309. 



CCC058 

000058 
C0005C 
000060 
000064 
CO 006 8 
GCC06A 

00G06E 
CCCC72 
000076 
CC007A 
CCC07E 

00008 2 
CCCC84 
000086 
00CC8E 
QCCC92 

00009 8 



95FF 
4780 
4100 
5830 
0523 
47F0 



CC90 
C06E 
CC40 
C4E0 

C058 



0OC90 



0006E 

00C40 
0Q4E0 

000 58 



9200 CC90 
9200 CC91 
92FF CC96 
9200 8416 
4800 C3AC 
1200 

4770 C0B4 
05C7 CC5D C4D0 
4780 CO 84 
D2C7 C3A0 CC5D 
9200 CC96 



00C90 
00C91 

00C96 
00416 



OOBAC 



CGGCA6 5000 CBA8 
0000AA 4100 0001 
CCCOAE 4000 C8AC 



000B4 
00C5D 0C4D0 

000B4 
OOBAO 00C5D 
C0C96 

00BA8 
00001 

ooe^c 



000400 
000800 
CCDOCO 
GC3000 

CC58CC 
CC6CC0 
080000 
C168CC 



57 LOOP 

59 AO 

60 

61 

62 

63 

64 

66 At 
67 
68 
69 

70 
71 
72 
73 
74 
75 
76 
77 
81 
82 
83 



85 

86 
87 
88 
89 
90 



101 

102 
103 
104 

105 
106 
107 
108 



* 
* 



91 * 

92 * 

93 * 

94 * 

95 * 

96 * 

97 * 

98 * 

99 * 



LET 



OS 

CLI 

BE 
LA 

L 

BALR 

B 

MVI 

MVI 

MVI 

MVI 

LH 

LTR 

BNZ 

CLC 

BE 

MVC 

MVI 

LOAD 

ST 

LA 

STH 



OH 

CONTCAROtX'FF* 

Al 

0, CON BUFF 

3,=A(GETCARD) 

2»3 

AO 



PROCESSING CYCLES HERE FOR JOB 
TEST FOR CONTROL CARD IN BUFFER 
READ TO CONTROL CARD 



311. 



RESET JOB FLAGS 



TEST FOR SYSIN INPUT 



CONTCARDtO 

EGF»0 

XMIT, X*FF« 
L0ADERR.1 
Of 1ST ATE 

0,0 

BO 

C0N8UFF+29C8),=CL8» • TEST FOR SOURCE FILE NAME 

80 

EPNAMEI 8 ) ,C0NBUFF+29 

XMIT,0 

EPLOC^EPNAME ,DCB=0 

0,INEXT 

0,SA1 

0,1 STATE 



SAVE MODULE NAME 
INSERT IN FIRST OUTPUT LINE 
LOAD SOURCE MODULE 
INITIALIZE SCAN POINTER 
SET STATE = Al 



THE FOLLOWING SECTION ALLOCATES DYNAMICALLY OBTAINED STORAGE 



SET 



THEN 



SS 

T+SS 

L 

MMIM 

WMAX 

W 

CM IN 

CMAX 

C 

DX 

DW 

W 

C 



K 

SS 

L 

WHIN 
HMAX 

cmn 

CMAX 

CO REM IN 



EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



SYSTEM WORK SPACE i ABEND, EOV, ETC) 
TOTAL STORAGE OBTAINED 

STORAGE RESERVED FOR LINK/LOAD < FREED J 
MINIMUM WORK AREA SIZE 
MAXIMUM WORK AREA SIZE 
ACTUAL WORK AREA SIZE (FREED) 
MINIMUM COMMON SIZE 
MAXIMUM COMMON SIZE 
ACTUAL COMMON SIZE 
T - <L + WMIN ♦ CMINI 
IF OX <= CMIN THEN ELSE 
MINI <DX-€MIN)/32, WMAX-WMIN ) 
WHIN + DW 
CMIN + <DX - DW) 



1024 

2*K 

52*K 

12*K 

22*K 

24*K 

512*K 

L+SS+WMIN+CNIN 



MINIMUM GETMAIN REQUEST 





313. 




314. 




315. 




316. 




317. 




318. 




320. 




321. 




322. 




323. 




324. 




325. 




326. 




3 27. 




328. 




329. 




330. 




331. 




332. 




333. 




334. 


* 


336. 


* 


337. 


* 


338. 


* 


339. 


* 


340. 


* 


341. 


a 


342. 


* 


343. 


* 


344. 


* 


345. 


* 


346. 


* 


347. 


* 


348. 


* 


349. 


* 


350. 




352. 




353. 




354. 




355. 




356. 




357. 




353. 




359. 



# 
# 



mmmmmrmr 
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LCC OBJECT CODE 
C930CC 



ADDR1 ACDR2 STMT SOURCE STATEMENT 

109 CGREMAX EQU L+SS+WMAX+CMAX 



MAXIMUM GETMAIN REQUEST 



22 DEC 69 



360. 



0C0OC4 


9823 


C318 


oococe 


58 1C 


C4E4 


ccoccc 


41C2 


3000 


ccccoc 


LBC1 




G0C0D2 


18 31 




C0G0C4 


90C1 


C318 


OOOODE 


1853 




OOCOEO 


5850 


C4E8 


0C0CE4 


1835 




OO00E6 


5B30 


C4EC 


COCOEA 


472C 


C0F4 


OOOOEE 


18 3 3 




OCOGFO 


47F0 


C108 


0CCCF4 


8830 


0005 


0CCGF8 


5930 


C4F0 


OCCOFC 


4700 


C104 


CCC1CC 


5830 


C4F0 


000104 


54 30 


C4F4 


0CC1C8 


1B53 




00010A 


5A3C 


C4F8 


00G1GE 


9023 


C818 


00C118 


4142 


3000 


OCGUC 


5 A 50 


C4EC 


0CC12C 


9045 


C818 


C0C124 


1A54 




OG0126 


5050 


840 C 


0GC12A 


06 50 




GG0L2C 


9045 


C858 


0G0130 


4540 


C41C 


0GC134 


4540 


C2FA 





111 


80 


GETMAIN 


VU, 

LA=ALLCORE, 


INITIAL GETMAIN I 
OBTAIN ALL FREE STORAGE 2 


362. 
363. 










A=SDVLIST,SP=0 






364. 


00818 


119 




lm 


2,3,SDVLIST 


R3 = 


T + SS, R2 = BASE 


365. 


0C4E4 


120 




L 


1, = A(SS) 


Rl = 


SS 


366. 


CGGOO 


121 




LA 


0,0(2*3) 






367. 




122 




SR 


0,1 


RO » 


BASE OF SYSTEM AREA 


368. 




123 




SR 


3,1 


R3 = 


T 


369. 


00818 


124 




STM 


0,1,SDVLIST 


RELEASE SYSTEM SPACE 


370. 




125 




FREEMAIN ,MF« C£, SMGLIST) 






371. 




129 


A2 


LR 


5,3 


R5 = 


T 


373. 


004E8 


130 




S 


5,=A(L+WMIN+CMIN) 


R5 » 


DX 


374. 




131 




LR 


3,5 






375. 


004 EC 


132 




S 


3,=A(CMIN) 


R3 = 


OX - CHIN 


376. 


000 F4 


133 




BH 


A3 






377. 




134 




SR 


3,3 


R3 = 


= DW (DX <» CHIN) 


378. 


00108 


135 




8 


AS 






379. 


00005 


136 


A3 


SRL 


3,5 


R3 = 


(DX - CM1N1/32 


380. 


004F0 


137 




C 


3,=A(fcMAX-WMIN> 






381, 


00104 


138 




BNH 


A4 






382. 


004 FO 


139 




L 


3»=A(WMAX-WHIN> 


R3 = 


WMAX - WHIN 


383. 


004F4 


140 


A4 


N 


3,=XL4*00FFFFF8» 


R3 = 


DW (DX > CM IN I 


384. 




141 


A5 


SR 


5,3 


R5 = 


DX - OH 


385. 


004F8 


142 




A 


3,=A*L+WHIN) 


R3 = 


L + W 


386. 


C0818 


143 




STM 


2,3,S0VLIST 


RELEASE LINK AND WORK SPACE 


387. 




144 




FREEMAIN ,MF= (E, SMGLIST) 


(NOT CONTIGUOUS WITH SYS SPACE) 


388. 


00000 


147 




LA 


4,0(2,3) 


R4 = 


COMMON BASE 


389. 


004EC 


148 




A 


5,-A(CNINl 


R5 = 


C 


390. 


00818 


149 




STM 


4,5,S0VLIST 


SAVE 


FOR LATER RELEASE 


391. 




150 




AR 


5,4 






392. 


0040C 


151 




ST 


5,LOA0BASE 






393. 




152 




BCTR 


5,0 






394. 


008 58 


153 




STH 


4,5,C0MMLIM 


ESTABLISH COMMON LIMITS 


395. 


004 1C 


154 




BAL 


4, ANALYZE 


ANALYZE CONTROL CARD FIELDS 


396. 


002FA 


155 




BAL 


4,SETID 


SET SYSTEM ID STRING 


397. 



• 
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LCC OBJECT CODE 



AOOR1 ACDR2 STHT 

157 
153 
159 



SOURCE STATEMENT 



22 DEC 69 



******* ****#*****:**3£#***%:*^*sfc##:fc^ 399. 

* THE FOLLOWING CODE CONTROLS LOADING OF THE COMPILER PHASES * 40 0. 

************** $***$:$*$$*$«$*:«$^ 401. 



0OC138 






000138 


1BCC 




CC013* 


0400 




C0C13C 


5800 


C4FC 


CGG140 


5000 


C880 



161 COMPILE DS 



OH 



CCC14C 4110 C858 



0CC15E 


12FF 




OCClfeG 


4770 


CI AC 


CG0164 


5800 


C500 


OOGICE 


5OC0 


3400 


00016C 


5810 


C85C 


0CC17C 


41 CO 


1001 


00G174 


5000 


8404 


0C0178 


5000 


840 8 


CCC17C 


5G0G 


840C 


0G018G 


9200 


8414 


CCC184 


9200 


8416 


000186 


92FF 


8415 


0OC18C 


0283 


8418 



C0CIS2 4110 C858 

C0C1A6 12FF 
CCCiAf 478C C1C2 



0C0188 1BCC 
00018* 50C0 C81C 
00G18E 47FC C058 



8417 







163 






164 




004FC 


165 




OGB 80 


166 
167 




00858 


171 
172 

179 




001 AC 


180 
132 




00500 


133 




00400 


184 




0085C 


185 




OOOCl 


186 




00404 


187 




00408 


188 




0040C 


189 


00414 




190 


00416 




191 


00415 




192 


00418 


00417 


193 




00858 


195 
196 
203 




001C2 


204 

206 
209 




008 1C 


213 




00058 


214 



CI 



SR 

SPM 

L 

ST 

STIMER 

LA 

LINK 

LTR 

8NZ 



EXECUTE COMPILER PHASES 



MASK INTERRUPTIONS 



0,0 



0,=XL4 , 7FFFFFFF» 

0,TIMEIN!T 

TASK,TUINTVL=TIMEINIT SET TASK TIMER FOR CLOCKING 

1,ENTVECT LOAD PARAMETER REGISTER 

OE=DPHASEA,DCS=0,MF={E, fill EXECUTE PHASE A 

15,15 TEST FOR ERRORS 

CI IF ANY, BYPASS PHASE 8 



INITIALIZE VARIABLES FOR LOADER COROUTINE (LOADCABD) 



L 0,=F*-16» 

ST 0,ESD INDEX 

L l,C0MMLIM+4 

LA OiHiH 

ST OtLOCCRE 

ST CHICGRE 

ST CLOACBASE 

MVI ENTRYSET,0 

MVI LOA0ERR,0 

MVI INIT,X*FF« 

MVC ERRBUFU32J,BLANK 



LA l»ENTVECT 

LINK OE=DPHASEB,DCB=0,MF={£,(m 

LTR 15,15 

8Z LOADTEXT NO ERRORS 



MARK ESDTABLE EMPTY 
SET UP STORAGE BOUNDS 



SET LOAOER STATUS FLAGS 



EXECUTE PHASE 8 



EXECUTE 



TTIMER CANCEL 

FREEMAIN ,«F» {E, SMGL I ST) 

SR 0,0 

ST OjSDVLEN 

8 LOOP 



CANCEL TIME INTERVAL 
RELEASE COMMON AREA 

MARK STORAGE FREE 

RECYCLE 



403. 

405. 
406. 
407. 
408. 
409. 
410. 
411. 
412. 
413. 

415. 
416. 
417. 
418. 
419. 
420. 
421. 
422. 
423. 
424. 
425. 
426. 

428.' 
429. 
430. 
431. 

433. 
434. 
435. 
436. 

437. 
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LCC OBJECT CODE 



CCOIC2 

0CC1C2 
00G1C6 
CCC1CA 
COCICE 
G001C2 
CCCID4 



95FF 
4780 
41CC 
5830 
05 23 
47F0 



CC91 
C103 
CC40 
C4E0 

CIC2 



0CC1D8 5840 840C 
COC10C 5B40 C818 
0CC1EC 5650 C81C 
0GC1E4 1B54 
C0C1E6 5040 C81C 



OOOIFO 


5840 


840C 


CCC1F4 


9045 


C818 


0CC1F8 


0200 


C854 


0001FE 


9500 


C854 


CCC2C2 


477C 


C224 


00C212 


1810 




000214 


5820 


1008 


000218 


5020 


C8B4 


0CC21C 


5820 


100C 


0C022C 


502C 


C8B8 


000224 


58F0 


C504 


GCC228 


C5EF 




00022A 


9500 


8416 


G0C22E 


4770 


C296 



00C232 9200 C855 
00C236 92FF CC95 



CGC24E 
00024C 
GCC25G 
0CC254 
000258 



501C 
5800 
5000 
5800 
5000 



C320 
C828 
C85C 
C324 
C880 



G0C91 

001D8 
00C40 
CC4E0 

001C2 

0040C 
00818 
0081C 

0081C 

0040C 

00818 
8416 00854 004 16 
008 54 

002 24 



00008 
008B4 
OOOOC 
00888 
C0504 



004 16 



00855 
00C95 



00296 



000266 D200 CC91 CC90 00C91 



0G026C 
00C272 
000278 
0CC27C 
0CC28C 
000284 



0600 
0200 
9200 
4110 
58F0 
G5EF 



CC91 
C8 5 8 
C859 
C358 
8410 



CC92 
CC91 



00C91 
00858 
008 59 



0GC28C 5810 C820 



00820 
00828 
0C85C 
00824 
008 BO 

00C90 
00C92 

00C91 

00858 
00410 



008 20 



PAGE 



AD0R1 ADDR2 STMT 

216 
217 
218 
219 



SOURCE STATEMENT 

* THE FOLLOWING CODE PROCESSES ANY OBJECT CARDS, LOADS * 

* ALGOLRUN, AND EXECUTES THE COMPILED PROGRAM * 



221 LQADTEXT DS 



223 
224 
225 
226 
227 
228 

230 
231 
232 
233 
2 34 
235 
238 
239 
240 
241 
242 
243 
248 
249 
250 
251 
252 
253 
254 
255 
256 

258 
259 
260 
269 

270 
271 
272 
273 
274 
278 
279 
280 
281 
282 
283 
284 
285 
288 



XI 



X2 



X4 



CLI 

BE 

LA 

L 

BALR 

B 

L 

S 

L 

SR 

ST 

FREEM 

L 

STM 

MVC 

CLI 

BNE 

LOAD 

LR 

L 

ST 

L 

ST 

L 

BALR 

CLI 

BNE 



OH 

EOF,X«FF» 

X2 

0* CON BUFF 

3,=A(GETCARD) 

2,3 

XI 

4,L0ADBASE 
4, SDV8ASE 
5»SDVLEN 
5,4 

4,5DVLEN 
AIM ,MF=IE,SMGLIST) 
4,LDA0BASE 
4,5,S0VLIST 
NOLOA0U) ,LOAQ£RR 
NOLOAD,0 
X4 

DE=DRUNLI8,DCB=0 
1,0 

2,DERR0R(,1) 
2,AERR0R 
2,D0ATA(,1) 
2,ARUNDSEG 
15,=V<ENDL0A0) 
14,15 
LOADERR,0 
X5 



LOAD OBJECT CARDS, EXECUTE 
TEST FOR END-OF-FILE 



R4 = BASE OF AREA IN USE 
R4 = LENGTH OF AREA FREE 
R5 = LENGTH OF ORIGINAL AREA 
R5 » LENGTH QF AREA IN USE 



MVI TIMEOUT, 

MVI OUT SYNCH, X»FF» 

SPIE SPIEEXIT,((1,15)> 

ST lfOLOSPIE 

L 0,XLLIM 

ST OjLINELIM 

L 0,XTLIM 

ST OjTIMEINIT 

STIMER TASK,T1ME£XIT,TU1NTVU 

MVC E0FC1),C0NTCARD 

OC EOFm,ENDOS 

MVC XE0F(1),E0F 

MVI XTRACE,0 

LA 1,ENTVECT 

L 15,ENTRYPT 

BALR 14,15 

TTIMER CANCEL 

L 1,0LDSPIE 



RELEASE FREE AREA 

R4 = BASE OF AREA IN USE 

SAVE FOR LATER RELEASE 

SAVE ERROR STATUS 

TEST FOR ERRORS 

IF ANY, BYPASS LOADING LIBRARY 

LOAD RUN-TIME LIBRARY MODULE 

(RO := AD OR OF LI BR DIRECTORY) 
SAVE ERROR ENTRY ADDRESS 

AND DATA SEGMENT ADDRESS 

MERGE DIRECTORIES, COMPLETE LOAD 

BYPASS EXECUTION IF ERRORS 

RESET EXECUTION FLAGS 
SET PROGRAM CHECK EXIT 
SET LINE LIMIT 
SET TASK TIME LIMIT 

•TIHEINIT 

SET EXECUTION EOF 

SET RUN FLAGS 



CALL COMPILED PROGRAM 

CANCEL TIME INTERVAL 
RESTORE SPIE CONDITIONS 
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439. 
440. 
441. 
442. 



444. 

446. 
447. 
448. 
449. 
450. 
451. 

453. 
454. 
455. 
456. 
457. 
458. 
459, 
460. 
461. 
462. 
463. 
464. 
465. 
466. 
467. 
468. 
469. 
470, 
471. 
472. 
473. 

475. 

476. 
477. 
478. 
479. 
480. 
481. 
482, 
483. 
484. 
485. 
486. 
487. 
488. 
489. 
490. 
491. 
492. 



• 



• 
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LGC OBJECT CODE 



0CC292 47F0 C2A4 

CC02S6 410C 3418 

00029* 4110 0OF1 

CCC29E 583C C503 
0002A2 0523 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



C0C2A4 
OCC2A8 



9500 
47 80 



C354 

C2B6 



CCC282 47FC C2BC 
C81C 

C2CC 



0002BC 
CCC2CC 
OC02C2 



5800 

1200 
4780 



00C2CC 
0002CE 
CCC2D2 

G0C0C8 

OOOOQC 



1BCC 
5000 
47F0 



C81C 

C058 



00854 





289 




SPIE 


,MF=IE,<lf) 


002 A4 


291 




B 


X6 


00418 


293 


X5 


LA 


OtERRBUF 


000F1 


294 




LA 


1,C*1» 


CC5C8 


295 




L 


3,=A<PUTLINE) 




296 




BALR 


2,3 




298 


X6 


CLI 


NOLOADtO 


002B6 


299 




BE 


X7 




300 




TTIMER 


CANCEL 


002 BC 


303 




B 


X8 




304 


XT 


DELETE 


DE=DRUNLIB 


008 1C 


308 


X8 


L 


0,SOVLEN 




309 




LTR 


0,0 


002CC 


310 




BZ 


X9 




311 




FREEMAIN ,MF= (E, SMGL I ST) 




314 


X9 


SR 


0,0 


008 1C 


315 




ST 


0,SOVLEN 


00058 


316 




B 


LOOP 




318 


DERROR 


EQU 


8 




319 


DOATA 


EQU 


12 



PRINT ERROR MESSAGE 



DELETE LI BR MODULE IF LOADED 

CANCEL TIME INTERVAL (COMPILER) 

DELETE LIBRARY MODULE 
RELEASE ANY STORAGE HELD 



CYCLE 

DISPL OF ERROR ENTRY ADDR 
DISPL OF DATA SEGMENT ADDR 
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493. 
494. 

496. 
497. 
498. 
499. 

501. 
502. 
503. 
504. 
505. 
506. 
507. 
508. 
509. 
510. 
511. 
512. 

514. 
515. 
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LCC CBJECT CQOE 



ADDR1 ACCR2 STMT SOURCE STATEMENT 



22 DEC 69 



321 ******* *************** 3Mej{c*:M«***** **^****#************* ********* ******** 

322 * THE FOLLOWING CODE RELEASES RESOURCES AND TERMINATES * 

323 *********************************************************************** 



O0C2C6 

C002D6 5800 C81C 
0CC2CA 120C 
0C02DC 47D0 C2E6 



0002EC 58D0 0004 



0081C 



002E6 



00004 



325 


CLEANUP 


327 




328 




329 




330 




333 


TO 


336 




337 





OS 



OH 



L CSOVLEN 

LTR 0,0 

BNH TO 

FREEMAIN f MF= CE, SMGLIST) 

CLOSE ,MF=(E,DMGLIST) 

L 13,4<,13) 

RETURN (14,12),RC=0 



TERMINATE SUBSYSTEM 



DETERMINE IF STORAGE HELD 



RELEASE REMAINING STORAGE 
CLOSE DATA SETS 



517. 
518. 
519. 



521. 

523. 
524. 
525. 
526. 
527. 
528. 
529. 



m 
m 



m 
m 



m 
m 



m 
m 
m 
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LCC OBJECT CODE 



AOORl ADDR2 STMT 



0CG2FA 

OGC2FA 9240 C834 
0CC2FE D2iE C835 



CC03CA 
0C030E 
CCC312 
000316 
0CQ31A 
CCC31E 
00032 2 
000326 
0002 2 A 
0002 2 E 
CCC332 
000336 
00033A 
CCC33E 
C0C344 
000348 
0C034E 
000 35 2 
00C356 

00C35A 
CO 360 
0CC364 
0CG368 
00C36C 
CCC370 
00C372 
000376 
C0C37C 
00 038 2 
000386 
00038A 
000390 
0CC396 
0CC39A 

0CC39C 
CC03A2 
000000 
0003A2 
00C3AE 
000018 
00 03 8 A 



€800 
5000 
960F 
5010 
9101 
47 1C 
9112 
4740 
92 90 
47F0 
928C 
4110 
4120 
F911 
4700 
FBU 
4A2C 
4110 
47F0 

F321 
96FC 
9240 
4810 
4131 
0610 
4410 
0201 
F321 
9240 
927C 
F333 
0201 
92 7A 
07F4 



oooc 

C82C 
C82F 
C830 
C831 
C332 
C831 
C332 
C3A5 
C336 
C3A5 
C3A2 
C302 
CS32 
C35A 
C332 
1018 
1002 
C33E 

C834 
C836 
0834 
1018 
C838 



C39C 

3001 C51C 
3003 C83i 
3005 
3007 

3003 C32C 
300 A 3008 
300C 



00834 
C834 008 35 00834 

OOOOC 
0C82C 

0082F 

CG830 

00831 

00332 

00831 

00332 

003A5 

00336 

003 A5 

003A2 
0C3D2 
1000 00832 00000 
003 5 A 
1000 00832 00000 
00018 
00002 
0033E 



C832 



00834 
00836 
008 34 



00001 
000 C 3 
000C5 
000C7 

000 OB 
COOOA 
OOOOC 



00832 



00018 
00838 

0039C 
005 IC 
G0831 



0082C 
000 OB 



0200 C838 2000 00838 00000 



Q31CG2GC031C030C 
C31C0 31C030C031C 

0007000800050005 



SOURCE STATEMENT 



342 ***************************************** ***##****^ 

343 * THE FOLLOWING CODE FILLS A CHARACTER STRING WITH TIME * 

344 * AND DATE FOR SYSTEM ID. DECIMAL INSTRUCTIONS USED. * 

345 * R4 * RETURN ADDRESS * 

346 ******************************************#**************************** 



348 SET ID 



350 
351 
352 

355 
356 

357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 



NOLEAP 
SETIDl 

SETI02 



SET 103 



375 
376 

377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 



391 MMOVE 

392 MO AY 

393 MDAVS 
394 

395 

396 MLEN 

397 



DS 

MVI 

MVC 

TIME 

SRL 

ST 

01 

ST 

TM 

BO 

TM 

BM 

MVI 

B 

MVI 

LA 

LA 

CP 

BNH 

SP 

AH 

LA 

B 

UNPK 

01 

MVI 

LH 

LA 

BCTR 

EX 

MVC 

UNPK 

MVI 

MVI 

UNPK 

MVC 

MVI 

BR 

MVC 

DS 

EQU 

DC 

DC 

EQU 

DC 



OH 

RUNID,C* • 

RUNID+1(31),RUNID 

DEC 

0,12 

0,TIME 

TIM£+3,X'0F» 

I, DATE 

DYEAR,X»01* 

NOLEAP 

DYEAR,X»12» 

NOLEAP 

M0AY+3,X»9C I 

SETIDl 

M0AY+3,X , 8C , 

1,MDAY 

2iMSTftING 

00AY(2),MDAY5(2,1> 

SETID3 

DDAY(2),MDAYSC2,1) 

2,MLEN(,1) 

1,2(,1) 

SET ID 2 

RUNI0(3),DDAY(2) 

RUNID+2»X»F0* 

RUNTO,C* " 

1,MLEN(,1) 

3, RUN 10+4(1} 

1,0 

1* MMOVE 

H2,3),=CU9» 

3(3,3),DYEAR(2) 

5(3), C* • 

7(3),C , 3» 

11(4,3),TIME(41 

10(2, 3), 11(3) 

12(3), C»:« 

4 



SET «RUNID* STRING 

BLANK STRING 

OBTAIN TIME, DATE 
REDUCE TIME TO MINUTES 

SET ZONE FOR UNPACKING 

FORMAT IS •OOYYDDD&* (DECIMAL) 

LEAP YEAR IF 

EVEN £ 

TWO'S BIT OF YEAR = 

ONE'S BIT OF DECADE 
ADJUST ENTRY FOR FEBRUARY 

SET FOR NORMAL YEAR 
INITIALIZE TABLE POINTERS 

CHECK IF REDUCED DATE IN MONTH 
IF SO, ODAY IS DAY OF MONTH 
IF NOT, REDUCE BY DAYS IN MONTH 
STEP POINTERS 



CONVERT TO CHARACTER FORMAT 



Rl * LENGTH OF MONTH NAME 
R3 » START OF YEAR FIELD 

MOVE MONTH NAME 
SET YEAR 

FORMAT TIME - R3 POINTS TO 
• 19YY a HH:MM» 



RETURN 



RUNID+4(0),0(2) EXECUTED 

OH MONTH LENGTH AND POINTER TABLES 

*-MDAY DAYS PER MONTH (2 BYTE DECIMAL) 

X*031C»,X'020C»,X i 031C , ,X , 030C«,X'03lC*,X«Q30C» 

X»03lC*,X*031C*,X«030C , ,X»03lC»,X»030C i ,X*031C* 

*-MDAY LENGTH OF MONTH NAME 

AL2( 7, 8, 5,5,3,4,4,6,9,7,8,8) 
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531. 
532. 

533. 
534. 
535. 



537. 

539. 
540. 
541. 
542. 
543. 
544. 
545. 
546. 
547. 
548. 
549. 
550. 
551. 
552. 
553. 
554. 
555. 
556. 
557. 
553. 
559. 
560. 

562. 
563. 
564. 
565. 
566. 
567. 
568. 
569. 
570. 
571, 
572. 
573. 
574. 
575. 
576. 

578. 
579. 
580. 
581. 
582. 
583. 
584. 



m 

m 
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ICC OBJECT CODE 



ADDR1 ACCR2 STMT 



SOURCE STATEMENT 



CCC302 
0003C2 
CCC3EE 
C0040C 



C1C1D5E4C1D9E8C6 
D1E4D5C5D1E4D3E8 
C506E5C5D4C2C5D9 



398 
399 
400 
401 



M ST RING 



DS 
DC 

DC 
DC 



OH MONTH NAME (EBCDIC} 

C • JANUARY* »C« FEBRUARYS C MARCH' »C« APR IL*,C» MAY* 
C» JUNE* ,C» JULY *,C» AUGUST %C* SEPTEMBER* »C»OCTOBER» 
C'NOVEMBER*»€» DECEMBER* 
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585. 
586. 
587. 
588. 



• 
# 



• 



# 



• 



^^tmfmmmmmmmmmmmimmmm 



»i< w« » m iii im in i» m » i . 



^^wm»»«' » -> ^ ««i ^~- i t"»— t ^w wi mmmj iiii mmu i iu 



H l W IIWil W tiWI lWi ^II W II |i Wffq Wt ft r * H' WB ^Wfli m illWIIMil W III W I XW HW I 'l W I WJ Illi 



PAGE 



10 



LCC OBJECT CODE 



A00R1 A00R2 STMT 

403 
404 

405 
406 



SOURCE STATEMENT 22 DEC 69 

*******************$**************-********************************#**** 590 « 

* THE FOLLOWING CODE ANALYZES TIME AND LINE LIMITS ON CONT CARO * 591. 

* R4 = RETURN ADDRESS, XTLIM := TIME, XLLIM := LINES * 592. 
******************************************** *********sm^ ********* ****^ 593. 



O0C41C 










408 


ANALYZE 


DS 


OH 


COGOOA 










409 


STDTIME 


EQU 


10 


• O001F4 










410 


STDLINES 


EQU 


500 


CCC41C 


9200 


C856 


008 56 




412 




MVI 


COLON, 


9 CCC42G 


9200 


C857 


00857 




413 




HVI 


COMMA ,0 


CC0424 


1B00 








414 




SR 


0,0 


000426 


1B55 








415 




SR 


5,5 


B 000428 


1B66 








416 




SR 


6,6 


0G042A 


1B77 








417 




SR 


7,7 


CCC42C 


4120 


CC48 




00C48 


418 




LA 


2,C0NBUFF+8 


ft 000430 


4120 


2001 




00001 


419 


AN1 


LA 


2,1(,2> 


0CC434 


5920 


C50C 




0050C 


420 




C 


2t*A(CONaUFF+2a) 


00043 8 


4720 


C4AA 




004AA 


421 




BH 


AN6 


9 CC043C 


9540 


2000 


00000 




422 




CLI 


012), C* • 


0CC440 


4780 


C430 




00430 


423 




BE 


AN1 


C0C444 


95F0 


2000 


00000 




424 




CLI 


0(2),C«0» 


9 CC0448 


4740 


C482 




00482 


425 




BL 


AN4 


00C44C 


S40F 


20 CO 


00000 




426 




MI 


0I2),X*0F» 


G0045C 


4300 


2000 




OOOCO 


427 




IC 


0,0(,2J 


B CCC454 


S5FF 


C857 


00857 




428 




CLI 


COMMA, X»FF* 


CCC458 


4770 


C466 




00466 


429 




BNE 


AN2 


C0045C 


4C50 


C51E 




005 IE 


430 




MH 


5,=H» 1Q» 


CCC46C 


1A50 








431 




AR 


5,0 


000462 


47F0 


C430 




00430 


432 




B 


AN1 


CCC466 


95FF 


C856 


00856 




433 


AN2 


CLI 


COLON, X'FF* 


^ OC046A 


4770 


C478 




00478 


434 




8NE 


AN3 


00046 E 


4C70 


C51E 




005 IE 


435 




MH 


7,=H»10» 


C0G472 


1A70 








436 




AR 


7,0 


# 00041 4 


47F0 


C43Q 




004 30 


437 




8 


AN1 


000478 


4C60 


C51E 




0G51E 


438 


AN3 


MH 


6,=H» 10" 


C0C47C 


1A6C 








439 




AR 


6,0 


§ CCC47E 


47FC 


C430 




004 30 


440 




B 


AN1 


000482 


957A 


2000 


00000 




441 


AN4 


CLI 


0(2),C«J» 


CCC486 


4770 


C496 




00496 


442 




BNE 


AN5 


ft 0C048A 


9300 


C856 


008 56 




443 




TS 


COLON 


00C48E 


4770 


C4AA 




004 AA 


444 




BNZ 


AM6 


GOG 49 2 


47F0 


C430 




00430 


445 




B 


AN I 


i 000496 


956B 


2000 


00000 




446 


AN5 


CLI 


0(2),C*,* 


CCC49A 


4770 


C4AA 




004AA 


447 




BNE 


AN6 


CCC49E 


92FF 


C356 


00856 




448 




MVI 


COLON, X»FF» 


£ 0004A2 


9300 


C357 


00857 




449 




TS 


COMMA 


C0C4A6 


4780 


C430 




00430 


450 




BZ 


AN1 


9 CC04AA 


4C60 


C520 




00520 


452 


AN6 


MH 


6,=H»60« 


0004AE 


1A76 








453 




AR 


7,6 


CCC48G 


4770 


C4B8 




00468 


454 




BNZ 


AN7 


9 0004B4 


58 70 


C510 




00510 


455 




L 


7, =A{ STDTIME) 


0C04B8 
» 


5C60 


C514 


00514 456 AN7 


M 


6»=F» 38400* 



DEFAULT TIME LIMIT (SECONDS* 
DEFAULT LINE LIMIT ILINES) 

RESET STATE FLAGS 



LINES ACCUMULATOR 
MINUTES ACCUMULATOR 
SECONDS ACCUMULATOR 

STEP SCAN POINTER 



SKIP BLANKS 

ACCUMULATE DIGIT STRING 



COMMA SEEN - LINES 



COLON SEEN - SECONDS 
OTHERWISE - MINUTES 

SET COLON SWITCH" 



COMMA IMPLIES COLON 
SET COMMA SWITCH 



CONVERT TO SECONDS 



IF ZERO, DEFAULT 

CONVERT TO OS TIMER UNITS 



595. 
596. 
597. 

599. 

600. 
601. 
602. 
603. 
604. 
605. 
606. 
• 607. 
608. 
609. 
610. 
611. 
612. 
613. 
614. 
615. 
616. 
617. 
618. 
619. 
620. 
621. 
622. 
623. 
624. 
625. 
626. 
627. 
628. 
62 9. 
630. 
631. 
632. 
633. 
634, 
635. 
636. 
637. 

639. 
640. 
641. 
642. 
643. 



# 

m 
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LCC 


OBJECT CODE ADORl 


ACDR2 


STMT SOURCE 


STATEMENT 


0CC4BC 


5070 C824 


00824 


457 


ST 


7,XTHM 


0CG4CC 


1255 




458 


LTR 


5,5 


C004C2 


4770 C4CA 


004CA 


459 


BN7. 


AN 8 


00C4C6 


5850 C518 


00518 


460 


L 


5««A(STDLINES) 


G0G4CA 


5050 C828 


00828 


461 AN8 


ST 


5,XLLIM 


GCC4CE 


C7F4 




462 


BR 


4 


CCC4D0 






464 


LTQRG 




GC04CC 


4040404040404040 




465 




=CL8« * 


CCC4D8 


C0CCC704 




466 




=ACSAVE) 


00G4CC 


00000000 




467 




=A{CGMMCN) 


00C4E0 


00000 898 




468 




=A(GETCARD) 


CCC4E4 


00O0C8OO 




469 




=A(SS) 


C004E8 


00016000 




470 




*A<L+WM1N+CMIN) 


0004EC 


00006000 




471 




=A(CMIN) 


CCC4FC 


00002800 




472 




«A( UMAX -VIM IN) 


0GG4F4 


00FFFFF8 




473 




=XL4 , 00FFFFF8» 


C0G4F8 


00010000 




474 




«A(L+WMIN) 


0CC4FC 


7FFFFFFF 




475 




=XL4»7FFFFFFF« 


CCC5GC 


FFFFFFFO 




476 




=F»-16» 


CCG5C4 


COCCOGOO 




477 




=V(ENDLOAD) 


CC05C8 


oococgoc 




478 




»A(PUTLINE) 


C0050C 


COG00C5C 




479 




=A(CONBUFF+28) 


CCG51C 


OCCOOOOA 




480 




=A<ST0T1ME) 


C00514 


00009600 




481 




=F« 38400* 


OC051S 


00O0OIF4 




482 




=A(STDLINES) 


CCC51C 


F1F9 




483 




=C»19« 


0005 IE 


OOOA 




484 




=HMO* 


GCG520 


C03C 




485 




=H»60* 








486 


DROP 


11 








487 


DROP 


12 



SET LINES REGISTER 
IF ZERO, DEFAULT 



??. DEC 69 

644. 
645. 
646. 
647. 
648. 
649. 

651. 



652. 
653. 



mm* m***mmm mmmwm mmn nwm m i iiiiii ww ii i i h iii i wmammm m m t wm iii mn w mrnmmmm mm » 



w miMmtm* m «>m mm m m immm m 
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LCC OBJECT CODE 



ADDR1 AD0R2 STMT 



SOURCE STATEMENT 



22 DEC 6<* 



A89 ***************************************** #****************************# 655. 

490 * THE FOLLOWING CODE IS ENTERED FOR PROGRAM INTERRUPTIONS * 656. 

49| ******* *^* ***:*!{.*;****** ************************************************** 657. 



CC0CC4 






000522 






0CC522 






OCOOCC 






000522 


90E2 


F04A 


000526 


S5FF 


F333 


C0C52A 


4780 


FG36 


CCC52E 


903C 


F05E 


000532 


58E0 


1GQC 


00C536 


1800 




CCC53 8 


4170 


0004 


0CC53C 


4180 


1004 


CC0540 


58F0 


F692 


000544 


C52F 




C0C546 






CO 0546 


58F0 


2062 


000522 






C0G54A 


S83C 


FOSE 


C0C54E 


1200 




C0C55G 


4780 


F042 


CCC5 54 


5810 


F056 


000558 


5800 


CO 04 


CCC55C 


50C0 


1008 


(1C0560 


5000 


1018 


000564 


98E2 


F04A 


CC056 8 


C7FE 





493 RET A 



EQU 



DISPL OF RETURN AOOR IN 8LK MARK 659. 



495 SPIEEXIT DS 



00855 



005 6C 

00558 
00580 
000 GC 

00004 

000C4 
0OB84 



005A8 



0C580 

00564 

00578 
00C04 
00008 
00018 
0056C 



497 
498 
499 

500 
501 
502 
503 
504 
505 
506 
50? 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



SPi 



SP2 



USING 

USING 

STM 

CLI 

8E 

STM 

L 

SR 

LA 

LA 

L 

DROP 

BALR 

USING 

L 

USING 

DROP 

LM 

LTR 

BZ 

L 

L 

ST 

ST 

LM 

BR 

DROP 

DROP 



OH 

SPIEEXIT, 15 

PIE, I 

14,2,PISAVE 

TIMEOUT, X*FF« 

SPI 

3,12,REGSAVE 

14,014 

0,0 

7,4 

8,0LDPSy 

15,AERR0R 

15 

2,15 

*»2 

15,=A{SPIEEXIT1 

SPIEEXIT, 15 

2 

3,12,REGSAVE 

0,0 

SP2 

1,PISAVE+12 

0,RETA(,12) 

0,OLDPSW+4 

0,01 

14, 2, PI SAVE 

14 

15 

1 



INTERRUPTION DECODER 



SAVE REGISTERS 

TEST FOR TIMER FORCED EXIT 

IF SO, TERMINATE 

RESTORE R14 

INDICATE ENTRY FROM DECODER 

INDICATE PROGRAM CHECK 

LINK TO ERROR PROCESSOR 



REESTABLISH ADDRESSING 



TEST FOR CONTINUED EXECUTION 

TERMINATE 

SET RESUME ADDR, LINK REGISTER 

RETURN ADDRESS IN 

OUTERMOST BLOCK MARK 

RETURN TO OS 



661. 

663. 
664. 
665. 

666. 
667. 
668. 
669. 
670. 
671. 
672. 
673. 
674. 
675. 
676. 
677. 
678. 
679. 
680. 
681. 
682 . 
683. 
684. 
685. 
686. 
687. 
688. 
689. 
690. 



• 






CC056C 

0CC580 



526 

527 



PI SAVE 
REG SAVE 



DS 
DS 



5F 
10F 



692. 
693. 



CCCOCC 
CGOCOC 
C00CC4 

cccccc 

GCGCOC 
000018 

ccccoc 

0005A8 

CCC5A8 00C00522 



529 
530 
531 
532 
533 
534 



PIE 

PICADR 

OLDPSW 

OLDREG 
014 

01 



DSECT 
DS 
DS 
OS 

EQU 
EQU 



536 AWXGDR01 CSECT 

537 LTORG 

538 



F 

2F 

5F 

OLDREG+O 

0L0REG+12 



AiSPIEEXIT) 



PICA ADDRESS 

OLD PSW 

OLD REGISTER CONTENTS 

R14 

Rl 



695. 
696. 
697. 
698. 
699. 
700. 

702. 

703. 



# 



mmvmmrm*mmmmmmmrmmmmmmi*mm 



% m m« mm mm m mmmw mMMmm mm < v 



nmmimmm«m* 
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ICC OBJECT CQOE 



AODR1 ACCR2 STMT 



SOURCE STATEMENT 



22 DEC 69 



540 ********************** ***:m<**.******^ 705. 

541 * THE FOLLOWING CODE IS ENTERED ON EXPIRATION OF EXECUTION TIME * 706. 

54J> ****:#*# ###*#:##**#####^*#^ 707. 



0005AC 










544 


TIMEEXIT 


DS 


OH 


0CC5AC 










546 




USING 


TIMEEXIT, 15 


CCC5AC 


9300 


F6E9 


O0CS5 




547 




TS 


OUT SYNCH 


O0C5B0 


4780 


FOCO 




0066C 


548 




BZ 


TT9 


000564 


900E 


F004 




00680 


549 




STM 


0,14, TSAVE 


cocsee 


5800 


F60C 




00BB8 


550 




L 


13,ARUNDSEG 


CCC5BC 


0247 


F110 0000 


0068C 


00000 


551 




MVC 


TXSAVE(18*4) ,0(131 


CCC5C2 


5810 


0010 




000 10 


553 




L 


1,ACVT 


C0C5C6 


5810 


1000 




00000 


554 




L 


1,CVTTCBP(,1) 


0CC5CA 


5810 


1004 




000C4 


555 




L 


lfCURRTCSPt ,1) 


CCC5CE 


5810 


1000 




00000 


556 




L 


l,TCBR8P(,li 


00C5D2 


5820 


io ic 




000 1C 


558 


TT1 


L 


2»RBLINK-1(,1) 


0CC5D6 


9 ICO 


20 OA 


OOOOA 




559 




TM 


RBSTAB(2> 9 PRBMASK 


0CC5DA 


4780 


F038 




005E4 


560 




BZ 


TT2 


CCG5DE 


1812 








561 




LR 


1,2 


CCC5EC 


47F0 


F026 




005D2 


562 




B 


TT1 


CCG5E4 


02C7 


F68C 2010 


O0C38 


00 C 10 


564 


TT2 


MVC 


T[MEPSW{8),RBOPSW(2> 


00C5EA 


5900 


10 54 




00054 


565 




C 


13,RBGRSAVE+]3*4{,H 


CCC5EE 


47 70 


F04E 




005FA 


566 




BNE 


TT3 


0C05F2 


986E 


1038 




00038 


567 




LM 


6,14,RBGRSAV£+6*4M1 


C005F6 


47 FO 


F052 




005FE 


568 




B 


TT4 


000 5F A 


58E0 


FOCC 




0C678 


569 


TT3 


L 


14, = Ft-l» 


00C5FE 


1800 








570 


TT4 


SR 


0,0 


CCC60C 


4170 


0002 




00002 


571 




LA 


7,2 


C0C6C4 


4180 


F68C 




00C38 


572 




LA 


8, TIMERS^ 


0C0608 


58F0 


F608 




00884 


573 

574 




L 

DROP 


15,AERR0R 
15 


CCC6CC 


C52F 








575 




BALR 


2,15 


C0C60E 










576 




USING 


*,2 


CCC6CE 


58FC 


206E 




006 7C 


577 




L 


15,=A(TIMEEXIT1 


0CC5AC 










578 
579 




USING 
DROP 


TIMEEXIT, 15 
2 


000612 


92FF 


F2A9 


00855 




580 




MVI 


TIMEOUT,X«FF» 


000616 


9812 


F26C 




00818 


581 




LM 


1,2,S0VL1ST 


GCC61A 


IA21 








582 




AR 


2,1 


0CC61C 


5830 


F690 




0GC3C 


583 




L 


3,TIMEPSW+4 


00062C 


4130 


3000 




00000 


584 




LA 


3,0(,3) 


CCC624 


1931 








585 




CR 


3,1 


0CC626 


4 740 


F08C 




006 38 


586 




BL 


TT5 


00062A 


1932 








587 




CR 


3,2 


C0C62C 


4720 


F08C 




00638 


588 




BH 


TT5 


000630 


9200 


3000 


00000 




589 




MVI 


0(3)»X*00» 


0006 34 


47F0 


F0B6 




00662 


590 




8 


TT8 


GC0638 


D7C7 


1000 1000 


00000 


00000 


592 


TT5 


XC 


0(8,1 ),0(11 


00063E 


4100 


1008 




00008 


593 




LA 


0,8(,1) 



STIMER EXIT ROUTINE 



DEFER PROCESSING IF IN PUTCARO 

(NEEDED BY ERROR PROCESSOR J 
SAVE REGISTERS 

LOAD RUN-TIME FIXEO DATA BASE 
PROTECT SAVE AREA CONTENTS 

TRACK POINTERS TO R8 CHAIN 



Rl = R8 ADDR, R2 s* PREV R8 ADDR 
SEARCH FOR FIRST PR8 IN CHAIN 

(BITS 0,1 = 00) 
CHAIN TO NEXT R8 



SAVE OLD PSM 

TEST FOR CORRECT REGISTER SET 

MATCH - RESTORE ADDR REGISTERS 

NO MATCH - INHIBIT CARD SEARCH 
CALL ERROR PROCESSOR 



RESTORE ADDRESS I NO 

SET SWITCH FOR SPIE EXIT 
(R1,R2) := COMPILED CODE BOUNDS 

RECOVER INTERRUPTION ADDRESS 

TEST IF WITHIN COMPILED CODE 

IF SO, REPLACE WITH ILLEGAL OP 



OTHERWISE, SET ALL COMPILED CODE 
TO ILLEGAL OP, FORCE CHECK 



709. 

711. 
712. 
713. 
714. 
715. 
716. 

718. 

719. 
720. 
721. 

723. 
724. 
725. 
726. 

727. 

729. 

730. 
731. 
732. 
733. 
734. 
735. 
736. 
737. 
738. 
739. 
740. 
741. 
742. 
743. 
744, 
745. 
746. 
747. 
748. 
74^. 
750. 
751. 
752. 
753. 
754. 
755. 

757. 
758. 



• 



m 
m 
m 



LGC OBJECT CODE 



AODR1 ADDR2 STMT SOURCE STATEMENT 



0OC642 
000644 
0CC648 
CCC64* 
CCC64E 
CCC654 
CCC656 
0CC658 
0CC65C 
0CC65E 



1B20 
4100 
1920 
47D0 
D2FF 
1A10 
1B20 
47F0 
0620 
4420 



000662 0247 
CC0668 980E 
00066C C7FE 



0100 00100 

FOBO 0065C 

1008 1000 000C8 OCOOO 



F09C 00648 

F0C2 0066E 

DOOO F110 00000 0068C 
F0D4 00680 



00066E D200 1008 1000 000C8 00000 

0C0678 

CCC678 FFFFFFFF 

0C067C 000005AC 

C C C 6 8 C 
0006BC 



OC0C1C 
OCOOOO 
C00CG4 

ocoocc 

000010 
OCOOCA 
CCCGCC 
OCGOIG 
0CCC2C 



594 SR 

595 LA 

596 TT6 CR 

597 BNH 

598 MVC 

599 AR 

600 SR 

601 8 

602 TT7 8CTR 

603 EX 

605 TT8 MVC 

606 LM 

607 TT9 BR 

609 MOVEZERO MVC 

610 LTORG 
611 

612 

614 TSAVE OS 

615 TXSAVE OS 



2,0 

Of 256 

2,0 

TT7 

8(256,1) >0U) 

1»0 

2,0 

TT6 

2,0 

2, MOVEZERO 

0(18*4, 13), TXSAVE 

0,14, TSAVE 

14 

8(0,1), 0(1) 

=F»-1» 
=A(TIMEEXIT) 

15F 
18F 



RESTORE 
RETURN TO OS 
EXECUTED 



PAGE 



617 * THE FOLLOWING DESCRIBE OS/360 CONTROL BLOCKS (CF. C28-6628) * 

618 ACVT EQU 16 POINTER TO CVT < ABSOLUTE) 

619 CVTTC8P EQU DISPL OF TC3 QUEUE PTR IN CVT 

620 CURRTCBP EQU 4 DISPL OF CURR TC8 PTR IN QUEUE 

621 TCBRBP EQU DISPL OF CURR R8 PTR IN TCB 

622 R3LINK EQU 29 DISPL OF R8 LINK IN R8 

623 R8STA8 EQU 10 DISPL OF RB TYPE SITS IN R8 

624 PR8MASK EQU X«CO» MASK FOR TYPE 8ITS IN RBSTAB 

625 R80PSW EQU 16 DISPL OF OLD PSW IN RB 

626 R8GRSAVE EQU 32 DISPL OF OLD GPR IN RB URB,ETC) 



14 



22 DEC 69 

759. 
760. 
761. 
762. 

764. 
765. 
766. 
767. 
768. 

770. 

771. 
772. 

774. 
775. 



777. 
778. 

780. 
781. 
782. 
783. 
784. 
785. 
786. 
787. 
788. 
789. 






• 



mmrmwmifmMmmimiimm 
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LCC OBJECT CODE 
CG07C4 



AOOR1 ADOR2 STMT SOURCE STATEMENT 



CCC75E 
0C075E 
CCC762 

00C79C 
C00706 
CC081C 
OOC618 
CCC818 
OCC81C 
0C0820 

CCC824 
GOC828 
CCC82C 
CC083C 
C00831 
CCC832 
G0G834 
COG 854 
CCC855 
€00856 
OCC857 

CCC858 
000858 
CGG858 
GCC85<3 
0GG85C 
COC860 
0CC864 
CC0868 
C G C 8 6 C 
CCC87C 
0CC874 
CCC878 
CCG87C 
00C894 



0003003A 

C1E6E7C3D4D7CIF1 
CIE6E7C3D4D7C2F1 
C1E6E7D3C9C2D9FI 

0001630000093000 



C000Q9DC 

00000 898 

GOO00A3A 

00000A4A 

CC0G0A72 

0O0O0A96 

0OOO0AAE 

CGOOOOOCOOOOOOOO 

00000334 



628 
629 



635 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 

651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 



SAVE 
OMGLIST 



SMGLIST 

L1B0IR 

DPHASEA 

DPHASEB 

ORUNLIB 

ALLCQRE 

SOVLIST 

S0V8ASE 

SDVLEN 

OLOSPIE 

XTLIM 
XLLIM 
TIME 

DATE 
OYEAR 
DOAY 
RUN ID 

NOLQAO 
TIMEOUT 

COLON 
COMMA 



663 ENTVECT 

664 COMMLIM 

665 XEOF 

666 XT RACE 

667 LINELIM 
668 

669 
670 
671 
672 
673 
674 
675 
676 



OS 18F 

OPEN (SYSINt (.INPUT) » 

SYSOUT,( OUTPUT)), 

MF=L 
FREEMAIN V, A=SDVLIST ,SP=0,MF=L 

DS OH 

DC AL2(3,58) 

OC CL8*A'WXCMPAl* f 25H a f 

DC CL8«AWXCMPBlS25H*0 f 

DC CL8*AWXLIBRl»t25H*0* 

DC AICOREMlNtCOREMAX) 

DS 2F 

EQU SDVLIST+O 

EQU SDVLIST+4 

DS F 

DS F 

DS F 

DS F 

DS F 

EQU DATE+1 

EQU OATE+2 

DS CL32 

DS X 

DS X 

DS X 

DS X 

DS OF 

OS 2F 

EQU COHMLIM+0 

EQU COMMLIM* I 

EQU COMMLIM+4 

DC A(PUTLINE) 

DC A(GETCARO) 

DC A (PUT CARD) 

DC A(GETMAIN) 

DC A(FREEMAIN) 

DC AfGETTIMEl 

DC A (GET CLOCK) 

DC 6A(0) 

DC A (RUN 10) 



SAVE AREA PROVIDED BY MONITOR 
DCB LIST FOR OPEN AND CLOSE 



BLDL LIST FOR LINK AND LOAD 

LIST DESCRIPTOR 

PHASE A 

PHASE B 

RUN-TIME LIBRARY 

LIMITS TO OBTAIN ALL FREE CORE 

STORAGE DOPE VECTOR (GET/FREE) 

STORAGE AREA BASE ADDRESS 

STORAGE AREA LENGTH 

OLD SPIE INFORMATION 

EXECUTION TIME LIMIT 
EXECUTION LINE LIMIT 
SYSTEM TIME »OOOHHMM£* 
SYSTEM DATE •OOYYDQD&* 



SYSTEM IDENTIFICATION 

NON-ZERO IFF LIBRARY NOT LOADED 
SET IF TIME INTERVAL EXPIRED 
SCAN SWITCHES 



ENTRY VECTOR PASSED TO COMPILER 
COMMON LIMITS 
EXECUTION END-GF-F1LE 
EXECUTION TRACE OPTION 
EXECUTION LINE LIMIT 
SERVICE ROUTINE ENTRY POINTS 



RESERVED FOR EXPANSION 
SYSTEM IDENTIFICATION 



22 DEC 69 

791. 

1 792. 

2 793. 
794. 
795. 
796. 
797. 
798. 
799. 
800. 
801. 
802. 
803. 
804. 
805. 

807. 
808. 
809. 
310. 
811. 
812. 
313. 
814. 
815. 
816. 
817. 

819. 
820. 
821. 
822* 
823. 
824. 
825. 
826. 
827. 
828. 
329. 
830. 
831. 
832. 



• 



CCGCOC 

CCGOOC 
CCOOGG 
GCG4CC 
000404 
CC040 8 
CCG40C 



678 
679 

681 



THE FOLLOWING SECTION CONTAINS THE VARIABLES SHARED BY THE 
MONITOR AND THE PL360 LOADER PROCEDURES 



COM 



683 


COMMON 


DS 


OD 


684 


ESDTA8LE 


DS 


256F 


635 


ESDINDEX 


DS 


F 


686 


LOCORE 


DS 


F 


687 


HICORE 


DS 


F 


688 


LOACBASE 


DS 


F 



COMMON DATA SEGMENT 
GLOBAL SYMBOL DICTIONARY 
ESD TABLE INDEX 
LOAD AREA BOUNDS 

LOWEST LOADED ADDRESS 



* 834. 

* 835. 

837. 

339. 
840. 
841 . 
842. 
843. 
844. 



m 
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LCC OBJECT CODE 

0C041O 
000414 
CCC415 
000416 
000417 
CCC418 

CCCCCC 



A00R1 ADDR2 



TMT 


SOURCE 


STATEMENT 


689 


ENTRYPT 


DS 


F 


690 


ENTRYSET 


DS 


X 


691 


INIT 


DS 


X 


692 


LOADERR 


DS 


X 


693 


8LANK 


DS 


C 


6 94 


ERRBUF 


DS 


CL132 


696 


AftXGOROl 


CSECT 





LOADED PROGRAM ENTRY POINT 
SET IFF ENTRY AODR VALID 
SET TO INITIALIZE LOADER TABLES 
NON-ZERO IFF LOADING ERROR 

ASSEMBLY AREA FOR ERROR MESSAGES 



22 DEC 69 

845. 
846. 
847. 
848. 
849. 
850. 

852. 



• 
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LCC OBJECT CQOE 



ADDRi AD0R2 STMT 



SOURCE STATEMENT 



22 DEC 69 



698 :*****************#**#*********##*******#* 854. 

699 * GETCARD * 855. 

700 * SUPPLY 80 CHARACTER INPUT RECORD, DETECT SYSTEM CONTROL CARDS * 856. 

701 * RO = ADDRESS OF RECORD DESTINATION, CC := 1 FOR END-GF-FILE * 857. 

702 *#************■*****#*##*****#**#******** 858. 



0OC8S8 



704 GETCARD DS 



OH 



GET CARD IMAGE 



860, 



C0C898 










706 




USING 


GETCARD, 3 




862. 


C0C898 


90E6 


3324 




0088C 


707 




STM 


14,6,SSAV£ 


SAVE REGISTERS 


863. 


00C89C 


1820 








708 




LR 


2,0 


SAVE DESTINATION ADDRESS 


864. 


CCC89E 


95FF 


33 FA 


00C92 




709 


READO 


CLI 


ENDDS,X»FF» 


TEST FOR PREVIOUS END OF DS 


865. 


0OC8A2 


4 7 70 


3016 




C08AE 


710 




BNE 


READ1 




866. 


0008A6 


58C0 


3228 




OOACO 


711 




L 


12,=AIAWXG0R0l) 


REESTABLISH ADDRESSING 


867. 


CCCCCC 










712 




USING 


AWXGDR01,12 




868. 


00C8AA 


47F0 


C2D6 




00206 


713 
714 




B 
DROP 


CLEANUP 
12 


TERMINATE SUBSYSTEM 


869. 
870. 


C008AE 


4860 


3314 




008 AC 


716 


REA01 


LH 


6,ISTATE 


FETCH STATE OF INPUT SYSTEM 


872. 


000882 


1266 








717 




LTR 


6,6 


TEST FOR STRAIGHT READ 


873. 


CCC8B4 


4780 


3028 




0G8CO 


718 




8Z 


RDRl 




874. 


CO C 888 


4960 


3234 




COACC 


719 




CH 


6,=AL2IS8) 


TEST FOR STREAM B 


875. 


000 SBC 


4770 


3044 




0080C 


720 




8NE 


RDR2 




876. 


CCC8CC 


1802 








722 
723 


RDRl 


LR 
GET 


0,2 
SYSIN»«0) 


RESTORE RO 

GET NEXT RECORD 


878. 
879. 


0C08CC 


95FF 


33FC 


00C94 




727 




CLI 


REREAD, X'FF* 


TEST FOR SUCCESSFUL TRANSFER 


880. 


CCC8DC 


4770 


30CC 




00964 


728 




BNE 


READ2 


(SET BY EXIT ROUTINE! 


881. 


0OC804 


9200 


33FC 


00C94 




729 




MVI 


REREAD, 




882* 


0CC808 


47F0 


3028 




G08CO 


730 




B 


RDRl 


REISSUE GET 


883. 


CCC8DC 


1842 








732 


RDR2 


LR 


4,2 


UNPACK CARD IMAGE FROM MODULE 


885. 


0CC8CE 


5850 


3310 




008A8 


733 




L 


5,INEXT 


R4 = DESTINATION, R5 = SOURCE 


886 . 


0CC8E2 


924C 


4000 


00000 




734 




MVI 


0(4), C* ■ 


BLANK DESTINATION 


887. 


CCC8E6 


024E 


40 CI 4000 


GQ0G1 


00000 


735 




MVC 


1179, 4), 014} 




888. 


C0C8EC 


1B00 








736 




SR 


0,0 




889. 


CCC8EE 


4300 


5000 




00000 


737 




IC 


O,0C,5) 


RO = PACKED CHAR COUNT FOR LINE 


890. 


0008F2 


1200 








738 




LTR 


0,0 


TERMINATED 8Y 


891. 


CCC8F4 


47 70 


30 72 




0G9OA 


739 




BNZ 


RDR3 




892. 


00G8F8 


92FF 


33FA 


O0C92 




740 




MVI 


ENDDS,X»FF« 


SET FLAGS 


893. 


00C8FC 


92FF 


33F9 


00C91 




741 
742 




MVI 

DELETE 


EOF»X*FF* 

EPLOC=EPNAME 




894. 
895. 


COG 90 6 


4 7FC 


3102 




0099A 


745 




B 


READ5 


EXIT 


896. 


C0C9GA 


1A05 








746 


R0R3 


AR 


0,5 


STEP BUFFER LINE POINTER 


897. 


CCC9CC 


5000 


3310 




008A8 


747 




ST 


OtlNEXT 




898. 


CCC91C 


1B11 








748 




SR 


1,1 




899. 


CCC312 


4150 


5001 




00001 


749 




LA 


5,1(,5I 


STEP PAST CHAR COUNT 


900. 


CCC916 


1950 








751 


RDR4 


CR 


5,0 


TEST FOR COMPLETION OF LINE 


902. 


0CC918 


4780 


3082 




CC94A 


752 




BE 


RDR7 




903. 


0CC91C 


4310 


5000 




00000 


753 




IC 


1,01,5} 




904. 


CCC920 


5910 


32 2C 




00AC4 


754 




C 


l,*XL* , 80» 


BLANK COUNT IF BIT = 


905. 


000924 


4780 


3098 




CO 9 30 


755 




BNL 


RDR5 




906. 


0CC928 


4150 


5001 




00001 


756 




LA 


5,U,5) 


STEP SOURCE POINTER 


907. 



• 
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LCC OBJECT COOE 



AODRl ACCR2 STMT 



CC93C 
00AC4 
00*) 44 
00002 
00001 
0C916 



000944 0200 4000 5001 OOOOC 00001 



GCC92C 


4 7F0 


30 A 4 


CCC93C 


5810 


32 2 C 


CCC934 


4410 


30 AC 


CC0S38 


4151 


5002 


00C93C 


4141 


4001 


CCC54C 


47FC 


30 7E 



00G94A 4960 3236 
G0C94E 4770 30CC 



OOACE 
00964 



000952 0506 2000 3238 00000 00 ADO 

00964 
C0C02 
0G8CO 



CCC558 


4770 


30CC 


CCC95C 


4160 


0002 


OC0960 


47F0 


3028 


CC0964 


4060 


3314 


0CC968 


956C 


2)00 


000960 


4770 


3102 


CCC97C 


0504 


2001 


000976 


47 70 


30F4 


0CC97A 


92FF 


33 F 8 


0C097E 


D24F 


33A8 


CCC984 


92FF 


33 F9 


CCC588 


47FC 


3102 


0CC98C 


0502 


2001 


000992 


4770 


3102 


CCC9^6 


52FF 


33F9 



O0G99A 9500 33F9 
CCC99E 98 E6 3324 
CGC9A2 C7F2 



0009A4 
CCCSA8 
00C9AC 

00G9B0 
CCC9B4 
0CC9B8 
0CC98C 



0CC9C0 
CC09CO 
CCC9C4 
0009C4 
0CC9C8 
CCC9CC 
0009C0 
CC05D4 
C0C9D6 
00C9CA 



4960 3234 
4770 31 1C 
4160 0003 
47 FO 3044 
92FF 33F9 
92FF 33FA 
47FC 3102 



850009C4 



9608 
9500 
4770 
92FF 
C7FE 
92FF 
07FE 



F14C 
F2CF 
F012 
F2CF 

F200 



323F 



2000 



00000 

00001 

00C90 
0OC40 
00C91 



3244 OO0C1 
00C91 

O0C91 



00C91 
00C92 



OOBAC 

0099A 
OOA07 
CG98C 

ooooo 

0099A 
OOAOC 
0C99A 



OOBBC 



GCACC 
009B4 

00003 
CC8DC 



009 9A 



00810 
00C93 

00C93 

O0CS4 



00906 



757 
758 
759 
760 
761 
762 



SOURCE STATEMENT 



8 R0R6 

RDR5 S 1,=XL4'80« 

EX l,RDRMOVE 

LA 5,2(1,5) 

R0R6 LA 4,1(1,4) 

B RDR4 



764 R OR MOVE MVC 



766 R0R7 

767 

768 

769 

770 

771 

773 READ2 

774 

775 

776 

777 

778 READ3 

779 

780 

781 

782 READ4 

783 

784 

786 READ5 

787 
788 

790 ENOROR 

791 

792 

793 

794 EN0RDR1 

795 

796 

797 



0(0, 4), 1(51 



CH 6,=AL2(SA1) 

8NE REA02 

CLC 0(7,2),-C i $INSERT* 

8NE REA02 

LA 6, SB 

8 R0R1 

STH 6, 1ST ATE 

CLI 0(2>,C»$g« 

BNE READ5 

CLC 1(5,2 ), = C*ALGOL» 

BNE REA04 

MVI CONTCARO,X»FF» 

MVC C0N8UFF(80),0<2) 

MVI EOF,X»FF« 

B READS 

CLC 1(3,2 ),=C«EOF» 

BNE REA05 

MVI EOF,X»FF* 

CLI EOF,0 

LM 14,6,5SAVE 

BR 2 

CH 6,=AL2(SB) 

BNE EN0R0R1 

LA 6,SA2 

B R0R2 

MVI EGF,X'FF» 

MVI £NQDS»X»FF» 

B READ 5 

DROP 3 



799 AOCBEXIT DS OF 

800 DC X«85*,AL3(DCBEXIT) 

801 USING DC8EXIT,15 

802 DC8EXIT 01 SYSIN+GFLGS, X* 08* 

803 CLI RDRSTAT,0 

804 BNE SETRETRY 

805 MVI RDRSTATjX^FF* 

806 BR 14 

80? SETRETRY MVI REREAD, X»FF» 

808 BR 14 

809 DROP 15 



CHAR COUNT IF BIT * i 
MOVE CHAR STRING 
STEP SOURCE POINTER 
STEP DESTINATION POINTER 



EXECUTED 

TEST FOR STATE Al 

AND »$INSERT* CARD 

SET STATE TO 6 

AND READ CARD RECORD 

SAVE STATE 

TEST FOR POSSIBLE CONTROL CARD 

CAN BE »»%ALGOL", 

INDICATE CONTROL CARD FOUND 
SAVE CARD IMAGE 
SET JOB END-OF-FILE 

TEST FOR "SEOF" 

SET JOB END-OF-FILE 

SET CONDITION CODE 
RESTORE REGISTERS 

OS END OF DS EXIT ROUTINE 

IF STATE » 8, SET STATE = A2 

AND UNPACK CARD FROM 8UFFER 
OTHERWISE, SET FLAGS AND EXIT 
SET JOB AND SYSTEM EOF 



DC3 EXIT LIST (SYSIN) 

EXIT ROUTINE FOR CONCATENATION 

SET UNLIKE ATTRIBUTES BIT 
TEST FOR INITIAL ENTRY 

INITIAL OPEN - SET STATUS 

NOT INITIAL OPEN - SET REREAD 
(CONCATENATION - NO TRANSFER} 



22 DEC 69 

908. 
909. 
910. 
911, 
912. 
913. 

915. 

91.7. 
918. 
919. 
920. 
921. 
922. 

924. 
925. 
926. 
927. 

928. 
929. 
930. 
931. 
932. 
933. 
934. 
935. 

937. 

938. 
939. 

941. 
942. 
943. 
944. 
945. 
946. 
947. 
948. 

950. 
951. 
952. 
953. 
954. 
955. 
956. 
957. 
958. 
959, 
960. 



m 

m 
m 



n m * m m<m m, 
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LGC OBJECT CODE 



ADDP1 ADCR2 STMT 



SOURCE STATEMENT 



22 DEC 69 



81 1 *********************************************************************** 962. 

812 * PUT LINE * 96?. 

813 * ACCEPT 132 CHARACTER OUTPUT STRING AND USASI CONTROL CODE * 964, 

814 * RO = ADDRESS OF STRING, Rl « CONTROL CHARACTER * 965. 

815 ********************** ****************** ******************************* 966. 



CCC9DC 



817 PUTLINE DS 



OH 



PRINT LINE IMAGE 



968. 



CC09DC 






CCCSDC 


9200 


3289 


0009EC 


90E2 


31E0 


CCC9E4 


1820 




0CG9F0 


D283 


10 01 


0C09F6 


5820 


31EC 


0CC9FA 


4220 


1000 


OCOSFE 


9300 


32 8 A 


COCAC2 


4770 


3034 


C00AC6 


S26G 


102 7 


CGOAGA 


C2C7 


102A 


CCCA1G 


98E2 


31E0 


G0GA14 


9300 


3239 


OOGA18 


4770 


3042 


0CCA1C 


C7F2 




00CA1E 


1800 




CCCA2C 


4170 


0002 


0QCA24 


0203 


3260 


0GCA2A 


4180 


32 5C 


0QCA2E 


58FC 


31D8 


CCCA32 


052F 




C00A34 


5810 


CO 04 


CCCA38 


C7FI 





819 USING PUTLINE, 3 

00C95 820 MVI OUTSYNCH,0 

008BC 821 STM 14,2,SSAVE 

822 LR 2,0 

823 PUT SYSOUT 

827 MVC 1(132,1), 0(2) 

828 L 2,SSAVE+12 

829 STC 2,01,1) 

830 TS XMIT 

831 8NZ WRITEO 

832 MVI 39(l),C«-» 

833 M VC 42 ( 8 , 1) , E PNA ME 

834 WRITEO LM 14,2,SSAVE 

835 TS OUTSYNCH 

836 8NZ WRITE 1 

837 BR 2 

839 WRITE1 SR 0,0 

00002 840 LA 7,2 

OCBCC 841 MVC TIMEPSW+4(4) »SSAVE*16 

00C38 842 LA 8,TIMEPSW 

00884 843 L 15,AERR0R 

844 8ALR 2,15 

000C4 845 L 1,RETA(,12) 

846 BR 1 

847 DROP 3 



2000 00001 00000 
00BC8 
00000 
G0C96 

00A10 
00027 
31C4 0002A OOBAO 
OOBBC 
00C95 

00A1E 



31F0 00C3C 



INDICATE ENTRY TO WRITE 

SAVE ADDRESS 

LOCATE NEXT SUFFER, Rl :« ADDR 

MOVE LINE IMAGE 

PREFIX CONTROL CHARACTER 



INSERT MODULE NAME IN HEADER 



INDICATE EXIT 

IF SET, TTME-OUT DURING WRITE 



CALL ERROR PROCESSOR 
CONSTRUCT PSEUDO-PSW 



GET RETURN ADDR FROM 
TERMINATE EXECUTION 



OUTER BLOCK 



970. 
971. 
972. 
973. 
974. 
975. 
976. 
977. 
978. 
979. 
980. 
981. 
982. 
983. 
984. 
985. 

987. 
988. 
989, 
990. 
991. 
992. 
993, 
994. 
995. 






849 *********************************************************************** 997. 

850 * PUTCARD * 998, 

851 * ACCEPT 80 CHARACTER OBJECT OUTPUT STRING * 999. 

852 * RO = ADDRESS OF STRING, Rl = ADDRESS OF HIGHEST COMMON IN USE * 1000. 

853 *********************************************************************** 1001. 



GCCA3A 



855 PUTCARD DS 



OH 



PUNCH CARD IMAGE 



1003. 



0O0A3A 

QQ0A3A 90BF 3182 
CCCA3E 58FG 308E 
C0CA42 C5EF 
00CA44 98BF 3182 
GGCM8 C7F2 





857 


USING 


PUTCARD, 3 


OOBBC 


858 


STM 


11,15,SSAV£ 


00AC8 


859 


L 


15,=V(L0ADCARD) 




860 


8ALR 


14,15 


OOBBC 


861 


LM 


U,15,SSAVE 




862 


BR 


2 




863 


DROP 


3 



SAVE REGISTERS 
PROCESS CARD IMAGE 

(Rll, R14, R15 DESTROYED) 



1005. 
1006. 
1007. 
10H8. 
1009. 
1010. 
1011. 
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LCC OBJECT CODE 



A00R1 AD0R2 STMT 



SOURCE STATEMENT 



22 DEC 69 



865 *******************************************************^ 1013. 

866 * GETMAIN * 1014. 

867 * SUPPLY VARIABLE-LENGTH FREE STORAGE AREA * 1015. 
863 * R0,R1 = MINIMUH, MAXIMUM LENGTH, RO := ADDRESS, Rl s* LENGTH * 1016. 

869 ********** *********************** ***********************#************** 1017. 



CCCA4A 

CCCA4A 
0OCA4A 
000A4E 
CCCA52 



871 GETHAIN DS 



OH 



OBTAIN FREE STORAGE 



90 OF 3172 
41 DO 3196 
9001 31DE 



000A68 9801 31E6 
0CCA6C C8DF 3172 
C00A70 G7F2 





873 


OCBBC 


874 


OOBEO 


875 


00C28 


876 




877 


00C3Q 


885 


008 ec 


886 




887 




888 



USING 

STM 

LA 

STM 

GETMAIN 

LM 

LM 

BR 

DROP 



SUPPLY SAVE AREA 



GETMAIN, 3 

13,15,SSAVE 

13tXSAVE 

0,1,SREQUEST 

VU,LA=SREGUEST,A=SOESCRIP, SP=0 ISSUE GETMAIN 

0,1,SDESCRIP RETURN STORAGE DESCRIPTION 

13,15,SSAVE 

2 

3 



1019. 

1021. 
1022. 
1023. 

1024. 
1025. 
1026. 
1027. 
1023. 
1029. 



890 ************************************************************#*********# 1031. 

891 * FREEMAIN * 1032. 

892 * RETURN FREE STORAGE AREA TO SYSTEM * 1033, 

893 * RO = ADDRESS, Rl = LENGTH * 1034. 

894 ********************** ***************:***>^********^ 1035. 



CCCA72 

00CA72 
CCCA72 
CG0A76 
CC0A7A 



896 FREENAIN DS 



9001 314A 
4100 316E 
9001 318E 



CCCA9C 98D1 
00CA94 C7F2 



3 14 A 



00 BBC 
OOBEO 
OOC 30 

00B8C 



898 
899 
900 
901 
902 
910 
911 
912 



OH 

USING FREEMAIN, 3 

STM 13,1,SSAVE 

LA 13,XSAVE 

STM 0,1,SCESCRIP 
FREEMAIN V, A= 3DE SCRIP, SP=0 

LM 13,1,SSAV£ 

BR 2 

DROP 3 



RELEASE FREE STORAGE 



SUPPLY SAVE AREA 
SET UP 

AND ISSUE FREEMAIN 



1037. 

1039. 
1040. 
1041. 
1042. 

1043. 
1044. 
1045. 
1046. 



• 



914 *********************************************************************** 1048. 

915 * GETTIME * 1049. 

916 * OBTAIN ELAPSED TIME IN OS TIMER UNITS (1 OS TU = 2 MACHINE TU) * 105H. 

917 * RO := ELAPSED TIME * 1051. 
91.8 *********************************************************************** 1052. 



CCCA96 



920 GETTIME DS 



OH 



GET ELAPSED COMPILATION TIME 



1054. 



OC0A96 

CCCA96 90D1 3126 

0C0A9E SFGO 311 A 
0CCAA2 1300 



00 BBC 
QGBBO 



922 
923 
924 

927 
928 



USING 


GETTIHE,3 


STM 


13,1, SSAVE 


TTIMER 




SL 


0,TIMEINIT 



LCR 



COMPUTE ELAPSED TIHE 



0,0 



1056. 
1057. 
1058. 

1059. 
1060. 
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LCC OBJECT CODE 



ADDR1 ACCR2 STMT 



SOURCE STATEMENT 



GC0AA4 
OOCAA8 
C CCA AC 



980F 3126 
5810 3136 
C7F2 



008BC 


92 9 


OOBCC 


930 




931 




932 



LM 13, 15, SSAVE 

L USSAVE+16 

BR 2 

DROP 3 



934 ******************************************************* 1066. 

935 * GETCLOCK * 1067. 

936 * OBTAIN TIME OF DAY IN OS TIMER UNITS ( 1 OS TU = 2 MACHINE TU ) * 1068. 

937 * RO :« TIME OF DAY * 1069. 

938 *********************************************************************** 1070. 



COOAAE 

COOAAE 

CGCAAE 90DI 310E 

CCCAE6 S8CF 310E 
CC0A8A 5810 31 IE 
OCCABE C7F2 



OCOACO 

CCCACC cocooooo 

GG0AC4 00000080 

000 AC 8 CO CO 0000 

OCOACC 0002 

OOGACE 0001 

CCCACC 58C905E2C5D9E3 

COG AC 7 C103C7D6D3 

CCCACC C5C6C6 



OOBBC 

00 BBC 
OOBCC 



940 GETCLOCK DS 



942 

943 
944 
947 
948 
949 
950 



952 

953 
954 
955 
956 
957 
958 
959 
960 



OH 



USING 


GETCLOCK, 3 


STM 


13 f lt SSAVE 


TIME 


TU 


LM 


13, 15 f SSAVE 


L 


ltSSAVE+16 


BR 


2 


DROP 


3 



GET TIME OF DAY 



OBTAIN TIME OF DAY 



LTORG 



-ACAWXGOROU 

=XL4«80» 

=V(L0ADCAR9) 

=AL2tS8) 

=AL2(SAl) 

=C»$INSERT» 

=C» ALGOL* 

=C*EOF» 



1072. 

1074. 

1075. 
1076. 
1077. 
1078. 
1079. 
1080. 



1082, 



21 



22 DEC 69 

1061, 
1062. 
1063. 
1064. 
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LCC OBJECT CODE 



AQOR1 ACCR2 STMT 



SOURCE STATEMENT 



0O0EAO 
000EA8 
0008AC 
0C0B8C 
OCCBB4 
C0CBB8 
0CGB8C 
CCCBEC 
Q0CC28 
0C0C3C 
000C38 
CCOCAO 
0COC90 
C0CC9 1 
CC0C92 
CCCC93 
0CCC94 
OCOC95 
00CCS6 



ccoooo 

000030 

ocoooo 



962 


SYSIN 


DC 


963 






1020 


SYSOUT 


DC 


1077 


EPNAME 


OS 


1078 


INEXT 


OS 


1079 


I STATE 


OS 


1080 


TIMEINTT 


DS 


1081 


AERROR 


DS 


1082 


ARUNDSEG 


OS 


1083 


SSAVE 


DS 


1084 


XSAVE 


DS 


1085 


SREQUEST 


OS 


1086 


SOESCRIP 


DS 


1087 


TIMEPSH 


DS 


1088 


CONBUFF 


DS 


1089 


CONTCARO 


OS 


1090 


EOF 


DS 


1091 


ENDDS 


DS 


1092 


R OR ST AT 


DS 


1093 


REREAD 


DS 


1094 


OUT SYNCH 


DS 


1095 


XMIT 


DS 



1097 



OSGRG=PS,MACRF=GM t DDNAME=SYSIN,DEVD=DA,RECFM=FB, 
LRECL=80,8FTEK=S,ER0PT=ABg,EOOA0=ENDRDR, 
EXLST=ADCBEXIT 
*,*** IH0O63 DQNAME SHORT-PADDED TO 8 CHAR 

DSORG=PS,MACRF=PL,D0NAME=SYSPRINT,UEVD"CA,RECFM=F8A f 
LRECL=133,BFTEK=S,ERQPT=ABE 



2F 

A 

H 

F 

A 

A 

9F 

18F 

2F 

2F 

2F 

CL80 

X 

X 

X 

X 

X 

X 

X 



DC8D DSORG=PS,DEVD=DA 



PROCESSOR 
DATA SEG 



1204 


AWXGDR01 CSECT 




1205 


GFLGS EQU 


DCBOFLGS 


1206 


ENO 


AWXGDR01 



•IHA0C8 



SOURCE MODULE NAME 

SOURCE BUFFER POINTER 

INPUT SYSTEM STATE 

INITIAL TIMER SETTING 

AODR OF ALGOLRUN ERROR 

ADOR OF ALGOLRUN FIXED 

LOCAL SAVE AREA 

LOCAL SAVE AREA ( GET/FREEMAI N) 

STORAGE REQUEST BOUNDS 

STORAGE ALLOCATION DOPE VECTOR 

PSEUDO-PSW FOR TIMER TRAP 

CONTROL CARD BUFFER 

ON IF COMBUFF FILLED 

READER END-OF-FILE FOR JOB 

READER END-OF-FILE FOft SYSTEM 



SET IF PUTCARD FREE OR TIME-OUT 
RESET TO DISPLAY MODULE NAME 

SYMBOLIC OCB DESCRIPTION 



DCB OFLGS DISPLACEMENT 



22 DEC 69 

11084. 

21085. 

1086. 



11083. 
1089. 

1091. 
1092. 
1093. 
1094. 

1095. 
1096. 

1097. 
1099. 
1099. 
1100. 
1101. 
1102. 
1103. 
1104. 
1105. 
1106. 
1107. 
1108. 
1109. 



1111. 

1113. 
1114. 
1115. 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
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IEF285I T123.PLLI8 

IEF285I VOL SER NOS= SYS11 . 

IEF285I SYSl.MACLIB 

IEF285I VOL SER NOS= SYSCO . 

IEF285I SYS2.DCLIB 

IEF285I VOL SER NOS= SYSOl . 

IEF285I SYS2.DUMMYMAC 

IEF285I VOL SER NOS= SYSOl . 

IEF285I SYS1.UT1 

IEF285I VOL SER NOS= CAHP09. 

IEF285I SYS1.UT2 

IEF285I VOL SER NOS= SYS02 . 

IEF265I SYSL.UT3 

IEF285I VOL SER NOS= SYSC3 . 

IEF285I SYSQUT 

IEF285I VOL SER NOS= 

IEF285I LOADSET.XALGQL 

IEF285I VOL SER NOS= SYS02 . 

//LKEC EXEC PGM=IEftL,PARM=<LET, LIST, MAP), COND= 

//SYSLIN DO DSNAME=£LOADSET,OISF=(GLD, DELETE) 

// CD QDNAME=SYSIN 

//LKEC.SYSLMQD CD DSNAM£=SYS2 .H ISPEED,DI SP=*OLD,KEEP ) 



PASSED 
KEPT 



KEPT 



KEPT 



KEPT 



KEPT 



KEPT 



SYSQUT 



PASSED 



<5,LT,ASM) 



//SYSLPOD DD 

// 

//SYSLT1 DO 

//SYSPRINT DO 

//SYSLI8 00 

// 00 

// DD 



DSNAME=£GOSEH GO), UMT=2U4,SPACE=(CYL, { 12,1,1)), 
OISP=( MOD, PASS) 

DSNAHE=SYS1.UT1,DISP*0LD,DCB={KEYLEN=0) 
SYSOUT=A 

DSNAME=SYSl,FORTL£B f DISP=OLD 
0SNAME=SYS2.SSPL IB,D£SP=OL0 
DSNAME=SYS2.SUeLIBi,DISP=0LO 



//LKEC.SYSIN DO * 
IEF236T ALLOC. FOR XALGOL 



00001200 
00001300 
00001400 
1117. 
*0 00 01 500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
1120. 



LKEO 



ASH 



IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 
IEF237I 



JOBLIB 
SYSLIN 

SYSLMOD 

SYSUT1 

SYSLI8 



ON 
ON 
ON 
ON 
ON 
ON 
CN 
ON 



434 

330 
OOC 
430 
1C1 
331 
430 
430 






• 
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F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LET,LIST t MAP 
VARIABLE OPTIONS USED - SI ZE=(256000 ,51200 > 

IEWCCOC NAME XALGCLW(R) 



DEFAULT OPTION! S) USED 
1121. 



HODULE MAP 



CONTROL SECTION 

NAKE ORIGIN LENGTH 



ENTRY 

NAME 



LOCATION 



NAME 



LOCATION 



NAME LOCATION 



NAME 



LOCATION 





LOADCARD 00 


3D 8 


m 


ENCLCAD 303 


258 




AWXGCROl 630 


C9 7 




$BLANKCOM 12C8 


55€ 


m 








ENTRY ADDRESS 


630 


m 


TOTAL LENGTH 


1820 



****XALGOLW DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 



m 



# 
• 

• 



• 
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IEF265I 


T123.PLLIB 




• 


[EF285I 


VOL SER NOS= 


SYSll 




IEF285I 


LCADSET.X ALGOL 




[EF265I 


VOL SER NQS= 


SYS02 


* 


[EF285I 


SYS2.HISPEED 






[EF285I 


VOL SER NOS= 


SYSOl 




IEF285I 


SYSl.UTl 




• 


IEF285I 


VOL SER NQS= 


CAMPO 




IEF285I 


SYSOUT 






IEF285I 


VOL SER NOS= 




• 


IEF285I 


SYS1.FORTLI8 






[EF285I 


VOL SER NQS= 


SYSOO 




IEF285I 


SYS2.SSPLIB 




• i 


[EF285I 


VOL SER NOS= 


SYSOl 




IEF285I 


SYS2.SUBLIB1 






IEF285I 


VOL SER NOS= 


SYSOl 


• 


[EF285I 


T123.PLLIB 






[EF285I 


VOL SER NOS= 


SYSll 



PASSED 
DELETED 

KEPT 

KEPT 

SYSOUT 

KEPT 

KEPT 

KEPT 

KEPT 






m 



HASP 



JOB STATISTICS 
167 I/O CALLS 



1,120 CARDS READ — 

390 SVC CALLS 



1,210 LINES PRINTED — CARDS PUNCHED - 

0.31 MINUTES CPU TH TIME= 18:04:4-1 



0.58 MINUTES EXECUTION TIME 
DAT£= 12/22/69 
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BIN 
BIN 
BIN 
BIN 
8IN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 

bin 

BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 



914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

<S14 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 

914 
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SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


EO 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


X f£ f £*.. 4& 


END 


ED 


SEQ 


18 


EO 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


EO 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


EO 


SATTERTHWAITE 


END 


18 :04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18 :04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18 :04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


EO 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18 :04 


12/22 


END 


ED 


SEQ 


18 


EO 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18 :04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


EO 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


EO 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 


18 


ED 


SATTERTHWAITE 


END 


18:04 


12/22 


END 


ED 


SEQ 18 ED 


SATTERTHWAITE 


END 


18:04 12/2 2 


END 


ED 



SATTERTHWAITE 
SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 
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SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 



SEQ 


13 


SEQ 


18 


SEQ 


18 
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13 
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18 
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13 
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13 
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18 
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13 
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18 
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13 
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18 


SEQ 


13 
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13 


SEQ 


13 


SEQ 


13 


SEQ 


18 


SEQ 


19 


SEQ 


18 


SEQ 


13 


SEQ 


18 


SEQ 


18 


SEQ 


13 


SEQ 


13 


SEQ 


13 


SEQ 


18 
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18 
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18 


SEQ 


18 
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13 
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18 
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13 
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13 
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18 
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18 
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13 


SEQ 


18 


SEQ 


13 
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18 
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18 
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18 
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13 


SEQ 


13 
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13 
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18 


SEQ 


13 



BIN 914 
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• 


BIN 914 
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• 


BIN 914 
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• 
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• 
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• 
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BIN 914 
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• 


BIN 914 




BIN 914 




BIN 914 


; • 


BIN 914 


! 


BIN 914 




BIN 914 


• 


BIN 914 




BIN 914 




BIN 914 


; m 


BIN 914 




BIN 914 




BIN 914 
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BIN 914 




BIN 914 




BIN 914 
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• 


BIN 914 




BIN 914 




BIN 914 


m 


BIN 914 




BIN 914 
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914 


♦PUNCH* 


SEQ 


951 


BIN 


914 


* PUNCH* 
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914 
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951 
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9 14 
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SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAI TE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 

SATTERTHWAITE 



START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

. ST ART 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 
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17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 

17 
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17 

17 

17 
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17 

17 

17 

17 

17 
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17 

17 
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17 

17 

17 
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51 
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51 
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51 

51 
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51 
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51 
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51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 

51 



START 17:51 



02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/C7 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02 /C7 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAI TF 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/G7 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/C7 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

.02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 

02/07 START SATTERTHWAITE 



SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


* PUNCH* 


BIN 


914 • 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEG 


951 


♦ PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 • 


SEQ 


951 


* PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 a 


SEQ 


951 


♦PUNCH* 


BIN 


914 • 


SEQ 


951 


*PUNCH* 


BIN 


914 


SEQ 


951 


* PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCHY 


BIN 


914 • 


SEQ 


951 


♦PUNCHY 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 a 


SEQ 


951 


*PUNCH* 


BIN 


914 W 


SEQ 


951 


* PUNCH* 


BIN 


914 


SEQ 


951 


*PUNCH* 


BIN 


914 


SEQ 


951 


♦ PUNCH* 


BIN 


914 • 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 m, 


SEQ 


951 


♦ PUNCHY 


BIN 


914 • 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦ PUNCHY 


BIN 


914 a 


SEQ 


951 


♦PUNCH* 


BIN 


914 • 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦ PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 • 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 •' 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 a 


SEQ 


951 


* PUNCH* 


BIN 


914 • 


SEQ 


95 1 


♦ PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦ PUNCH* 


BIN 


914 W 


SEQ 


951 


♦ PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦ PUNCH* 


BIN 


914 W 


SEQ 


951 


*PUNCH* 


BIN 


914 


SEQ 


951 


*PUNCH* 


BIN 


914 


SEQ 


951 


* PUNCH* 


BIN 


914 •: 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCHY 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 • 


SEQ 


951 


* PUNCH* 


BIN 


914 


SEQ 


951 


* PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 • 


SEQ 


951 


♦PUNCHY 


BIN 


914 


SEQ 


951 


♦PUNCHY 


BIN 


914 a 


SEQ 


951 


♦PUNCHY 


BIN 


914 • 


SEQ 


951 


♦ PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


* PUNCH* 


BIN 


914 • 


SEQ 


951 


* PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


9 14 A 


SEQ 


951 


* PUNCH* 


BIN 


914 • 


SEQ 


951 


♦PUNCH* 


BIN 


914 


SEQ 


951 


♦ PUNCH* 


BIN 


914 


SEQ 


951 


♦PUNCH* 


BIN 


914 • 


SEQ 


951 


♦PUNCHY 


BIN 


914 


SEQ 


951 


♦ PUNCH* 


BIN 


914 



in h i , i iiip w iwmwi 



HASP 



SYSTEM 



L G 



NO MESSAGES LOGGED FOR THIS JOB 



// 

//MGNASM JQB ( T 123*** ,914, 1, 2, 5CC ) , SATTERTHWAITE, MSGLEVFL = 1 JOB 951 

//STEP EXEC ASMC-CL,PARM.ASM=«NCLOAr, DECK, ESQ, FULLXREF' 

//ASf EXEC PGI»sASMGASM,PARM»LCArc,NOneCK,FULLXREF,ESn» OCOOOOOO 

V/SYSLIB DO DSNAME*SYSl.MACLIB,OISP=OLO OOOOOIOO 

// CD CSNAME=SYS2.DCLIE,CISP=0L0 00000200 

// DO DDNAME=MACLIB 00000300 

//MACLIE CC CSNAME=SYS2.DUMMYMAC t OISP=OL0 00000400 

//SYSITi DD OSNAME=SYS1.UT1,CISP-QLC,CCB=<KEYLEN=0,BLKSIZE=3520) 00000500 

//SYSLT2 DO DSNAME=SYS1.UT2,CISP=OLD,DCB=(KEYLEN=0,BLKSIZF=3520) 00000600 

//SYSLT3 CC CSNAME=SYS1.UT3,DISP=OLD,DC3=(K£YLEN=0,BLKSIZE=3520) 00000700 

//SYSPRIKT DO S>50UT=A 00000800 

//SYSLIN DO DSNAME=&L0ADSET,UNIT=2314,SPACE=(CYL,( 3,11) , *00000900 

// D1SP=(MCD,PASS >,CCe=(LRECL=80,8LKSIZE=3200,RECFM = FB) OCOOIOCO 

//SYSPUNCH DD UNIT = SYSCP 00001100 

//ASM.SYSIN CC * 

IEF23CI ALLOC. FCR MGNASM ASM STEP 

IEF237I SYSL18 ON 235 

IEF237I CN 331 

IEF237I CN 331 

IEF237I SYSLT1 CN ICO 

IEF237I SYSLT2 CN 230 

IEF237I SYSUT3 ON 3 30 

IEF237I SYSLIN CN 230 

IEF23 7I SYSPUNCH CN 010 

IEF237J SYSIN ON OOC 



^ Wl pW TWi m w WWWM I PM M^ 



OS/360 ASSEMBLER 

LEVEL=G RELEASE=12JUL68 SYSTEM=MFT TIME=17il8 DAY=FRIDAY OATE= 7 FEB 69 

ASSEMBLER OPT XCNS=ESD , DECK , LI ST , NCRLD, NQI.Q AC, NGRENT, NQTEST ,EXTI ME = 5 ,NOBATCH , OVERLAY, UT8UFF=3 , FULL XREF , 

INSTSET=l f LlNfCNT=55 f NCGXECUTF. 
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EXTERNAL SYMBOL DICTIONARY 
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SYMBOL TYPE ID ADOR LENGTH LD ID 
ALGOLW02 SD Ci COOOCO C012BC 



7 FEB 69 



PAGE 



LOC OBJECT CCCE ADDR1 ACCR2 STMT 



SOURCE STATEMENT 



7 FE8 69 



i ICTL 1,71,18 FORMAT CONTROL 

2 ***************** ***************************#*********$**************** 

3 * * 

4 * ALGOL W SUB MONITOR * 

5 * SPECIAL OS INTERFACE FOR STUDENT ALGOL M JOBS * 

6 * STANFORD COMPUTATION CENTER, CAMPUS FACILITY * 

7 * E. SATTERTHWAITE * 

8 * JULY 1968 VERSION * 

9 * LAST MODIFIED 1 DECEMBER 1968 * 
10 * * 

1 1 ***************************************************************#*;****** 



000000 



13 * 

14 LCLB 

16 ALG0LW0 2 CSECT 



SSWAP 



ASSEMBLY CONTROL 

- RESIDENT, 



1 - OVERLAY 



00000/* 
C00CC9 
000008 



18 * 

19 I 

20 S 

21 T 



EQU 
EQU 
EQU 



SYMBOLIC REGISTERS 



10 

9 

8 



C1900C 
08000 G 
C008CC 
000084 
000 03 C 
000004 
00003 F 
000035 
C07FF8 
COO 00 A 
0001F4 



23 

24 
25 
26 
27 

2 8 
29 
30 
31 
32 
33 
34 
35 



* 

CCREMIN 

COREMAX 

SYSFREE 

LINELEN 

LINESMAX 

BUFMOD 

MAXUSEG 

MAXASEG 

RECLEN 

DEFTIME 

OEFLINES 

SSWAP 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
SETE 



100*1024 

512*1024 

2*1024 

132 

60 

1*4 

63 

53 

32760 

10 

500 

1 



MONITOR PARAMETERS 

MINIMUM STORAGE REQUEST 
MAXIMUM STORAGE REQUEST 
STORAGE RELEASED TO SYSTEM 
RECORD LENGTH FOR FT06F001 
MAX. LINES/PAGE FOR FT06F001 
1 PROGRAM BUFFER 
MAXIMUM USER SEGMENT NUMBER 
MAXIMUM ALGOL SEGMENT NUMBER 
MAXIMUM COMPILER RECORD LENGTH 
DEFAULT TIME LIMIT (SECONDS) 
DEFAULT LINE LIMIT 
SET ASSEMBLY OPTION 



CCOOOC 

C00004 18CF 

C00006 56EO CCD8 000D8 

OOOOOA 50E0 D008 0C0C8 

GOCOOE 5CD0 E004 00004 

000012 18DE 

000014 58B0 COCC OOOOC 

00004 C 

000018 0701 B216 8216 00F56 OOF 56 



000040 5010 B1E8 



OOF 28 



000054 9834 B3C0 01040 

000058 0203 8304 COEO 01044 000 EO 



0000.7C 5A30 COEO 



OOOEO 



37 
38 

39 
42 
43 
44 

45 
46 

47 
48 
49 

50 
60 

69 
70 
78 
79 
80 
88 



IPL 



COMPLETE OS LINKAGE 



ADDRESS DATA 



PRINT NOGEN 

USING IPL, 12 

SAVE (14,12) 

LR 12,15 

L 14,=A(SAVE) 

ST 14,8(,13) 

ST 13,4(,14) 

LR 13,14 

L 11,=A(JSDSEG) 

USING JSDSEG,11 

XC R0RSTATS(2) ,RDRSTATS CLEAR STATUS FLAGS 

OPEN (PRINTER, (OUTPUT) , READER, (INPUT) , SYSTEM, (INPUT) ) 

SPIE PROGINT, ((1,15)) CAPTURE PROGRAM INTERRUPTS 

ST 1,PIRESET SAVE PICA ADDRESS 

GETMAIN VU,LA=ASKLIST,A=GQTLIST OBTAIN ALL FREE STORAGE 

LM 3, 4, GO TL I ST 

MVC GQTL lST+4( 4 ),=A( SYSFREE) 

FREEMAIN V,A=GOTLIST RELEASE STORAGE FOR SYSTEM 

A 3, =A{ SYSFREE) 



*"l 1 1 II |H |.|1 Hill Illllll 
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PAGE 



LCC OBJECT COCE 



AOORl A0DR2 STMT 



SOURCE STATEMENT 
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000074 


5840 


COEO 


000 EC 


89 


S 


4,=A(SYSFREE) 


000078 


9034 


B3CC 


0104C 


90 


STM 


3,4,G0TLIST 


G0007C 


4130 


3 07 


00007 


92 


LA 


3,7( ,3) 


CGQ08C 


5430 


CCE4 


000E4 


93 


N 


3,=F«-8« 


000084 


1A4 3 






94 

95 


AR 
AIF 


4,3 

USWAP).L1 


000086 


4130 


30C4 


00004 


96 .LI 


LA 


3,4(,3) 


00008A 


5030 


81C0 


OOF 10 


97 


ST 


3,BUFADDR+0 


00008E 


5A30 


CCE8 


000 E8 


98 


A 


3,=F»65524' 


000092 


9034 


82C4 


010 04 


99 ,L2 


STM 


3,4,CQMMLIM 


000 96 


1854 






100 


LR 


5,4 


G00O98 


41C0 


0CC4 


000 C4 


101 


LA 


0,4 


00009C 


1B50 






1C2 


SR 


5,0 


00C09E 


50 50 


82CC 


010 10 


103 


ST 


SfORGP 


0000A2 


5050 


82C4 


01014 


1C4 

105 


ST 
TIME 


5,AP 
TU 


0000AA 


5010 


B2E8 


01028 


108 


ST 


It WORK 


0000 A e 


F343 


B2F3 E2E8 


010 33 010 28 


109 


UNPK 


DATE + 3L5) ,W0RK<4! 


00OQB4 


D2QI 


B2F2 82F3 


01032 010 33 


110 


MVC 


OATE+2(2J,DATE+3 


00008A 


9248 


82F4 


01034 


111 


MVI 


0ATE+4,C» .» 


OOOOBE 


58E0 


COEC 


000 EC 


112 


L 


14, = A*SUPVPRT) 


00000 C 








113 


USING 


PRT, 14 


0000C2 


5 880 


E128 


00128 


114 


L 


11 ,JSC8ASE 


OO0OC6 


58C0 


E12C 


0012C 


115 


L 


12,JSP8ASE 


00018€ 








116 


USING 


J08SEQ,12 


OOOOC fi 


C71F 


8 3EC 83 EC 


0112C 0112C 


117 

118 


XC 

AIF 


PCHKTBH 32) ,PCHKT8L 
USWAP).L3 


000000 


18 A A 






119 .13 


SR 


III 


0000D2 


47F0 


C020 


001A6 


120 ,L4 


8 


CYCLE 


OOOOD 8 








121 


LTORG 




OOO0D8 


00000F60 




12 2 




=A{ SAVE) 


000 CDC 


CCO00D40 




123 




=A( JSDSEG) 


000 GEO 


GGC008CC 




124 




=A(SYSFREE) 


000 0E4 


FFFFFFF8 




125 




=F'-8» 


000CE8 


CC0CFFF4 




126 




=F*65524» 


OOOOEC 


0000 114C 




127 




=A(SUPVPRT) 










128 


DROP 


11 










129 


DROP 


12 



SAVE STORAGE LIMITS 

ALIGN BOUNDARY 



SAVE COMMON BOUNDS 



GET TIME ANO DATE 



ZERO COUNT TABLE 



LOC OBJECT CODE 
OOOOOO 



OOOOFO 






OOOOFO 


90CF 


FE40 


00 OOF 4 


18CF 




OOOOFO 






0000F6 


9610 


CE66 


COO OF A 


4 ICO 


CE70 


OOOOFE 


IBGC 




000100 


9120 


CE6 8 


G0G1C4 


4710 


C01C 


00010C 


5810 


CE58 


000110 


9180 


CE68 


000114 


4710 


CG2C 


000118 


5810 


CE5C 


00011C 


IF 10 




000 11 E 


1800 




C0012C 


5D00 


C868 


000124 


98CF 


CE4C 


OOOOFO 






0001.28 


94EF 


FE66 


C0012C 


C7F2 





ADCR1 ADDR2 STMT 

131 

132 



00F30 



00F58 



OOF 58 



00F58 



00F60 

0010C 

00F48 

CC11C 
00F4C 



00C58 
OOF 30 



OOF 5 8 



134 
135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

147 

148 

149 

150 

151 

152 

15 3- 

154 

155 

156 

157 

158 

159 



SOURCE STATEMENT 
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GETTIME 



CONVERT 



TCIFF 



USING 



USING 

stm 

LR 

USING 

DROP 

CI 

LA 

SR 

TM 

BO 

TTIMER 

L 

TM 

BO 

L 

SLR 

SR 

D 

LM 

USING 

DROP 

NI 

BR 

DROP 



PRT, 14 



GETTIME ROUTINE 



GETTIME, 15 

12,15,TSAVE 

12,15 

GETTIME, 12 

15 

TMASK,TR13 

13, SAVE 

0,0 

TMASK, TIMEOUT 

CONVERT 

1,TIMELIM 

TMASK, TIMESET 

TO IFF 

ltCOMPLIM 

1,0 

0,0 

0, = F«64Q» 

12,15,TSAVE 

GETTIME, 15 

12 

TMASK, X' FF»-TR13 

2 

15 



SAVE WORKING REGISTERS 



INDICATE PRT POINTER STOREO 



TEST FOR EXPIRED LIMIT 



ASSUME EXECUTION 

TEST FOR EXECUTION STAGE 

IF NOT, USE COMP INTERVAL 
COMPUTE INTERVAL USED 

CONVERT TO SECONDS/60 



INDICATE PRT POINTER LOADED 



161 * 



WRITETIME ROUTINE 



00012E 












163 


USING 


WRITTIMEf 15 




000 126 


5020 


FDFE 






00F2C 


164 WRITTIME 


ST 


2,TSAVE2 




000132 


58F0 


El 14 






00114 


165 


L 


15,GTIMBASE 




000136 


052F 










166 


BALR 


2,15 


GET EL A 


000138 


5 8 CO 


E118 






00118 


167 


L 


12,WTIMBASE 


REG I ST E 


00 0.1 2 E 












168 
169 


USING 
DROP 


WR ITT I ME, 12 
15 




00013 C 


C283 


CFIE 


CF1C 


01G4C 


010 48 


170 


MVC 


BUFFERU32) , BLANK 


SKIP A 


000142 


4100 


CFIE 






0104C 


171 


LA 


0, BUFFER 




000146 


45F0 


C5F6 






CG724 


172 


BAL 


15, WRITE 




00014A 


C215 


CFIE 


CB86 


0104C 


00C84 


173 


MVC 


BUFFER C 22 ) ,=C 'ELAPSED 


TIME IS 


GG015G 


4120 


CF34 






01062 


174 


LA 


2,BUFFER+22 




000154 


41F0 


00G3 






000C3 


175 


LA 


15,3 




000158 


1800 










176 TLOOP 


SR 


0,0 


CONVERT 


000 15A 


5D0O 


C32E 






0GC5C 


177 


D 


0,=F»6G« 




000 15 E 


4 £00 


CEFA 






01028 


178 


cvo 


OtCONWORK 




000162 


F317 


20 CG 


CEFA 


00000 


01028 


179 


UNPK 


0<2,2),C0NW0RK(8) 




000168 


96F0 


2001 




00001 




180 


01 


HZ) ,C'0» 




00016C 


4820 


CB9C 






OGCCA 


181 


SH 


2,=H«3' 




000170 


46F0 


CC2A 






C0158 


182 


BCT 


15, TLOOP 




000174 


4100 


CFIE 






0104C 


183 


LA 


0, BUFFER 


WRITE T 


C00178 


45F0 


C5F6 






00724 


184 


BAL 


15, WRITE 




000 17C 


5820 


COFE 






00F2C 


185 


L 


2,TSAV£2 




000180 


98CF 


CEC2 






OOF 30 


186 


LM 


12,15,TSAVE 





: .D TIME 
SAVED BY GETTIME 



LINE 



UNITS AND UNPACK 



TIME 



PAGE 



LGC OBJECT CCOE 
OO0184 C7F2 



ADDR1 ACCR2 STMT 

187 
188 



SOURCE STATEMENT 

BR 2 

DROP 12 
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LOC OBJECT CODE 



000186 
00004C 
COOOOC 

000136 

000186 5860 E128 

00018A 58C0 E12C 

00018E 41D0 B220 



Q0019E 581=0 
0001A2 C52F 
000 1A4 18AA 



Elli 



ADDR1 ADDR2 STMT 

190 
191 
192 

193 

195 
00128 196 
0012C 197 

198 
00F60 199 

200 
00118 206 

207 

2G8 



SOURCE STATEMENT 
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JGBSEQ 
PURGE 



L6 



MASTER JOB CONTROL 
USING J03SEQ,12 PROGRAM BASE REGISTER 

USING JSDSEG,ll JOB SEC OAT A BASE REGISTER 

USING PRT, 14 PRT BASE REGISTER 



CS OH 

L lltJSDBASE 

L 12,JSP8ASE 

AIF (NOT 6SWAP).1.6 

LA 13, SAVE 

CLOSE < SYSTEM, REREAD), TYPE=T CLEAR PENDING 

L 15,WTIMBASE HRITE TIME 

BALR 2,15 

SR I ,l 



I/O REQUESTS 



000 1A6 

0001 A A 
0001AE 
000182 
000 184 

000188 
000 18C 

000 ICO 
0001C4 
0001C8 

000 ICC 

000 IDC 

000 1C4 
0001D8 
00010C 

ooo ieo 

0001E4 
0001E8 
0001EC 
C001FC 
000 1F4 
O0C1F8 
0001FC 
000200 
C00204 
000 208 
00020A 
C0020E 
000210 
000214 
0002 18 
00G21C 
0002 20 
00022 4 
000228 



4CAG 
41AA 
92FF 
1822 

4 320 
€820 
4780 

566C 
4180 
54 80 
5080 
5808 

5 812 
5C0G 
45FG 
4B20 
4780 
5 AGO 
47FQ 
3500 
4780 
4880 
58E8 
4880 
5818 
0521 
58E0 
1B22 
43 20 
SB20 
4780 
5 812 
4 5FG 
4 820 
4770 



C846 
8160 
B308 

AOOO 
0GC2 
CC6A 

81CC 

8004 
CAD* 
8 ICC 

81C0 

B114 
10CC 
C6CA 
C84 8 
CC6A 
CADE 
C04E 
ACC1 
CC88 
A004 
B148 
A0G6 
CASE 

CAE2 

AOOO 
00C2 

CCEE 
E114 
C616 

CB48 
CC96 



01048 



OOC01 



ooccc 

OOEAO 



OOOCO 
000G2 
0C1FG 

OOFOC 

000C4 
00C60 

OOFOC 
OOF 10 

00E54 
OOOOC 
0C79C 
OOCCE 
001F0 
00C64 
00104 

00 20E 

00004 
OOE88 
00006 
00C24 

00C68 

OOOCO 
000C2 
00274 
00E54 
0079C 
OOCCE 
002 1C 



211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 

22 8 
22S 
230 
231 
2 32 
233 
234 
235 
236 
237 
238 

23 9 
240 
241 
242 
243 
244 
245 
246 
247 
248 



CYCLE 
TEST1 



INTERPRETIVE DRIVER 



L7 



.L3 

LDLOOP 



TEST2 



TEST3 



CHKLOOP 



MH I, = H«12« 

LA I,PRGCREC(I) 

MVI SUCCESS, X»FF» 

SR 2,2 

IC 2,L0A0(,I) 

SLA 2,2 

BZ TEST2 

AIF (SSWAP).L7 

L TtBUFCBPTR 

LA T,4(,T) 

N T»=A(BUFM0D-1) 

ST T,8UFC6PTR 

L 0,BUFADDR{T) 

ANOP 

L l,D£CBTAB-4t2) 

ST 0,12(,1) 

BAL 15,SYSREAD 

SH 2,»H»4» 

Bl TEST2 

A 0,=A<RECLEN) 

8 LDLOOP 

CLI EXECCII,0 

BE TEST3 

LH T,EXECI0i,n 

L 14,PRT8ASE(T) 

LH TtlNDEXUD 

L 1,SUBRSW(T) 

BALR 2,1 

L 14,=A( SUPVPRT) 

SR 2 ,2 

IC 2, LOAD <,I) 

SLA 2,2 

BZ SELECT 

L l,DECBTAB-4(2) 

BAL 15, CHECK 

SH 2,=H»4» 

BNZ CHKLOOP 



COMPUTE POINTER TO STATE RECORD 

ASSUME SUCCESSFUL EXECUTION 
TEST FOR LOAD PROCESS 

FETCH RECORD COUNT 

MULTIPLY BY 4 



DETERMINE NEXT FREE BUFFER 



POINT TO BUFFER 
SELECT DECS 
INITIATE READ 

ADJUST DEST I NAT ION ADDRESS 

TEST FOR EXECUTION PROCESS 

DETERMINE PROGRAM ID 

SELECT CORRECT PRT 

SELECT SUBROUTINE FOR ACTIVATION 

LINK 

REESTABLISH MONITOR PRT 

TEST FOR LOAD PROCESS 



SELECT DECB 
ISSUE CHECK 



ii i n i M i n i' m n il 1 1 . m m i w i, n 



immwmmmmMm 



to «n» wk «n»L"«n in 



iwisumm ii^iflinitmr iik r* 
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LCC OBJECT CODE 



00022C 


58 80 


B1CC 


000230 


5818 


B1D0 


000234 


5820 


1000 


000238 


4121 


2CC0 


00023 C 


4130 


COCO 


000240 


4<*30 


CB4A 


000244 


4720 


CODC 


000248 


5843 


2000 


000 2 4C 


1244 




00024 E 


4780 


CCC4 


000252 


4144 


1000 


000256 


5 043 


2QCC 


00025A 


4130 


30 G4 


00025E 


47F0 


COCA 


000262 


D237 


2 IOC 


000268 


4880 


A002 


00026C 


5600 


2000 


00027C 


5008 


B148 



000274 
C00278 
000 27C 
00 02 8 
000284 
000288 



95FF 

4770 

48AA 
47F0 
48AA 
47F0 



8 30 8 
CGFE 
CCC8 
C020 
COCA 
C020 



B518 



AODRl 


ADDP2 


STMT 


SOURCE 


STATEMENT 








250 


* 




ADJUST PRT ENTRIES 






251 




AIF 


(CSMAP1.L9 






OOFOC 


252 


.19 


t 


T,BUFCBPTR 






OOF 10 


253 




L 


1,BUFADDR(T) 


(Rl) = BUFFER ADDRESS 




00000 


254 


.L10 


L 


2,0( ,1) 


(R2) = PRT DISPLACEMENT 




00000 


2 55 




LA 


2,011,2) 


(R2) = PRT ADDRESS 


. 


OOOGC 


2 56 




LA 


3,0 






OOCCO 


257 


MAPLOOP 


CH 


3,=AL2(MAXUSEG*4+8J 






00262 


258 




BH 


ENOMAP 






OOCCO 


2 59 




L 


4,0(3,2) 


!R4) = SEGMENT DISPLACEMENT 






260 




LTB 


4,4 


IFF NULL SEGMENT 




0025A 


261 




BZ 


MAPI NCR 






00000 


2 62 




LA 


4,0(4,1) 


LR4J * SEGMENT ADDRESS 




00000 


2 63 




ST 


4,0(3,21 






00004 


264 


HAP I NCR 


LA 


3,4( ,3) 






00 240 


2 65 




B 


MAPLOOP 




C010C 


01258 


266 


ENQMAP 


MVC 


268(56,2 ) ,SUPVPRT+268 


COMPLETE PRT WITH SUPV ROUTINES 




00002 


267 




LH 


T, LOAD ID (,I) 


DETERMINE ID OF LQADEO PROGRAM 




00000 


268 




L 


0,0(,2) 


MAKE ENTRY IN PRT DIRECTORY 




00E8 8 


269 
270 
271 


• Lli 


ST 

AIF 
ANOP 


OfPRTBASE(T) 
< SSWAP).L11 




01048 




27 3 


SELECT 


CLI 


SUCCESS, X»FF« 


TEST FOR SUCCESSFUL EXECUTION 




00284 


274 




BNE 


PRGFAIL 






CCCC8 


275 




LH 


!,NORMNEXT(? ) 


SELECT NORMAL NEXT STATE 




001A6 


276 




B 


CYCLE 






OOGOA 


277 


PRGFAIL 


LH 


I,£RRNEXT( II 


SELECT EXCEPTIONAL NEXT STATE 




001A6 


278 




B 


CYCLE 
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LCC OBJECT COCE 



ADCR1 ACDP2 STMT 



SOURCE STATEMENT 



7 FEB 69 



OOO 28 C 50 20 

000290 D7C7 

000296 92FE 

00029* 92 FF 

00029E 4560 



0002A2 
0002A4 



1800 
5000 



000 2AB 02 83 
0002AE 92F1 
000282 C207 



000288 
000 2BE 
000 2C 2 
0002C6 
0Q02CA 
00O2D0 
0002D4 
00020 8 
00020C 
0C02EC 
0002E4 
0002E8 
0002EC 
0002 FO 
0002F6 
000 2F A 
0002FE 
000 304 
00030 A 
C0030E 
000 312 



02 21 
410C 
9 5FF 
477C 
024F 
47F0 
45 FO 
9 5FF 
4770 
1200 
4 5FO 
92F0 
= 202 
C507 
4760 
9 2 5C 
020E 
2 6A 
4100 
45F0 
47F0 



B1CC 
B218 
C4E5 
C93F 
C3A2 



B ICC 

B3CC 
B3E2 

8384 

8360 
83CC 
B3E0 
C14E 
B3CC 
C15A 
C592 
B3E0 
C14E 
8 3E0 
C59E 
83 E 2 
B3E3 
B300 
C19C 
B3CC 
8315 
8 324 
B30C 
C59E 
C122 



000316 4100 8220 



0003 I A 
0003 1C 

00032C 
0Q032E 
000330 
00033 2 
00 0334 
000336 
00033C 
000340 
000344 
000348 
00034C 
00035 
000354 
000 35 8 



189E 
4100 CAE6 



18E9 
1BC0 
1810 
1820 
1E80 
C701 
4130 
4130 
5930 
4720 
9540 
4780 
95F0 
4740 



830 9 
3314 
3001 
CAEA 
C24C 
3000 
C16A 
3000 
C20C 



00F1C 
E218 00F58 00F58 
0066B 
00 AC 5 

00528 



COFOC 

830B 01G4C 0104B 

01122 
62 FO 010C4 010 30 

CB4C 010A0 00CO2 
0104C 
01120 

002C4 

8390 01G4C 01000 

002E0 

00718 

01120 

00 2D4 
01120 

007 24 
01122 
01123 
CAB2 0104C OOC38 
00316 
0104C 
CB88 01055 OODOE 
832 3 01064 010 63 
01G4C 
00724 
CC2A8 

OOF60 



00C6C 



6309 01049 



00000 



00000 



010 49 
01054 
COCCI 
00C70 
003 D2 

00340 

00392 



280 
281 
282 
2 83 

2 84 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 

3 01 
302 
303 
3 04 
305 
306 
307 
308 
3 09 
310 
311 
312 
313 
314 

316 

317 
318 
319 
320 
3 24 
325 
326 
327 
32 8 
329 
330 
331 
3 32 
333 
3 34 
335 
336 
337 



INITIALIZATION 



INITIAL 



.L14 

10 



.L15 
.L16 



Tl 



12 



13 



,L18 



LI 



ST 

XC 

*VI 

MVI 

BAL 

AIF 

SR 

ST 

ANOP 

MVC 

MVI 

MVC 

AIF 

MVC 

LA 

CLI 

BNE 

MVC 

8 

BAL 

CLI 

BNE 

MVI 

BAL 

MVI 

MVI 

CLC 

BE 

MVI 

MVC 

MVC 

LA 

BAL 



LA 

AIF 

LR 

LA 

POINT 

LR 

SR 

LR 

LR 

LR 

XC 

LA 

LA 

C 

BH 

CLI 

BE 

CLI 

BL 



RESTORE TRAPS 



WRITE CHECK COUNTS 



JOB 
2,R2SAVE 
ST ATS I 8), STATS 
INTEXIT + 1,X*FE' 
J0EXIT+1,X»FF« 
6,SH0WCHK 
<NOT &SWAP).L14 
0,0 
Of BUFCBPTR 



BUFFER t 132 If BLANK 

CARRCONTfCH 1 

8UFFER+120<8) ,DATE 

HSWAP).L15 

BUFFER+84C34) ,=C* STANFORD ALGOL W (OVERLAY VERSION)* 

0, BUFFER 

TEST FOR PRIOR JOB CARD 



SKIP TO NEW PAGE 



EOF, X' FF» 

II 

BUFFER ( 80 },CARD8UF 

12 

15, READ 

EOF,X'FF« 

II 

EQFf 

15, WRITE 

CARRCONT,C'0» 

LINECNT,2 



MOVE FROM SAVE AREA 
READ TO JOB CARD 



RESET EOF 
WRITE HEADER 
SKIP LINE 
ADJUST LINE COUNT 

BUFFER*! < 81 ,«CL8« ALGOL* TEST FOR ALGOL 

13 

BUFFER, C'*' INDICATE UNAVAILABILITY 

BUFFER + 9U5) , =C • NOT AVAILABLE * 

BUFFER +24< 107 ),BUFFER+23 

0, BUFFER 

15, WRITE 

10 



13, SAVE 

(NOT SSWAP).L18 

S,14 

0,*F» 1* 

SYSTEM, (0) 

14, S 

0,0 

1 ,0 

2,0 

T,0 

CHARSWC2I ,CHARSW 

3,BUFF£R+8 

3,K,3) 

3,=A(8UFFER+28I 

L7 

0(3), C» ' 

LI 

0(3) ,C»0» 

L4 



READ TO NEXT JOB CARD 
ESTABLISH OS CONVENTIONS 

REPOSITION COMPILER FILE 

ANALYZE LIMIT FIELDS 

RESET STATE SWITCHES 

POINT TO NEXT CHARACTER 
TEST FOR END OF FIELD 

IGNORE BLANKS 

TEST FOR DIGIT 



PAGE 



LCC 


C8JE( 


;t COCE 


A0DR1 


ADDR2 


STMT 


00035C 


S4CF 


3CCC 


00000 




3 38 


000360 


4380 


3CC0 




OOCCO 


339 


000364 


*5FF 


83CA 


0104A 




340 


000368 


4770 


C1F0 




00 3 76 


341 


00036C 


4C20 


C86E 




00CF4 


342 


CO 03 70 


1A28 








343 


000372 


47F0 


C1BA 




C0340 


344 


0003 76 


S5FF 


B3C9 


01049 




345 


00037A 


477C 


C202 




00388 


346 


000 37 E 


4C10 


C86E 




00CF4 


347 


000382 


1A18 








348 


000384 


4 7FO 


CLE A 




0034C 


349 


000388 


4 COO 


C86E 




00CF4 


3 50 


00038C 


1AC8 








3 51 


000 38 6 


47F0 


C1EA 




C03 4C 


3 52 


000392 


95 7 A 


3000 


00000 




353 


000 39 6 


4770 


C220 




003A6 


3 54 


00039A 


9 300 


83C9 


01 04 9 




355 


00039E 


4 780 


cie* 




00 340 


356 


000 3A 2 


47F0 


C23C 




003B6 


3 57 


000 3 A 6 


9568 


3000 


00000 




358 


000 3A A 


4770 


C23C 




00386 


359 


0003AE 


9300 


83CA 


01C4A 




3 60 


0003B2 


4780 


cieA 




00340 


361 


C003B6 


4 IOC 


83CC 




0104C 


362 


0003BA 


C283 


830C 6306 


0104C 


0104B 


363 


C003C0 


02 1C 


30CC CB97 


00000 


0001D 


364 


0003C6 


9 25C 


83CC 


0104C 




365 


000 3C A 


45F0 


C59E 




00724 


366 


0003CE 


47FQ 


C122 




002A8 


367 


000302 


189E 








3 68 


0003D4 


1222 








369 


000306 


47 70 


C258 




0C3CE 


37C 


00030A 


5820 


CAFE 




00C74 


371 


0003DE 


5C20 


83 £4 




01124 


372 


0Q02E2 


4 COO 


C87C 




0OCF6 


3 73 


0003E6 


IA10 








3 74 


0O0 3E8 


4170 


C26A 




003F0 


375 


0003EC 


5 810 


CAF2 




00C78 


376 


0C03FC 


4C10 


CB7C 




00CF6 


377 


000 3F 4 


5C0O 


CAD2 




00C58 


378 


0003F8 


5010 


8208 




00F48 


3 79 

380 


000404 


18E9 








3 84 


C0040 6 


5820 


81 EC 




00 FIG 


3 85 


00040A 


C7F2 








386 



SOURCE STATEMENT 
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L2 



L3 



L4 



L5 



L6 



L7 



18 



L9 



NI OOlfX'OF 1 

IC T,0(,3) 

CLI COMMA, X'FF' 

BNE L2 

MH 2,=H«10» 

AR 2,T 

B LI 

CLI COLON, X'FF* 

BNE L3 

MH 1,=H»10« 

AR 1,T 

B LI 

MH 0,=HMO* 

AR 0,T 

B LI 

CLI 0(3),C':« 

BNE L5 

TS COLON 

BZ LI 

B L6 

CLI 0(3), C*,' 

BNE L6 

TS COMMA 

BZ 1.1 

LA 0, BUFFER 

MVC BUFFER ( 132) , BLANK 

MVC 0<29,3),=C»| INVALID 

WVI BUFFERtC'*' 

8AL 15, WRITE 

8 10 

LR S,14 

LTR 2,2 

8NZ L8 

L 2,=A(DEFLINES) 

ST 2,LINELIM 

MH 0,=H'60» 

AR 1,0 

BNZ L9 

L 1 ,=A(DEFTIME) 

MH 1,=H»60» 

M 0,=F»640« 

ST 1,TIMELJM 

STIMER TASK,TUXNTVL=CQMPLIM 

LR 14, S 

L 2,R2SAVE 

BR 2 



CLEAR ZONE 



ACCUMULATE LINES 



ACCUMULATE SECONDS 



ACCUMULATE MINUTES 



CHANGE STATE TO SCAN SECONDS 



CHANGE STATE TO SCAN LINES 

LIMIT FIELD FORMAT INVALID 
LIMIT SPECIFICATION* 



TEST FOR LINE LIMIT 

IF NONE, USE DEFAULT LIMIT 

CONVERT TO SECONDS 

COMBINE 

TEST FOR TIME LIMIT 

IF NONE, USE DEFAULT LIMIT 

CONVERT TO SIXTIETHS 

CONVERT TO TIMER UNITS 

START CLOCK 

RETURN 
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LOG OBJECT CGDE 



O007F9 



0004QC 


5020 


8 ICC 


000410 


50A0 


8104 


000414 


9200 


B3E9 


000418 


5610 


CAF6 


00041C 


C410 




00041 E 


9801 


82C4 


000422 


G61C 




000424 


1820 




000426 


C2FF 


27F9 


00042 A 


5860 


cace 


00 042 £ 


58F0 


E004 


000432 


C52F 




000434 


58C0 


E12C 


00043 8 


5880 


£128 


00Q43C 


5010 


B1EC 


000440 


1200 




000 442 


4 7 80 


C2CA 


000446 


9200 


830 8 


00 044 A 


58F0 


E118 


00044 E 


C5 2F 




000450 


5 8A0 


E1C4 


00045 4 


5 820 


8 ICC 


000458 


C7F2 





ADDR1 ACCR2 STMT SOURCE STATEMENT 

388 * 
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COMPILER PASS EXECUTION 



01129 



007F9 



01048 





390 


MONFLAG 


EQU 


X • 7 F9 « 


00F1C 


392 


PASSEXEC 


ST 


2,R2SAV£ 


OOF 14 


393 




ST 


It ISAVE 




394 




AIF 


(GS WAP). LI 9 




39 5 


.L19 


MVI 


PMASKfX'OO* 


00C7C 


396 




L 


l f =XL4 , 0E000000 l 




397 




SPM 


1 


01004 


398 




LM 


OflfCOMMLIM 




399 




8CTR 


1,0 




400 




LR 


2,0 




401 




MVI 


M0NFLAGC2),X'FF» 


00C64 


402 




L 


6,=A(RECLEN> 


00004 


403 




L 


15, 4{ ,14) 




404 




BALR 


2,15 


0012C 


405 




L 


12,JSPBASE 


00128 


406 




L 


lit JSDBASE 


OOF 20 


4 07 




ST 


1 ,HICORE 




408 




LTR 


0,0 


004 50 


409 




BZ 


PI 




410 




MVI 


SUCCESS, 


00118 


411 




L 


15,WTIMBASE 




412 




BALR 


2,15 


OOF 14 


413 


Pi 


L 


I, ISAVE 


00F1C 


414 




L 


2,R2SAVE 




415 




BR 


2 



MONITOR IDENTIFICATION FLAG 



SAVE STATE INDEX 

DISABLE PROGRAM CHECKS 
SUPPRESS SIGNIFICANCE CHECK 

SUPPLY COMMON LIMITS 



SET MONITOR FLAG 

AND RECORD LENGTH 



SAVE HIGH COMMON LOCATION 
TEST RETURN CODE 

INDICATE FAILURE 
HRITE COMPILATION TIME 



rmmm m m m mMmmim i m i mm 
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ICC OBJECT COCE 



C00170 
000174 
0001AC 
0002AF 



ADCR1 ADDR2 STMT 



SOURCE STATEMENT 



7 FEB 69 



417 * 



COMPILED PROGRAM EXECUTION 



00045 A 
00045E 

000462 
000466 
00046A 
00046 E 
00047 2 
000474 



5 020 8 ICC 
50A0 B1D4 



<55 3C 

47B0 
9240 
58F0 
052F 
4 560 



000478 4100 
00047C 4110 
00048G 412C 
000484 45 FO 
000488 D203 



00048E 
000492 
000496 
00049A 
0004AC 
0004 A 4 
0004 A6 
0004AA 
0004AE 
0004B2 
0004B6 
0004BA 
0004BE 
0004C0 

C004CE 
0004D2 
0004D6 
0G04D8 
00040C 
0004EG 
0004E4 
0004E8 
0004EC 
0004EE 
0004FC 
0004F4 
0004F8 
0004FA 
0004FE 
000502 
000506 



4100 
45F0 
478G 
D200 
5810 
0410 
S2C9 
C2FF 
92F1 
5 830 

4 5F0 
45F0 

i£<;e 

4100 

<52CO 
<52FF 
18E9 
5840 

5440 
5030 
5040 
4100 
1811 
1822 
SCG2 
58F0 
C51F 

5 8C0 
5880 
948F 
58F0 



B3E3 
C2E8 
B3E2 
EL18 

C3A2 

E1AC 
0100 
CCC5 
C5CA 
EGC4 

B3CC 
C592 
C3C8 
E2AF 
CAFA 

83E9 
82 ID 
83E2 
E1C0 
C62 2 
C622 

8220 

8218 
B21C 

8 2D 4 
CAFE 
E17C 
E174 
3018 



3000 

E0C4 

E12C 
E128 

8218 
Eli 8 



8410 



83E0 







419 


MP 


EQU 


XU70' 






420 


LIM 


EQU 


X* 174' 






421 


RECTA8 


EQU 


X'lAC 






422 


EOFFLAG 


EQU 


X'2AF» 




00F1C 


424 


RUN EXEC 


ST 


2,R2SAVE 




0CF14 


42 5 




ST 


I ,ISAVE 






426 




AIF 


(£SWAP).L21 


01123 




427 


.L21 


CLI 


LINECNT,LINESMAX 




0046E 


42 8 




BNL 


R3 


01122 




429 




MVI 


CARRCONTtC ■ 




00118 


43 


R3 


L 


15 t WTIMBASE 






431 




8ALR 


2, 15 




00528 


432 




BAL 


6,SH0WCHK 




001AC 


434 




LA 


0,RECTA8(,14) 




00100 


435 




LA 


1,256 




0GCC5 


436 




LA 


2,5 




00760 


43 7 




BAL 


15,RDTAPE 


00004 


01150 


438 




MVC 


4 ( MAXASE G*4, 14), SUP V 




C1C4C 


44 G 


R4 


LA 


0, BUFFER 




00718 


441 




BAL 


15, READ 




0048F 


442 




BE 


R4 


Q02AF 


01120 


443 




MVC 


E0FFLAG(1,14) ,EOF 




0OC80 


444 




L 


1, = XL4» 08000000* 






44 5 




SPM 


1 


01129 




446 




MVI 


PMASK, X'C9« 


00F50 




447 




MVI 


ARUN,X»FF« 


01122 




448 




MVI 


CARRCONTjC 1 ! * 




00100 


449 




L 


3, PRO GLEN 




C07A8 


450 




BAL 


15,FSPTM 




007A8 


451 




BAL 


15,FSPTM 






452 




LR 


S, 14 




C0F6C 


4 53 




LA 


13, SAVE 






454 




STIMER 


TASK,TIMEINT,TUINTVL 


OOF 5 8 




458 




MVI 


TMASK,TIMESET+TIMEON 


00F5C 




459 




MVI 


LIN£CHK,X«FF» 






460 




LR 


14, S 




01014 


461 




L 


4,AP 




00C84 


462 




N 


4,=F*-8» 




00170 


463 




ST 


3,MP( ,14) 




00174 


464 




ST 


4,LIM( ,14} 




00018 


465 




LA 


0,24( ,3) 






466 




SR 


1,1 






467 




SR 


2,2 




00000 


468 




STM 


0,2,0(3) 




O00C4 


469 




L 


15, 4 (,14) 






470 




8ALR 


1,15 




0012C 


471 




L 


12, JSP BASE 




00128 


472 




L 


ll.JSDBASE 


00F58 




473 




NI 


TMASK,X»FF'-TIM£GN 




00118 


4 74 




L 


15,WTIM8ASE 



TEST FOR FULL PAGE 

CANCEL PAGE SKIP 
WRITE COMPILATION TIME 

WRITE CHECK COUNTS 

READ RECORD TABLE 



MERGE PRT SEGMENT ADDRESSES 



READ TO NEXT CONTROL CARD 



PASS EOF INDICATOR 

SUPPRESS SIGNIFICANCE AND UNFL 



SKIP TO HEM PAGE 
FETCH STORAGE BOUNDS 
POSITION POINTERS 



SET TIME LIMIT 
'TIMELIW 

ENABLE TIMER TRAP 
AND LINE COUNTING 



SET UP ALGOL STORAGE RECORDS 
AND FIRST BLOCK MARK 

LINK. TO PROGRAM 
RESTORE ADDRESSING 

DISABLE TIMER 

WRITE TOTAL TIME 



iimiwimpMimMm 



PAGE 



LI 



LOC OBJECT CODE 



00050A 
COO50C 

000510 
000514 

0005 IE 
00052 2 
000 5 26 



052F 
9120 
4710 
41D0 

58A0 
5 820 
C7F2 



8218 
C3f 8 
B220 

BIC4 
B1CC 



ADCR1 ADDR2 STMT 



00F58 



SOURCE 





4 75 




476 


00 5 IE 


477 


00F60 


478 




479 


OOFH 


482 


00F1C 


4 83 




484 



R5 



STATEMENT 


BALR 


2,15 


TM 


TM ASK, TIMEOUT 


BO 


R5 


LA 


13, SAVE 


TTTVER 


CANCEL 


L 


I , I SAVE 


L 


2,R2SAVE 


BR 


2 



7 FEB 69 



TEST FOR RUNNING CLOCK 
SKIP IF EXPIRED 

CANCEL STIHER 
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LCC C8JECT CODE ADCR1 ADCR2 STMT SOURCE STATEMENT 7 FEB 69 

CHECK COUNTS 



000528 


C50F 


B3FC 


B3EC 


1 1 3C 


112C 


486 


SHOWCHK 


CLC 


PCHKT8L+16U6) ,PCHKTBL 


00052 E 


C7 86 










487 




BCR 


8,6 


0005 30 


28 3 


8 3CC 


8308 


01G4C 


010 48 


4 88 




MVC 


BUFFER (132 It BLANK WRITE PROGRAM 


000536 


C20F 


8311 


CABA 


01051 


00C40 


489 




MVC 


BUFFER+5 < 16 ) ,=C» PROGRAM CHECK NO* 


00053C 


4100 


83CC 






0104C 


490 




LA 


0, BUFFER 


000540 


IB 11 










491 




SR 


1,1 


000542 


4120 


OOCE 






OOOOE 


492 




LA 


2,14 


000546 


412C 


2CC2 






00002 


49 3 


SCI 


LA 


2,2(,2) 


00054A 


4920 


C872 






O0CF8 


494 




CH 


2f=H«30» 


000 54 E 


4 72 


C402 






00588 


495 




BH 


SC2 


C00552 


4912 


8 3 EC 






1 1 2C 


4 96 




CH 


1 ,PCHKTBL(2) 


000556 


4780 


C3C0 






00546 


4 97 




BE 


SCI 


00055A 


4 632 


B3EC 






0112C 


498 




LH 


3,PCHKTBL(2) 


00055E 


4E30 


B2E8 






01G28 


499 




CVD 


3,C0NW0RK 


000562 


F33 7 


B3CC 


B2E8 


0104C 


01028 


500 




UNPK 


BUFFER! 4) ,C0NW0RK(8) 


0Q0568 


96FC 


8 3CF 




0104? 




501 




01 


BUFFER+3,C«0« 


000 56 C 


1832 










502 




LR 


3,2 


00056E 


8830 


0001 






00001 


50 3 




SRL 


3,1 


00057 2 


4E30 


B2E8 






G1C28 


504 




CVO 


3 f C0NW0RK 


000 57 6 


F317 


6 322 


82 E 8 


01062 


01028 


50 5 




UNPK 


BUFFER+22<2» ,C0NWORK(8) 


C0057C 


96F0 


8323 




01063 




506 




01 


BUFFER+23,C»0« 


000580 


45F0 


C59E 






00724 


5G7 




BAL 


15 f WRITE 


000584 


4 7F0 


C3C0 






00546 


508 




B 


SCI 


00058 8 


07 IF 


8 3EC 


B3EC 


0112C 


0112C 


509 


SC2 


XC 


PCHKT8L(32),PCHKT8L 


00058 E 


07 F6 










510 
5 1 1 
512 

514 
515 
516 


.L23 


BR 
AIF 

ANGP 

DROP 
DROP 
DROP 


6 
USWAP).L23 

11 
12 

14 
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LCC OBJECT CCCE 



ADCR1 A0CP2 STMT 



SOURCE STATEMENT 



7 FEB 69 



518 * 



TIMER INTERRUPT EXIT 



000590 
00059C 
000594 
000598 
C00 59A 
00059E 
00'05A2 
0005A6 
0005 A A 

0005AE 
000582 
0005B6 
000 5B A 
C005BE 
Q005C2 
0005C8 
0005C.C 
O0O5D0 
000504 
00 050 8 
000 5DC 
0005E0 
000 5E4 
0005E8 
00 05 EC 
0OO5E0 
0005F4 
0005 F8 
0005FC 
C0060C 
000604 
00060 8 
G0060E 
000612 
000616 



000010 

coococ 

000004 

cooooo 

0000 1C 
000010 



S620 
9140 
07 8 E 
SGE1 
95FF 
4780 
9 5FF 
4780 

5810 
5810 
5S1G 
5010 
5 810 
D502 
4780 
5 810 
47F0 
5 810 
4110 
55 10 
4740 
5510 
4780 
9200 
47F0 
5510 
4720 
9200 
41FC 
5010 
C2 00 
<5200 
98E1 
C7FE 



F9C8 
F<3C8 

DCCC 
F9CA 
F05C 

F9C8 
FC6C 

0010 
1CC0 
1004 
F994 
1000 
1010 
F044 
101C 
F0 32 
1014 
1CCC 
F6F8 
F0 74 
F6FC 
FQ64 
FC08 
F082 
F70C 
EG 74 
F535 
FC62 
F9CC 
F9C4 
10CC 
DOOC 



F<395 



1000 







5 20 




USING 


TIMEINT,15 


00F58 




521 


T I ME I NT 


01 


TMASK, TIMEOUT 


00F58 




522 




TM 


TMASK,TIMEON 






523 




BCR 


8,14 




OOOOC 


524 




STM 


14,1,12(13) 


00F5A 




525 




CLI 


INTFLAG,X«FF» 




005 EC 


526 




BE 


SET INT 


OOF 58 




527 




CLI 


IOFLAG,X* FF' 




005FC 


528 




BE 


SETIO 






529 


* 




LOCATE 




0CG10 


530 




L 


1 ,CVTPTR 




00000 


531 




I 


1,CVTTCBP(,1) 




00004 


532 




L 


1,TCBCURR(,1) 




OOF 2 4 


533 




ST 


ltTCBAOR 




00000 


5 34 




L 


l,TCBRBP(,D 


OOCID 


00F25 


535 


CHAIN 


CLC 


XRBLINK+ 1(3,1 




G05C4 


5 36 




BE 


PRBFNO 




000 1C 


537 




L 


1, XRBLINK C,l) 




005C2 


538 




B 


CHAIN 




00014 


539 


P38FNQ 


L 


1,XR8PSH+4(,1 




000 cc 


540 




LA 


1,0(,1) 




00C88 


541 




CL 


1,=A(PR0GINT) 




00604 


542 




8L 


SETBYTE 




00C8C 


543 




CL 


l,=A(SERVICE) 




005F4 


54 4 




BNL 


TTEST1 


0066B 




545 


SET I NT 


MVI 


INTEXIT + 1,X'0 




00612 


546 




B 


TEX1 T 




0OC90 


547 


TTEST1 


CL 


1,=A(LINKEND) 




006C4 


548 




BH 


SETBYTE 


00AC5 




549 


SET 10 


MVI 


lOEXIT+l t X«00 




006 12 


550 




8 


TEXIT 




0CF5C 


551 


SETBYTE 


ST 


i,TINTLGC 


00F54 


00000 


552 




MVC 


TINT8YTEQ) ,0 


000 OC 




5 53 




MVI 


0(1), 




OOOOC 


554 


TEXIT 


LM 


14,1,12(13) 






5 55 




8R 


14 






556 




OROP 


15 






558 


CVTPTR 


EQU 


16 






559 


CVTTCBP 


EQU 









560 


TC8CURR 


EQU 


4 






561 


TCBRBP 


EQU 









562 


XRBLINK 


EQU 


28 






563 


XRBPSW 


EQU 


16 



SET TO TRAP 

TEST FOR SOFTWARE ENABLE 

IF NOT, IGNORE 

TEST FOR INTERRUPT EXIT 

TEST FOR I/O EXIT 

PSW TO BE RELOADED 

POINT TO CVT 

POINT TO TCB POINTER BLOCK 
POINT AT CURRENT TCB 
SAVE ADDRESS 
ENTER R8 POINTER CHAIN 
),TCBAOR+l CHAIN TO LAST RB 



GET ADDRESS OF RETURN POINT 

TEST FCR I/O OR INT LINK 
BELOW INT LINK 



0» 



(1) 



ABOVE INT LINK 

CONVERT INT EXIT TO NO-OP 



ABOVE I/O LINK 

CONVERT I/O EXIT TO NO-OP 

SAVE INT ADDRESS 

AND INSTRUCTION BYTE 
ZERO OPCODE 
RETURN 



CVT ADDRESS 
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LCC OBJECT COCE 



ADCR1 ADDR2 STMT SOURCE STATEMENT 

565 * 



7 FEB 69 



PROGRAM INTERRUPT RECOVERY 



000618 
000 618 
C0061C 
00062 
000624 
000628 
00062C 
00 0632 
000636 
00063/5 
00O63E 
000642 
000646 
00064A 
00064C 
0006 5 
000654 
000658 
00065A 
00065E 
000662 
000666 
00066A 
C0066C 
00067C 
000674 

000678 
00067C 
0C068C 
000684 
000688 
00068C 
000690 
000618 

000692 
000696 
00069 C 
0006AC 
00 06 A 6 
0006 AC 
000682 
0006B6 
000618 

000688 
C0C63C 
0006C0 
0006C6 
000 6C A 
000 6CE 
0006D2 



92FF 
9CE2 
9120 
4780 
58EO 
C200 
4120 
47F0 
48E0 
54E0 
5800 
89CG 
1AEE 
482E 
4120 
4C2E 
1200 
4740 
9200 
9 8E2 
9630 
C7FE 
92FE 
4120 
47F0 

4120 
95FF 
4780 
58E0 
9200 
4100 
18CF 



92 5C 

0232 
45F0 
D20D 
C213 

0261 
4 5F0 
18FC 



47F0 
58E0 
D208 
50 DO 
9110 
4780 
58D0 



F942 
F9D8 
F94Q 
F022 
F9 38 
EOO 
CO 06 
FCA4 
1006 
F67C 
FB1C 
EGOO 

FB14 
2CC1 

F814 

FC6C 
F942 

F C ,D6 
IOCS 

FC53 
006 
F0A4 

004 
F945 
FCA4 
F650 
F944 
FA34 



CA34 
CA35 
C10C 
CA34 
CA42 
C456 
C1GC 



FOEE 
ICOC 
F994 
F904 
F940 
FCBE 
F91C 



00F5A 



00F58 



F93C 00000 



00F5A 
00006 
00668 



00F5C 



00F5C 



CA34 

C6E2 

C 6 8 C 
CA55 



0104C 
010 40 

0104C 
0105A 
0106E 



1014 OOFAC 



00F58 



567 USING PROGINT, 15 

568 PROGINT HVI INTFLAG, X»FF ' 
OOFFO 569 STM 14,2,PISAVE 

570 TM TMASK, TIMEOUT 

0063A 571 8Z NOTIMER 

CCF50 572 L 14,TINTLCC 

OOF54 573 MVC 0( 1 , 14) , TINTBYTE 

00006 574 LA 2,6 

0C6BC 575 B PR0GINT3 

00006 576 NOTIMER LH 14, P IEPSW+2( , 1) 

00C94 577 N 14,=F«15 t 

01128 578 L 0,PMASK-1 

00000 579 SLL 0,0(14) 
5£0 AR 14,14 

0112C 561 LH 2,PCHKTBL(14) 

00001 5 82 LA 2,1(»2) 
0112C 563 STH 2 ,PCHKTBL ( 14 ) 

584 LTR 0,0 

00678 585 BL PR0GINT2 

566 PR0GINT1 HVI INTFLAG, 

OOFFO 587 LM 14,2,PISAVE 

568 01 PI£PSW+4(1),X*30» 

599 INTEXIT BR 14 

590 MVI INTEXIT+1,X'FF» 

OO0C6 591 LA 2,6 

006 EC 592 8 PR0GINT3 

00004 594 PR0GINT2 LA 2,4 

595 CLI ARUN,X'FF« 

006BC 596 BE PR0GINT3 

00C68 597 INTMSG L 14 ,=A{ SUPVPRT ) 

598 MVI LINECHK,0 

01C4C 599 LA 0, BUFFER 

600 LR 12,15 

601 USING PROGINT, 12 

602 DROP 15 

6 03 MVI BUFFER tC**' 

0104C 604 MVC BUFFER +1 { 131 ), BUFFER 

00724 605 8AL 15, WRITE 

OOCFA 606 MVC BUFFER ( 14) ,=C 'COMPILE 

CCC98 607 *VC 8UFFER+14 (20 > ,=C OUR 

0106D 608 MVC 8UFFER+34( 98) , 8UFFER+ 

00724 609 BAL 15, WRITE 

610 LR 15,12 

611 USING PROGINT, 15 

612 DROP 12 
00706 613 8 PR0GINT5 
OOOOC 614 PROG INT 3 L 14,PIERE(,1) 

00014 615 MVC REGSAVE(12),PIER0(1) 

OOFEC 616 ST 13,SSAVE13 

617 TM TMASK, TR13 

00606 618 8Z PR0GINT4 

00F34 619 L 13,TSAVE+4 



INDICATE INT PROCESSING 

SAVE OS LINK 

TEST FOR TIMER FORCED INTERRUPT 

RESTORE INSTRUCTION BYTE 

SET TIMER INTERRUPT CODE 

SELECT PMASK SIT FROM CODE 
CLEAR 360/91 SIT MASK 

INCREMENT COUNT TABLE 



TEST BIT 
PROCESS IF ONE 
RESET FLAG 

SET CC = 3 

CHANGED TO NO-OP BY TIMER TRAP 

RESTORE BRANCH 



SET PROGRAM CHECK CODE 
TEST FOR ALGOLRUN 



DISABLE LINE COUNT 



R ERROR* 

ING COMPILATION • 
33 



TERMINATE 

ASSEMBLE REGISTERS 
SAVE R13 

LOCATE PRT POINTER 
IF OFF, IN R13 
OTHERWISE IN SAVE AREA 
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LCC OBJECT CODE 



AODRl ACCR2 STMT 



SOURCE STATEMENT 



7 FEB 69 



0006D6 
00 060 A 
C006EO 
0006E2 
0006E6 
0006EE 
0006EC 
C0 06EE 
0006F2 
0006 F4 
0CC6F8 
0006FC 
C0070C 
C007C2 
000 706 
00070A 
0007 10 
000716 

C00004 
00000 C 
000014 



SC3D 
C207 
1B0O 
4160 
1€72 
4180 
0700 
58F0 
052F 
5 8F0 
983C 
5 800 
1200 
4760 
98E2 
0203 
202 
C7FE 



FSAO 

F9CC 

F9 94 

1CC4 

DOFC 

2900 
F9A0 
F<5C4 

FC46 
F908 
1CCC 
ICC 9 



100C 0QFE4 



F650 
F722 



C0FB8 

ooocc 

OOFAC 

00004 

000 FC 

00900 
00FB8 
OOFFC 



0C65E 

OOFFG 

OGCOC 00C68 

00GC9 00D3A 



PRQGINT4 



620 
621 
622 
623 
624 
625 
626 
6 27 
628 
6 29 
630 
631 
632 
633 
6 34 
635 
636 
637 



639 PIEPSW 

640 PIERE 

641 PIERO 



PROG I NT 5 



STM 

MVC 

SR 

LA 

LR 

LA 

CNOP 

L 

8ALR 

L 

LM 

L 

LTR 

BZ 

LM 

MVC 

MVC 

BR 

EQU 
EQU 
EQU 



3, 13, REGS AVE* 12 
REGSAVE+5618) ,PIERE( 1) 



0,0 

6,REGSAV£ 

7,2 

8,PIEPS«(,1) 

2,4 

15,63*41, 13> 

2,15 

l5,PISAVE+4-*(,2) 

3, 12 t REGSAVE + L2 

13,SSAVE13 

0,0 

PROG I NT 1 

14, 2, PI SAVE 

PIEREL4,1), = A<SUPVPRT) 

PIEPSW+5(3,1 ) ,=AL3 (PURGE) 

14 

4 
12 

20 



SET UP CALL 



CALL ALGOL RUNERROR 
RESTORE REGISTERS 

TEST FOR CONTINUATION 
TERMINATE JOB AND PURGE 
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LOC OBJECT CODE 



ADCR1 ADDR2 STMT 



SOURCE STATEMENT 



7 FEB 69 



643 ■* 

644 * 

645 * 

646 * 



ALGOL W SYSTEM SUPERVISOR STANDARD FUNCTIONS 
MINIMAL SET FOR ALGOL W COMPILATION AND EXCUTION 

(1) DEVICE 5 ASSUMED IN MAIN STORAGE 

(2) DEVICE 7 NOT SUPPORTED 



* 
* 



000718 
000718 
000718 
00071C 
000720 
000724 
000728 
00072C 
000730 
000734 
000738 
00073C 
00076C 
000764 
000768 
C0076C 
00077C 
000774 
000778 
0O077C 
000780 
000784 
000788 
00078C 
000790 
000794 
000798 
00079C 
0007AC 
000 7A 4 
0007A8 
00G7AC 
000780 
000 7B4 
C007CO 
0007C4 
000 7C 8 



90C3 E144 00144 

58C0 E14C 00140 

47F0 CG84 007CC 

«CC3 E144 00144 

5 8C0 E140 00140 

47F0 COFE 00816 

90C3 E144 0C144 

5 8C0 E140 00140 

47F0 C16A 00882 
COOOOOOCOC 000000 

9CC3 E144 00144 

58C0 E140 00140 

47F0 C1AA 008C2 

90C3 E144 00144 

5 SCO E140 CC14C 

47F0 C200 009 18 

90C3 E144 00144 

5 8C0 El 40 00140 

47F0 C3C8 00A20 

90C3 E144 00144 

58CO £140 00140 

47F0 C342 00A5A 

90C3 E144 00144 

58CO E140 00140 

47FC Cl€2 CC89A 

90C3 E144 00144 

58C0 E140 00140 

47F0 C1S8 0C8B0 

90C3 E144 00144 

5 6C0 E14G 00140 

47F0 C362 00A7A 
CCOOCCCCOOOOOOOO 

90C3 E14 4 00144 

5 8 CO E140 00140 

47F0 C176 0083E 



64 8 
649 
650 
651 
6 52 
653 
6 54 
655 
656 
657 
658 
6 59 
660 
661 
662 
663 
664 
665 
666 
,667 
668 
669 
670 
671 
672 
673 
6 74 
675 
676 
677 
678 
679 
680 
681 
6 82 
683 
684 



SERVICE 

READ 



WRITE 



PAGE 



RDTAPF 



WRTAPE 



MKTAPE 



REWIND 



SYSREAD 



CHECK 



FSPTM 



SPMASK 



USING 

DS 

STM 

L 

B 

STM 

L 

8 

STM 

L 

B 

DC 

STM 

L 

B 

STM 

L 

8 

STM 

L 

8 

STM 

L 

B 

STM 

L 

B 

STM 

L 

B 

STM 

L 

B 

DC 

STM 

L 

B 



SERVICE, 
OF 

12, 3, RCS 
12,DSERV 
READ! 
12, 3, RCS 
12, OSERV 
WRIT El 
12, 3, RCS 
12,DSERV 
PAGE1 
9F«0 I 
12, 3, RCS 
12, OSERV 
RDTAPE1 
12, 3, RCS 
12|0SERV 
WRTAPE1 
12, 3, RCS 
12,DSERV 
MKTAPE1 
12 ,3, RCS 
12, OSERV 
REWIND1 
12, 3, RCS 
12, OSERV 
SYSREAD 1 
12, 3, RCS 
12, OSERV 
CHECK I 
12,3, RCS 
12 f OSERV 
FSPTM1 

12, 3, RCS 
12 f OSERV 
SPMASK 1 



12 

AVE(14) 
( ,14) 

AVE( 141 
< ,14) 

AVE (14) 
(,14) 



AVE< 14) 

< ,14) 

AVE? 14) 
( ,14) 

AVEU4) 
( ,14) 

AVE (14) 
( ,14) 

AVE* 14 ) 

< , 14) 

AVE(14) 
(,14) 

AVE(14) 
(,14) 



AVE(14) 
(,14) 



SAVE REGISTERS 
ESTABLISH ACDRESSING 
BRANCH TO SERVICE ROUTINE 



PUNCH S TYPEWRITER NOT SUPPORTED 



BSPTM NOT SUPPORTED 
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IOC OBJECT CODE 



AOOR1 ADCR2 



STMT SOURCE STATEMENT 

686 * 



7 FEB 69 



I/O SERVICE ROUTINES 



0007CC 


4530 


C390 




00AA8 


68 8 


READ! 


BAL 


3, SETUP 


0007DC 


9200 


CAC9 


01121 




689 
690 


READ 2 


MVI 

GET 


CCFLAG,0 

READER, (0) 


OOG7DE 


9 5FF 


C33F 


Q0F57 




694 




CLI 


REREAD, X»FF' 


0007E2 


4 7 70 


CCC6 




007EE 


695 




BNE 


RE A 03 


0007E6 


<520O 


C83F 


00F57 




696 




MVI 


REREAD, 


OOO 7E A 


47F0 


CCBC 




G0704 


6 97 




B 


REA02 


0007 EE 


956C 


LOCO 


00000 




698 


READ3 


CLI 


OU) ,C , ^» 


0007F2 


4770 


C0F6 




0080E 


699 




ENE 


NOTEOF 


0007F6 


92FF 


CAC9 


01121 




7 CO 




MVI 


CCFLAG,X»FF« 


0007FA 


D507 


1001 C538 


O0G01 


00C5O 


701 




CLC 


11 8,1) ,=CL8'EGF» 


000800 


4 7 80 


CCF6 




0080E 


702 




BE 


NOTEOF 


000 80 4 


92FF 


CA08 


01120 




703 




MVI 


EOF,X'FF» 


000808 


D24F 


C9B8 1000 


01000 


00000 


704 




MVC 


CARDBUF( 80), 0{ 1) 


000 80 E 


9500 


CAC9 


01121 




705 


NOTE OF 


CLI 


CCFLAG f O 


000812 


47F0 


C3*0 




00AB8 


706 




B 


RETURN1 


000816 


4530 


C39C 




00 A AS 


708 


WRITE1 


BAL 


3, SETUP 


00081A 


1820 








709 
710 




LR 

PUT 


2,0 

PRINTER 


000826 


D200 


10CC CAOA 


OOGOO 


01122 


714 




MVC 


0(1,1) tCARRCQNT 


000 82C 


95F1 


CAOA 


01122 




715 




CLI 


CARRCONT^'l' 


0Q083C 


4770 


C12C 




008 38 


716 




BNE 


NOSKIP 


000834 


9200 


CA08 


0112 3 




7 17 




MVI 


LINECNT,0 


000 83 8 


9240 


CAOA 


01122 




718 


NOSKIP 


MVI 


CARRCONT,C« » 


00083C 


D283 


1001 2000 


00CC1 


oooco 


719 




MVC 


HLINELENtl 1,0(2) 


00084 2 


4320 


CAOB 




01123 


720 




IC 


2,LINECNT 


000846 


4120 


2001 




00001 


721 




LA 


2,H,2) 


00084A 


4220 


CAOB 




01123 


722 




STC 


2 , LI NEC NT 


000 84 E 


953C 


CAOB 


01123 




723 




CLI 


LINECNT,LINESMAX 


000852 


4740 


C142 




0085A 


724 




BL 


WRITE2 


000856 


92F1 


CAOA 


01122 




725 




MVI 


CARRCONTtC'l* 


000 85 A 


9500 


C344 


00F5C 




726 


WRITE2 


CLI 


LINECHK,0 


00085E 


4780 


C162 




00 8 7A 


727 




BE 


PTRTN 


000862 


5 800 


CAOC 




0L124 


728 




L 


OtLINELIM 


000866 


5B00 


C554 




00C6C 


729 




S 


0,=F»1« 


00086A 


5000 


CACC 




01124 


730 




ST 


O f LINEUP 


00086E 


4 7 BO 


C162 




0087A 


731 




BNL 


PTRTN 


000872 


4 ICO 


CCC1 




000C1 


732 




LA 


0,1 


000876 


47 FO 


C4 70 




00B88 


7 33 




B 


ERRPROC 


00087A 


9540 


CACA 


0112 2 




734 


PTRTN 


CLI 


CARRCONTtC 1 • 


00087E 


47F0 


C3AG 




O0AB8 


735 




B 


RETURN! 


000882 


4530 


C390 




0QAA8 


737 


PAGE I 


BAL 


3, SETUP 


000886 


92F1 


CACA 


01122 




738 




MVI 


CARRC0NT,C»1» 


00088A 


47F0 


C39E 




00AB6 


7 39 




B 


RETURN 


0O088E 


4530 


C390 




00AA8 


741 


SPMASK1 


BAL 


3, SETUP 


000892 


4200 


CAU 




CI 129 


742 




STC 


0»PHASK 


000896 


47F0 


C39E 




00AB6 


743 




B 


RETURN 


G0089A 


4530 


C39C 




00AA8 


745 


SYSREAD1 


BAL 


3, SETUP 



SET UP REGISTERS 

GET NEXT CARD IMAGE 
TEST FOR DATA SET SWITCH 

RESET SWITCH 

REISSUE GET 

TEST FOR CONTROL CARD 

PREPARE TO SET CC * 1 
TEST FOR «ECF» CARD 

INDICATE SYSTEM EOF 
SAVE CARD IMAGE 
SET CONDITION COOff 



FETCH NEXT FREE BUFFER 
ASSEMBLE PRINT LINE 
TEST FOR SKIP 

RESET LINE COUNT 
AND CODE 

INCREMENT LINE COUNT 



TEST FOR PAGE OVERFLOW 

SET FOR SKIP 

TEST FOR LINE COUNTING 

DECREMENT LINE COUNT 



TERMINATE IF NEGATIVE 
INDICATE END OF OS 

SET CONDITION CODE 



SET PAGE SKIP 



SET PROGRAM CHECK MASK 



PAGE 18 

LGC OBJECT CODE ADDR1 A0DP2 STMT SOURCE STATEMENT 7 FEB 69 

746 READ ll),SF,MF=E ISSUE READ 

C0O8AC 47F0 C39E 00AE6 751 B RETURN 

0008B0 4530 C390 G0AA8 753 CHECK1 BAL 3, SETUP 

754 CHECK Ul ISSUE CHECK 

CC08BE 47F0 C3SE 0OA86 758 B RETURN 



B' W «f»ff B 11fBiiiW MW I WWU iW M II III> l l lMllll M i M I| i-l! 
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LCC OBJECT CGCE 



ADDR1 ACCR2 STMT 



SOURCE STATEMENT 



7 FEB 69 



OOO 8C 2 

0008C6 
0008CA 
000 8CE 
0008D2 
CO C 806 
000 8D A 
0008 DE 
C008E2 
0008E6 
C008E8 
0008EC 
0008EE 
0008F2 
000 8 F 6 
0008F8 
000 8 FC 
C00900 
C0090 2 
000904 
000908 
00090C 
Q0091Q 
000914 

000918 
00091C 
CG0920 
00092 2 
000926 
0009 2 A 
00092E 
000932 
000936 
00093 A 
00093 E 
000942 

000946 
00094A 
00094E 
000952 
000954 
000958 
0009 5C 
000960 
0009 6 6 

00096 A 
00096C 

000972 
000976 
0009 7 A 
0009 7 E 
000982 



4530 
4530 
9200 
58D0 
5 8E0 
49EO 
4740 
4770 
92FF 
15EL 
4780 
18 IE 
4120 
14 20 
18C2 
5CO0 
41E0 
18F0 
18C1 
45 00 
5 8E0 
5000 
9500 
47F0 

4 5 30 
4530 
1B33 
4330 
4323 
4220 
8930 
47F3 
47 FO 
47F0 
47F0 
47F0 

5 83 
4120 
5420 
IB 3 2 
5030 
5430 
5030 
C7FF 
47FC 

1810 

02 03 
5 800 
5 800 
5400 
5500 
4780 



C3SG 

C38E 
C83D 
C8FC 
00 CO 
C586 
C414 
C1CE 
C83D 

C1D6 

E007 
C5 94 

C8FC 

D004 



C3E4 
C800 
E158 
C83C 
C3AC 

C390 
C38E 

C847 
C3C8 
C847 
0002 
C2 1E 
C2 2E 
C252 
C2B2 
C2C0 

C3FC 
1007 
C594 

C900 
C56C 
C9C4 
CA34 
C2CC 



C910 
C9C4 
C9 10 
C 56C 
C8F4 
C2 86 



00F55 



00F55 



OOF 55 



CA34 0114C 



1002 0102 8 



C0AA8 
00AD6 

01014 
00000 
OOCCE 
00B2C 
008E6 



003 EE 

00007 
CCCAC 

01014 
000C4 



OOAFC 
OOF 18 
00158 

00AB8 

00AA8 
OOA06 

00F5F 
010 20 
O0F5F 
00002 
00936 
00946 
0096A 
009CA 
009 C8 

01014 
00CC7 
OOCAC 

01018 
0GC84 
0101C 

0114C 
CG9C8 



C00C2 
01C1C 
01028 
00C84 
OlOOC 
C09 9E 



760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
7 73 
774 
775 
7 76 
777 
778 
779 
780 
781 
782 
78 3 

7 85 
786 
787 
788 
7 89 
790 
791 
792 
793 
794 
795 
796 

798 

7 99 
800 
801 
802 
803 

8 04 
805 
8 06 

808 
809 
810 
811 
812 
813 
814 



RDTAPE1 



NOTTMK 



RLENOK 



WRTAPEi 



WR SELECT 



TSTATEO 



TSTATE1 



8AL 

BAL 

MVI 

I 

L 

CH 

BL 

BNE 

MVI 

CLR 

BNL 

LR 

LA 

N 

SR 

ST 

LA 

LR 

LR 

BAL 

L 

ST 

CLI 



BAL 

EAL 

SR 

IC 

IC 

STC 

SLL 

8 

B 

B 

8 

B 

L 

LA 

N 

SR 

ST 

N 

ST 

xc 



LR 

MVC 

L 

S 

N 

CL 

BNL 



3, SETUP 

3»TCHECK 

TMK,0 

13,AP 

14, 0( ,13) 

14,=H»4« 

DEVERR 

NOTTMK 

TNK,X«FF» 

14,1 

RLENOK 

1,14 

2,7( ,14) 

2 f =F'-4« 

13,2 

13, AP 

14, 4 (,13) 

15,0 

0,1 

13|COREM0VE 

14,S14 

0,RISAVE(,14) 

TMK,0 

RETURN 1 

3, SETUP 

3,TCHECK 

3,3 

3,I0STATE 

2, IONEXTOI 

2,I0STATE 

3,2 

WRSELECT(3) 

TSTATEO 

TSTATE1 

TSTATE2 

TSTATE3 

3,AP 
2,7(,1 ) 

2,=F»-4» 

3,2 

3,APLINK 

3,=F»-8« 

3,I0P 

SUPVPRTC 256) , SUPVPRT 

TSTATE3 

ltO 
H0RK(4),2(1) 

0,1 OP 

CiWRK 

0,=F»-8« 

0,LIMITP 

TL0A01 



SET UP REGISTERS 
REJECT ALL BUT DEVICE 5 

ASSUME NO TAPE MARK 

LOAD CORE DESCRIPTOR POINTER. 

LOAD LENGTH OF BLOCK 

END OF DATA SET IFF LENGTH < 4 

TAPE MARK IFF LENGTH = 4 

FIND MINIMUM LENGTH FOR TRANSFER 



POINT TO NEXT CORE DESCRIPTOR 



SET UP REGISTERS 



TRANSFER DATA 

RETURN RECORD LENGTH 
SET CONDITION CODE 



REJECT ALL BUT DEVICE 5 

DETERMINE I/O STATE 

SELECT NEXT STATE FROM 
TRANSITION TABLE 

EXECUTE APPROPRIATE ROUTINE 



STATE C - 

ACCEPT RECTABLE 

PREPARE TO PROCESS PROG SEG 

SAVE AP FOR LATER FIXUP 

INITIALIZE SEGMENT I/O POINTER 
CLEAR LOCAL REFERENCE TABLE 
COMPLETE DATA TRANSFER 

STATE 1 - ACCEPT SEGMENT HEADER 
RECOVER SEGMENT LENGTH 
ADJUST I/O POINTER 



TEST FOR ADEQUATE SPACE 



" '"f f HWU M 'H M !i»ii « |l| l i| W I M IMi l Mllffl W P * i^ ^ 
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LCC OBJECT CODE 



A00R1 ADCP2 STMT 



SOURCE STATEMENT 



7 FEB 69 



000986 4520 C42C 
00098A C9D5E2E4C6C6C9C3 
C0099E 5C00 C9C4 
0009A2 1B22 
0Q09A4 4320 1001 
0009A8 £920 CCC2 
0009 AC 5810 C910 
0009BC 1211 
000982 4740 C39E 
000986 5002 CA34 
0009BA 4120 2CC4 
00096 E 4A00 C5F0 
0009C2 4B10 C5F0 
0009C6 4 7F0 C29 8 

0009CA 18E0 
0009CC 5SFC C9C4 
0G09D0 45C0 C3E4 
000904 4 7F0 C39E 



000908 
00090C 
0009EC 
0009E4 
0009E8 
0009EA 
0009EE 
0009F2 
0009F6 
OOOAOA 
COOAOE 
000 Al 2 
000A16 
000A18 
000A1C 

OCOA20 
000A24 
O0OA28 
QQ0A2C 
000A30 
000A34 
00QA38 
000 A3 A 
000A3E 
000 A42 
000A46 
000A4A 
000 A4E 
000A52 
000 A 5 6 



5830 
5010 
4120 
5420 
1B32 
5530 
47 BO 
4520 
C9C5 
92FF 
5 030 
41F0 
18E0 
45D0 
47F0 

4 530 
45 30 
9501 
4770 
9 203 
5£1C 
1801 

5 BOO 
50 CC 
5810 
5 A 10 
5010 
4100 
4110 
47F0 



C8FC 
3000 
1CC7 
C594 

C 8F4 
C2F2 
C42C 
E2E4C6C6C9C3 



3000 
C8FC 
3004 

C3E4 

C39E 

C39G 
C38E 
C847 
C336 
C847 
C9G0 

C904 
1CCG 
C904 
C594 
C8FC 
C598 
CCC4 
C2C0 



00000 



00F5F 



00F5F 



000A5A 4530 C390 
000A5E 4530 C3BE 
000A62 9300 C846 



G0B44 

0101C 

00001 
0CCC2 
01028 

00AB6 
0114C 
00004 
OODCfl 
OOD08 
C09BQ 



010 1C 

OOAFC 
00A86 

01014 
00000 
00007 
OOCAC 

C100C 
OOAOA 
00844 



QIC 14 
00004 

OOAFC 
00A86 

00AA8 
00A06 

00A46 

01018 

010 1C 
OGOCO 
010 1C 
OOCAC 
01014 
OOCBO 
00004 
00908 

00AA8 
0CAO6 



00F5E 



815 
816 
817 
818 
819 
820 
821 
8 22 
823 
824 
825 
826 
827 
828 

8 30 
831 
832 
833 

835 
8 36 
8 37 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 

851 
852 
853 
854 
855 
856 
857 
858 
859 
86C 
861 
862 
86 3 
8 64 
865 

867 
868 
869 



TL0AC1 



TL0AD2 



TSTATE2 



TSTATE3 



TWR1 



MKTAPE1 



TMK1 



REWIND1 



BAL 

DC 

ST 

SR 

IC 

SLL 

I 

LTR 

BL 

ST 

LA 

AH 

SH 

B 

LR 

L 

BAL 

B 

L 

ST 

LA 

N 

SR 

CL 

BNL 

BAL 

DC 

MVI 

ST 

LA 

LR 

BAL 



BAL 

BAL 

CL1 

BME 

MVI 

L 

LR 

S 

ST 

L 

A 

ST 

LA 

LA 

8 

BAL 
BAL 
TS 



2,SRVMSG 

CL20*INSUFFICIENT STORAGE* 

0, TOP 

2,2 

2il«tll RECOVER SEGMENT NUMBER 

2,2 

1,W0RK AND SEGMENT LENGTH 

1,1 

RETURN 

0,SUPVPRT(2» MAKE PRT ENTRY 

2,4(,2) STEP SEGMENT NUMBER 

0,=H»4096» INCREMENT BASE ADDRESS 

t,=H*4096« DECREMENT LENGTH 

TL0A02 



14,0 

15, IOP 

13, CORE MOVE 

RETURN 



STATE 2 - ACCEPT SEGMENT 
SET UP MOVE SUBROUTINE 



STATE 3 - STANDARD WRITE 
SAVE RECORD LENGTH 
LOCATE NEXT DESCRIPTOR 



TEST FOR AREA OVERFLOW 



3,AP 

1,0( ,3) 

2,7(,1) 

2 f =F«-4« 

3,2 

3,LIMITP 

TWR1 

2,SRVMSG 

CL20» INSUFFICIENT STORAGE* 

0<3,»X«FF* SET NEW LENGTH NEGATIVE 

3,AP 

15,4{,3) SET UP MOVE ROUTINE 

14,0 

13,CGREMCVE 

RETURN 



3, SETUP 

3,TCHECK 

IOSTATE, 1 

TNK1 

IOSTATE, 3 

ItAPLINK 

0,1 

Of IOP 

0,0{ ,1) 

l f IOP 

1,AP 

0,=F*-1* 
1,4 
TSTATE3 

3, SETUP 

3,TCHECK 
LIMITSET 



TEST FOR END OF SEGMENT OUTPUT 

SWITCH STATE FOR NORMAL WRITE 
COMPUTE DESCRIPTOR FOR PROGRAM 



STORE IT 

UPDATE AP 



SPECIFY MARK RECORD 
WRITE 

TEST FCR CORRECT DEVICE 5 ORIGIN 



wmmirm mBmmmm" ! 



im mvmmmmm 



yillllHIIIIIM lIMMIfr 



mmmmmmmmmmrmmm 
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LCC 


OBJECT CODE 


ADDR1 


ACDR2 


STMT 


SOURCE 


STATEMENT 


000A66 


477C 


C3 58 






G0A70 


870 




BNZ 


RW2 


000A6A 


C203 


C8F4 


CS08 


01CGC 


00F2C 


8 71 




KVC 


LIMITPC4) ,H!CORE 


000A7C 


0203 


C8FC 


C8F8 


01014 


01010 


872 


RW2 


MVC 


AP(4),0RGP 


00OA76 


47FQ 


C3SE 






00AB6 


873 




B 


RETURN 


000A7A 


4530 


C390 






00AA8 


87 5 


FSPTM1 


BAL 


3, SETUP 


000A7E 


4530 


C3BE 






0OAD6 


876 




BAL 


3,TCHECK 


000A82 


5 800 


C 8FC 






C1G14 


877 




t 


13, AP 


000 A 86 


58 EO 


cooo 






OOOGG 


878 


LOOK 


L 


14,0(,13) 


000A8A 


4120 


ECC7 






00007 


8 79 




LA 


2,7(,14) 


000 A8E 


5420 


C594 






OOCAC 


880 




N 


2 , =F » -4 » 


0G0A92 


1BD2 










881 




SR 


13,2 


000A94 


49E0 


C5B6 






OOCCE 


382 




CH 


14,=H'4« 


Q00A98 


4740 


C414 






00B2C 


8 83 




BL 


DEVERR 


O00A9C 


477G 


C36E 






00A86 


884 




BNE 


LOOK 


O0OAAC 


5000 


C8FC 






01014 


885 




ST 


13 t AP 


000 A A4 


47FG 


C39E 






00AB6 


886 




8 


RETURN 



7 FEB 69 



INITIALIZE 
RESET CORE 



DEVICE 5 ORIGIN 
DESCRIPTOR POINTER 



LOAD CORE DESCRIPTOR POINTER 

LOAD LENGTH 

LOCATE NEXT DESCRIPTOR 

POINT TO IT 

TEST LENGTH 

END OF DATA SET IFF LENGTH < 

TAPE MARK IFF LENGTH = 4 

SAVE POINTER 



mmmmiimMmmHimmim 
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LOC OBJECT CODE 



G00AA8 92FF 
OOOAAC 50EO 
000A80 4100 
000A34 07F3 



OOO A8 6 
000AB8 
GOOABC 
OCGACC 
000 AC 4 
000AC6 
000 AC A 



1800 
58EO 
9200 
9 8C3 
C7FF 
5 SCO 
9 2FF 



C843 
C8C0 
C848 



C8CC 
C843 
£144 

El 40 
C3AD 



A0DR1 



00F5B 



00F5B 



00AC5 



OOOACE 4100 0006 
CO0A02 47F0 C47C 



ADDR2 


STMT 


SOURCE 


STATEMENT 




888 


SETUP 


MVI 


IOFLAG,X«FF' 


00F18 


889 




ST 


14,S14 


G0F6C 


890 




LA 


13, SAVE 




891 




BR 


3 




893 


RETURN 


SR 


0,0 


OOF 18 


894 


RETURN1 


L 


14,S14 




895 




MVI 


IOFLAG,0 


00144 


8 96 




L* 


12,3,RCSAVEU4) 




897 


IOEXIT 


BR 


15 


00140 


898 




L 


12,0SERV( ,14) 




899 




MVI 


IOEXIT+1 ,X*FF' 


00006 


900 




LA 


0,6 


00888 


901 




B 


ERRPROC 



7 FEB 69 



INDICATE I/O EXIT 

SAVE R14 

SUPPLY OS SAVE AREA 



RETURN POINT - SET CC » 
RETURN POINT - CC PREVIOUSLY SET 
RESET I/O EXIT FLAG 

CHANGED TO NO-OP BY TIMER TRAP 

RESTORE ADDRESSING 

RESTORE BRANCH 

INDICATE TIMER INTERRUPT 
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LCC 


GBJE< 


;t cot 


)E 


AD0R1 


ACCR2 


STMT 


SOURCE 


STATEMENT 


O00AO6 


4920 


C5F2 






OODCA 


°03 


TCHECK 


CH 


2,=H»5' TEST FOR DEVICE 5 


OOOAQA 


0783 










904 




BCR 


8,3 


OOOADC 


4920 


C5F4 






OOCOC 


905 




CH 


2,=H«7« TEST FCR DEVICE 7 


GOOAEO 


4770 


C414 






00B2C 


906 




BNE 


DEVERR 


OOO AE4 


4520 


C42C 






00B44 


9G7 




BAL 


2, SRVMSG 


000AE8 


C905E2E4C6C6C9C3 




908 




DC 


CL20* INSUFFICIENT STORAGE 1 


OOOAFC 


50 00 


C91C 






01028 


910 


CCREMQVE 


ST 


OfMORK SAVE RO 


000 BOO 


4100 


01CO 






00100 


911 




LA 


0,256 


000 BO 4 


1910 










912 


CCRELOGP 


CR 


1,0 MOVE 2 56 BYTE SLOCKS 


00OB06 


47C0 


C402 






OOB IA 


<H3 




BNH 


LASTMOVE 


OOOBOA 


D2FF 


FCCO 


EOOO 


00000 


00000 


914 




MVC 


0(256, 15 ),0( 14) 


000810 


IB 10 










915 




SR 


1,0 


000B12 


1AE0 










916 




AR 


14,0 


000B14 


1AFC 










917 




AR 


15,0 


0OOB16 


47 FO 


C3EC 






CCBG4 


918 




8 


CCRELOGP 


00081A 


1211 










919 


LASTMOVE 


LTR 


1,1 MOVE REMAINING BLOCK 


0G0B1C 


4700 


C4CE 






008 26 


920 




BNH 


CORERTN 


000 82 


0610 










921 




BCTR 


1,0 


000822 


4410 


C504 






00C1C 


922 




EX 


1, CORE MVC 


000826 


5800 


C910 






01C26 


923 


CORERTN 


L 


,WORK 


000 B2 A 


07FD 










924 




BR 


13 RETURN 


OO0B2C 


4520 


C42C 






00844 


926 


DEVERR 


BAL 


2, SRVMSG 


000 B30 


C961D64GC5C9D906 




927 




OC 


CL20»I/0 ERROR* 


000B44 


94 BF 


CS4Q 




OOF 58 




928 


SRVMSG 


NX 


TMASK,X'FF«-T!MEON CANCEL LIMIT CHECKS 


00084 8 


9200 


C844 




00F5C 




929 




MVI 


LINECHKjO 


000 B4C 


58E0 


C550 






00C68 


9 30 




L 


14,=A(SUPVPRT) 


0C0B5C 


4100 


C934 






0104C 


931 




LA 


0, BUFFER WRITE MESSAGE 


000 854 


925C 


C934 




01C4C 




932 




KVI 


BUFFER t C»*» 


CQ0B58 


C282 


C935 


C934 


Q104D 


01G4C 


933 




MVC 


BUFFER+ 1(131) , BUFFER 


00OB5E 


45FG 


cccc 






00724 


934 




BAL 


15,WRITE 


000 862 


C283 


C934 


C933 


0104C 


0104B 


93 5 




MVC 


BUFFERU32) , BLANK 


0O0B68 


D213 


C934 


200C 


01C4C 


000 GO 


936 




MVC 


BUFFER (20), 0(2) 


000B6E 


9 5FF 


C845 




00F5D 




937 




CLI 


ARUN,X«FF» CHECK FOR EXECUTION 


C00B72 


4780 


C464 






00B7C 


9 38 




BE 


SRVMSG1 


00OB76 


0213 


C94£ 


C580 


01060 


OOC98 


939 




MVC 


8UFFER+20(20),=C DURING COMPILATION • 


000 87 C 


45 FO 


COOC 






00724 


94 


SRVMSGL 


BAL 


15,WRI TE 


OOOB80 


58C0 


C860 






01278 


941 




L 


12,JSPBASE*-SUPVPRT-PRT 


00OB84 


47F0 


COCO 






COGCO 


942 




B 


PURGE-J08SEQ(,12) 


000B88 


94 BF 


C840 




00F58 




944 


ERRPROC 


NI 


TMA5K, X»FF»-TIME0N CANCEL LIMITS 


00OB8C 


9 200 


C844 




00F5C 




945 




MVI 


LINECHK,0 


000890 


5 8 EG 


C800 






OOF 1 8 


9 46 




L 


14,514 


000B94 


0203 


C890 


E150 


00FA8 


00150 


947 




MVC 


ERRAD0R(4),RFSAVE(14) SAVE LINK ADDRESS 


000B9A 


C20F 


CS94 


E154 


OGFAC 


00154 


948 




MVC 


REGSAVE(16),R0SAVE(14) ASSEMBLE REGISTERS 


OOOBAO 


9048 


C8A4 






00F8C 


949 




STM 


4, H,REGSAVE+16 


000BA4 


D20F 


C£C4 


E144 


OOFCC 


00144 


9 50 




MVC 


REGSAVE + 48U6),RCSAVE( 14) 


OOOBAA 


4160 


C894 






COFAC 


951 




LA 


6*REGSAVE SET UP CALL 


OOOBAE 


1870 










952 




LR 


7,0 


COOBBO 


4180 


C88C 






00FA4 


953 




LA 


8,ERRADDR-4 


000884 


1B00 










954 




SR 


0,0 


CG0886 58F0 


EOFC 


OOOFC 


955 




L 


15,63*41 f 14) CALL ALGOL RUNERRQR 
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00OB8A 


052F 




00088C 


5 8EO 


C550 


cooooc 






0008C0 


58C0 


E 12C 


OOO BC4 


47F0 


COOO 



ADDR2 


STMT 


SOURCE 


STATEMENT 




956 




BALR 


2,15 


OQCfeS 


9 57 




L 


14,=A( SUPVPRT) 




9 58 




USING 


PRT, 14 


CCL2C 


959 




L 


12,JSPBASE 


00000 


960 




8 


PURGE-J08SEQJ ,12) 




961 




DROP 


14 



TERMINATE JOS AND PURGE 



LCC OBJECT CODE 

OOOBC8 56EO C8CC 
OOOBCC 4100 C848 

OOOBEO 5810 C310 



0006FA 5800 D004 



00GCC4 
CO0C04 
OOOC08 
COOCOC 
OOOCIO 
000C14 
000C16 
000C1A 

00003C 



96C8 
9 500 
4770 
9 2FF 
07FE 
S2FF 
07 FE 



F1CC 
F352 
F012 

F352 

F353 



AODRl A0DR2 STMT 



00F18 
00F60 

OOF 28 



00004 



OODOO 
OOF 56 

00F56 

O0F57 



00C16 



964 
96 5 
973 
974 
9 76 
986 
987 

991 
992 

993 
994 

995 
996 
997 
998 
999 
1000 
1001 



SOURCE STATEMENT 
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963 OSRETURN L 



DC8EXIT 



SETRETRY 



DCBOFLGS 



14,S14 



LA 13, SAVE 

FREEMAIN V,A=GOTLIST 



L 

SPIE 

CLOSE 

L 
RETURN 

DROP 

USING 

01 

CLI 

BNE 

MVI 

BR 

MVI 

BR 

DROP 

EQU 



1, PI RE SET 

MF=(E,( 1)) 

(PRINTER,, RE ACER,, SYSTEM) 

13,4(,13J RETURN 

(14, 12) 



FREE SYSTEM RESOURCES 
RESTORE PICA ADDRESS 



12 

0CBEXIT,15 

REA0ER+OCBOFLGS,X , 8» 
RDRSTATiO 

SETRETRY 

RDRSTAT,X'PF* 

14 

REREAD, X*FF« 

14 

15 

X'30* 



SET UNLIKE- ATTRIBUTES BIT 
TEST FOR PREVIOUS ENTRY 

INDICATE PREVIOUS ENTRY 

REISSUE GET 



000 CI C 

00OC2 2 
O00C24 
000C24 
O00C2 6 

00QC2C 
000C3 

000C34 
0OOC3 8 
0OOC3 8 
OOOC40 
000 CSC 
C00C5 8 
000C5C 
C00C60 
000C64 
000C68 
C00C6C 
000C7G 
C00C74 
OOOC7 8 
000C7C 
000C8C 
000C84 
000C88 
000C8C 
000C9C 
000C94 
0CCC9 8 
OOOCAC 
OOOCBO 
000CS4 



C200 
C7F2 



FQOO EOOO OOOOG OOOCO 



C000023C 
CCC0C4CC 

0000 04 5 A 
8 5 00 OC 04 



C1D3C7D€034C4G4G 

C7C9C6C7CSC1D440 

C5D6C64040404040 

CC00028C 

000 00 3 C 

C000000 3 

Q0007FF8 

0000114C 

CC000001 

GO001068 

CCQ001F4 

CCGOCOOA 

oeoooooo 

C 8 00 0000 

FFFFFFFE 

00000618 

GCGCG718 

GCG00C34 

COOOGOOF 

40C4E4DSCSD5C740 

FFFFFFFC 

FFFFFFFF 

C503C10 7E2C5C44C 



1003 
1004 
100 5 
1006 
1007 
1008 
1009 

1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
10 28 
1029 
1030 
1031 
1032 
1033 
1034 
1035 



COREMVC 
UDUMP 

SU3RSW 



ADCBEXIT 



LINKS NO 



MVC 0(0,15) ,0(14) 

BR 2 

OS OF 

DC A( INITIAL) 

OC A(PASSEXEC) 

OC A(RUNEXEC) 

OC X»85',AL3(DCBEXIT) 

OS OH 

LTORG 

= CL8» ALGOL' 

=C» PROGRAM CHECK N0» 

=CL8»E0F* 

=F»640» 

=F«60* 

=A(BUFM00-1) 

=A(RECLEN) 

=A(SUPVPRT) 

= F» 1' 

=A(BUFFER+28) 

=A(D6FLINES) 

= A( DEFT IMF) 

=XL4« OEOOOOOO' 

=XL4»080Q0000» 

=F»-8* 

=A(PROGINT) 

=A(SERVICE» 

=A(LINKEND) 

= F»15« 

=C» DURING COMPILATION 

=F»-4» 

=F»-1« 

=C» ELAPSED TIME IS 3 



DUMMY 

SUBROUTINE SELECTION TABLE 



DC8 EXIT CODE AND ADDRESS 



ICC OBJECT CODE 



AQDR1 ADDR2 



OOOCCA 0003 

oooccc cccc 

OOOCCE C004 

OOOCDC CI 04 

000C02 E2E3C1D5C£06D9C4 

000CF4 GOOA 

000CF6 00 3C 

000CF8 001E 

000CF4 C3C604C7C3C3C509 

C00008 1000 

COODOA 0C05 

COODOC 0007 

COODGE 4C05D6E340CIE5C1 

O0OD1C 4F40C9C5E5C1D3C9 

000D3A COG 186 



STMT SOURCE STATEMENT 


1036 


=H*3' 


10 37 


= H' 12' 


1038 


=H'4» 


1039 


=AL2(MAXUSEG*4 + 8) 


1040 


=C*STANFORD ALGOL W (OVERLAY VERSION)' 


1041 


=H» 10» 


1042 


=H«60' 


1043 


=H»30* 


1044 


=C 'COMPILER ERROR' 


1045 


=H'4096« 


1046 


=H»5» 


1047 


=H»7' 


1048 


=C» NOT AVAILABLE ' 


1049 


=C«| INVALID LIMIT SPECIFICATION' 


1050 


=AL3(PURGE) 
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ICC OBJECT COCE 



AODR1 AODR2 STMT 



SOURCE STATEMENT 
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000040 



OOOE58 CCG00E7400Q0QE6Q 



1052 * 

1054 JSQSEG OS 

1055 PRINT 

1056 PRINTER DC8 

1112 READER 0C8 



1168 SYSTEM 0C8 



1222 0EC3TAB DC 



J08 CONTROL DATA 

OD 

NQGEN 

0SaRG=PS,MACRF=PL,ODNAME=FTC6FO01,OEVO=OA,RECFM=FBA, 

LRECL=LINELEN+1,BFTEK=S,ER0PT=ABE 

DSaRG=PS,MACRF=GM,DDNAME=FT05F0Ol,0EVD=DA,RECFM=F8, 

LRECL=80,SFTEK=S,SYNAD=DEVERR,E0DAD=0SRETURN, 

EROPT=ACC,EXLST=ADCBEXIT 

0SORG=PS,MACRF=RP,0DNAME=COMPILER,DEVD=OA,RECFM=UT, 

BLKSIZE=32760,NCP=2,SYNAD=0EVERR,E00AD=0EVERR 

ALDEC82) ,A(DEC8H 



X 

X 



1224 SYS1 READ DECB1 , SF , SYSTEM, ,32760, MF=L 

1233 SYS2 READ DECB2 , SF , SYSTEM, ,32760, MF=L 



OOOE8 8 

000E88 
C00E8C 

OGOEAC 
000000 
C00001 
000002 
000004 
CO 00 06 
000008 
COOOOA 



00 00114C 



1243 
1244 

1245 

1247 
124 8 
1249 
1250 
1251 
12 52 
12 53 
1254 



PRT8ASE 



PRGCREC 

LOAD 

EXEC 

LQADIO 

EXEC ID 

INDEX 

NORMNEXT 

ERRNEXT 



CS 

DC 
OS 

CS 

EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



OF 

A {SUP V PRT) 

4F 

OD 



1 

2 

4 

6 

8 

10 



PRT POINTER TABLE 
SUPERVISOR PRT 
COMPILER PRT POINTERS 

PROCESS CONTROL RECORDS 

LOAD PROCESS ACTIVATION 
EXECUTION PROCESS ACTIVATION 
ID # OF PROGRAM TO BE LOADED 
ID # OF PROGRAM TO BE EXECUTED 
INDEX TO SUBROUTINE TABLE 
NORMAL NEXT STATE 
ERROR NEXT STATE 



OOOEAC 
OOOEAC 
000EB8 
000EC4 
000 EDO 
OOOEDC 
OOOEER 
000EF4 
COOFOO 

000 FOC 

000F1C 

000F14 
000F18 
00GF1C 
000F2G 
G00F24 
000F28 
00.0F2C 
000F30 
000 F4 8 
000F4C 



GOFFCC 
G10000 
COFFCO 
C2CCCC 
OQFFOO 
G20CC0 
COFFCC 
C10000 
COFFCC 



CCOCCOOOOO 
C4CCCC00C0 
0C00O4O004 
C8CC0O0OOO 
0000080004 
OCCCCCOOOO 
CCCCCC00G4 
1000000000 
CCCC100008 



0000000 C 



C15F900C 



12 56 
1257 
1258 
12 59 
1260 
1261 
1262 
1263 
1264 
1265 
12 66 

1268 
12 69 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
12 80 



.L25 

STATED 

STATE! 

STATE 2 

STATE3 

STATE4 

STATES 

STATE6 

STATE? 

STATES 

BUFCBPTR 

BUFADDR 
. L26 

ISAVE 

S14 

R2SAVE 

HICORE 

TCBADR 

PIRESET 

TSAVE2 

TSAVE 

TIMELIM 

COMPLIM 



AIF 

ANOP 

DC 

DC 

DC 

DC 

DC 

CC 

DC 

DC 

DC 

DC 

DS 

ANOP 

DS 

DS 
OS 
OS 
DS 
DS 
DS 
OS 
DS 
DC 



USWAPI.L25 

X'OOSX'FFSH'O'jH'O', H«0«,H« 1»,H» 0' 
X»0i» ,X»00' ,H»4« ,H*0» ,H»0» ,H'2 , ,H»0« 
X'COSX'FF'tH'O' ,H*4« ,H«4* ,H«3» ,H»0« 
X'02« ,X«00 , ,H , 8»,H ,I 0»,H , , ,H»4«,H»0* 
X«00» ,X«FF» ,H , 0» ,H'8« ,H»4* ,H«5* ,H»0* 
X«02SX«OOSH»12»,H»0»,H»0»,H«6«,H , 0« 
X»00» , X»FF« ,H«0« ,H«12*,H*4« , H«7»,H'0» 
X'Ol* , X'OO' ,H»16 I ,H»0» ,H*0' ,H»8» ,H*0» 
X»00» ,X«FF«,H«0»,H* 16*,H , 8 , ,H*0»,H»0« 



INITIALIZE 
LOAD PASS 1 
EXEC PASS 1 
LOAD PASS 2 
EXEC PASS 2 
LOAD PASS 3 
EXEC PASS 3 

ALGOLRUN 



A(BUFM00-4) 
A 

A 

A 

F 

A 

A 

F 

F 

6F 

F 

F«23Q4GGG0» 



BUFFER CONTROL BLOCK INDEX 
BUFFER CONTROL BLOCK 

CONTROL RECORD POINTER 
R14 SAVE WORD 

HIGHEST COMMON LOCATION USED 

TCB ADDRESS 

PICA ADDRESS SAVE AREA 

TIME ROUTINE SAVE AREA 

10 MINUTES UN TUNITS) 
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LGC OBJECT CODE 

000F50 

000F54 
000F55 CC 



ADD Hi ACCR2 ST HI 



SOURCE STATEMENT 
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00 OF 56 
000F56 
000F57 

000F5g 
000F58 
000080 
000040 
000020 
000010 
000F5A 
000F5B 
000F5C 
000F5D 
000F5E 
000F5F 

00OF6C 
00 OF A 8 
GOOFAC 
000 FEC 
GOOFFC 
001004 
OOIOOC 
00 1010 
OOIOOC 
001014 
001018 
00101 C 
001C20 
001028 
00102 8 
001030 
001038 
001040 
001048 
001049 
00 104? 
00. 104 A 
00104B 
G0104C 
0010D0 



001120 
001121 
001122 
001123 
00112 4 

001128 



COOO 



CCCCCGOOCOOOOOOO 



010 20103 



4C404C4C4C404040 
C0019CCOCG080000 



0000 



40 



00 

Fl 

00 



12 81 


TINTLOC 


DS 


F 




12 82 


TINTBYTE 


OS 


X 




1283 


TMK- 


oc 


X'OO' 




12 85 


RDRSTATS 


DC 


2X»00» 




1286 


RORSTAT 


EQU 


RCRSTATS+0 




12 8 7 


REREAD 


EQU 


RORSTATS+1 




12 S9 


STATS 


DC 


8X'00' 




1290 


TMASK 


EQU 


STATS+O 




1291 


TIME SET 


EQU 


X'80* 




1292 


TIM EON 


EQU 


X«40' 




1293 


TIMEOUT 


EQU 


X'20« 




1294 


TR13 


EQU 


X'iO* 




1295 


INTFLAG 


EQU 


STATS+2 




1296 


IOFLAG 


EQU 


STATS+3 




1297 


LINECHK 


EQU 


STATS+4 




1298 


ARUN 


EQU 


STATS +5 




1299 


LIMITSET 


EQU 


STATS+6 




1300 


IOSTATE 


EQU 


STATS+7 




1302 


SAVE 


OS 


18F 




130 3 


ERRADCR 


OS 


A 




1304 


REGSAVE 


OS 


16F 




1305 


SSAVE13 


DS 


F 




1306 


PISAVE 


DS 


5F 




130 7 


CO f MUM 


DS 


2F 




1308 


IOLIM 


DS 


2F 




1309 


GRGP 


EQU 


IOLIM+4 




1310 


LIMITP 


EQU 


ICLIM+O 




1311 


AP 


DS 


F 




1312 


A PLINK 


OS 


A 




1313 


IOP 


DS 


A 




1314 


IONEXT 


DC 


X'01020103' 




1315 


CONWORK 


DS 


D 




1316 


WORK 


EQU 


CON WORK 




1317 


DATE 


DC 


CL8* • 




1318 


ASKLIST 


DC 


AlCOREMINJ, 


A(CGREMAX) 


1319 


GOT LIST 


DS 


2F 




132 


SUCCESS 


DS 


X 


PROGRAM E 


13 21 


CHARSW 


DC 


2X*00 f 




1322 


COLON 


EQU 


CHARSW+O 




13 2 3 


COMMA 


EQU 


CHARS W+l 




13 24 


BLANK 


DC 


C* » 




132 5 


BUFFER 


DS 


CL132 




13 26 


CARQBUF 


DS 


CL80 




1328 


* 






UNIT RECO 


13 29 


EOF 


DC 


X'OO 1 




13 30 


CCFLAG 


DS 


X 




1331 


CARRCCNT 


DC 


C'i' 




1332 


LINECNT 


DC 


X'OO' 




1333 


LINELIM 


DS 


F 





TIMER INTERRUPT LOCATION 
SAVED INSTRUCTION BYTE 
TAPE MARK FLAG 

READER STATUS FLAG 

SET AFTER FIRST OPEN 

SET IF GET MUST BE REISSUED 

STATUS FLAGS 

TIMER STATUS BITS 

TIMER STARTED 

TIMER ENABLED 

TIMER EXPIRED 

PRT POINTER IN SAVE AREA 

INTERRUPT PROCESSING 

I/O PROCESSING 

LINE COUNTING 

ALGOL RUN LOADED 

DEVICE 5 LIMIT SET 

DEVICE 5 STATUS SETTING 

OS SAVE AREA 

REGISTER ASSEMBLY AREA 
SPECIAL R13 SAVE AREA 



UPPER I/O BUFFER BOUND 
LOWER I/O BUFFER BOUND 
I/O POINTER 
LINK FOR ADJUSTING AP 
SEGMENT LOAD POINTER 
DEVICE 5 STATE TRANSITION VECT 
WORK AREA 

CURRENT DATE 



LIMIT FIELD STATE SWITCHES 



MONITOR PRINT BUFFER 
JOB CARD BUFFER 

ID VARIABLES 
READER END-OF-FILE 
CONDITION CODE FLAG 
USASA CARRIAGE CONTROL CODE 
PRINTER LINE COUNT 
JOB LINE LIMIT 



.1335 FLAGS 



DS 



OF 



fWWWWWW W W 



mm ) \ m i m iimm\m i\ t mm\ m M m*m\ t m < \m m mm * m(am\\mn mmv mm 



PAGE 29 



LOC OBJECT CODE 

001128 FFFFOGOO 
001125 

00112C 



A0CR1 ADDR2 STMT 



SOURCE STATEMENT 
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1336 DC 

1337 PMASK EQU 

1339 PCHKTBL DS 



X*FFFF0O00« 
FLAGS+1 

16H 



PROGRAM CHECK MASK 
PROGRAM CHECK COUNT TABLE 
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LCC OBJECT CODE 



CCOOOO 



ADDR1 ADDP2 



000000 
00010C 
000104 
000108 
00010C 
000114 
000118 
0001 1C 
000120 

00012 8 
00012C 
000130 

00013 8 
00013C 
C0014G 
000144 
000164 
COOOCC 

00114C 
001 14 C 
00124C 
001250 
001254 

00125 8 

00126 
00126 4 
00126 8 
00126C 
001274 
001278 
00127C 
001284 
001288 
00128C 
001290 
001280 

000144 
000150 
000154 
00015 6 

00014 



ccccoooo 

CCGCCCCC 
00000000 

cococccccccooooo 

OOOOOCFO 
0CC0012E 
C00O0C22 

coooocceoccooooo 

CO 000040 
COCO 01 86 
OOOQOOCOOCCOOOOO 

CCGCCCCC 

oocooccc 

CO 00 07 18 



cccccccc 

00000000 

ccooccoo 

ocooccccccccoooo 

OOOOCOFO 
CC00C12E 

C0OO0C22 

CCCOCCCCOOCOOOOO 
CCCCCD4C 
00000186 

ocoocoocoooooooo 

COOOCOOC 
OOOOCOOO 
CC00C718 



STMT 


SOURCE 


STATEMENT 


1341 


* 






1343 


PRT 


DSECT 




1344 


* 


EACH 


PROGRAM HAS A 


1346 




OS 


64F 


1347 


FROGLEN 


DC 


A(Q) 


1348 


DATALCfc 


OC 


A(0) 


1349 


DATALNG 


DC 


A(0) 


13 50 




DC 


2F'0» 


1351 


GTIMBASE 


OC 


A(GETTIME) 


13 52 


WTIMBASE 


cc 


AtWRITTIMEJ 


1353 




DC 


AtUDUMP) 


1354 




DC 


2F«0» 


13 55 


JSC8ASE 


DC 


A(JSOS£G) 


13 56 


JSPBASE 


OC 


A< JOBSEG) 


13 57 




DC 


2F»0» 


1358 




CC 


A(0) 


13 5 9 




DC 


F'O' 


1360 




DC 


A( SERVICE) 


1361 




DS 


8F 


13 €2 




DS 


3F 


1363 


ALG0LWG2 


CSECT 




1365 


SUPVPRT 


DS 


OF 


1366 




OS 


64F 


13 67 




DC 


A(0) 


13 6 8 




DC 


A (01 


1369 




DC 


A(0) 


13 70 




DC 


2 F » * 


1371 




DC 


AtGETTIME) 


1372 




DC 


A(WRITTIME) 


1373 




DC 


A(UOUMP) 


1374 




DC 


2F*0» 


1375 




CC 


At JSDSEG) 


13 76 




DC 


A( JOBSEQ) 


1377 




DC 


2F*0' 


1378 




DC 


A101 


1379 




DC 


F*0» 


1380 




CC 


A (SERVICE) 


13 81 




DS 


8F 


138 2 




DS 


3F 


13 84 


RCSAVE 


EQU 


324 


13 8 5 


RFSAVE 


EQU 


336 


13 86 


ROSAVE 


EQU 


340 


1387 


R1SAVE 


EQU 


344 


13 88 


OSERV 


EQU 


4*80 


1389 




END 
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PROGRAM REFERENCE TABLE 



PRT OF THE FOLLOWING FORM 



0-63 COMPILER/USER SEGMENTS 

64 HIGH PROGRAM ADDRESS 

65 LOW NON-REUSABLE DATA BASE 

66 NON-REUSABLE DATA LNG6TH 
67-68 RESERVED 

69 GET ELAPSED TIME 

70 WRITE ELAPSED TIME 

71 USER DUMP ROUTINE 
72-73 RESERVED 

74 JOB SEQUENCE DATA 

75 JOB SEQUENCE PROG 
76-77 RESERVED 

78 TAPE LOAD ROUTINE 

79 RESERVED 

80 SUPERVISOR ENTRY 
REGISTER SAVE AREA 
SAVE AREA 



SEGMENT 
SEGMENT 



POINT 



SUPERVISOR PRT 

64 HIGH PROGRAM ADDRESS 

65 LOW NON-REUSABLE DATA BASE 

66 NON-REUSABLE DATA LENGTH 
67-68 RESERVED 

69 GET ELAPSED TIME 

70 WRITE ELAPSED TIME 

71 USER DUMP ROUTINE 
72-73 RESERVED 

74 JOB SEQUENCE DATA 

75 JOE SEQUENCE PROG 
76-77 RESERVED 

78 TAPE LOAD ROUTINE 

79 RESERVED 

80 SUPERVISOR ENTRY 
REGISTER SAVE AREA 
SAVE AREA 



SEGMENT 
SEGMENT 



POINT 



m in i .iiiiiiiiiiiiiiiiiiiiiiiiiii mmrnmmmmm 



CROSS-REFERENCE PAGE 





SYMBOL 


LEN 


VALUE 


OEFN 


REFERENCES 






> 














7 




ACCBEXIT 


1 


0CCC30 


1009 


1138 


























ALGQLfe02 


1 


CCCOOO 


16 


1363 


























AP 


4 


CC1C14 


1311 


1C4 


461 


76 3 


775 


798 


835 


845 


862 


872 


877 


885 






APLINK 


4 


001018 


1312 


802 


856 
























ARUM 


1 


GOOF 50 


1298 


447 


595 


937 






















ASKLIST 


4 


001038 


13 18 


13 


, 
























BLANK 


1 


00104B 


1324 


170 


290 


363 


488 


935 


















BUFADDR 


4 


CCCF10 


12 69 


97 


224 


253 






















8UFCBPTR 


4 


OOOFOC 


1268 


220 


223 


252 


2 88 




















BUFFER 


13 2 


00 104C 


132 5 


170 


171 


173 


174 


183 


290 


292 


294 


295 


298 


3 07 


309 310 311 












311 


312 


330 


332 


362 


363 


365 


440 


488 


489 


490 


500 501 50 5 












506 


599 


603 


604 


604 


6 06 


607 


608 


608 


931 


932 


933 933 935 












936 


939 


1022 




















Jfe 


BUFMQD 


1 


CCC004 


29 


222 


1018 


1268 






















CARDBUF 


80 


0C1000 


1326 


298 


704 
























CARRCONT 


1 


CC1122 


1331 


291 


305 


429 


448 


714 


715 


718 


725 


734 


738 








CCFLAG 


1 


001121 


1330 


689 


700 


705 






















CHAIN 


6 


CCG5C2 


53 5 


538 


























CHARSW 


1 


001049 


1321 


32 9 


329 


1322 


1323 




















CHECK 


4 


00079C 


67 5 


246 
























9 


CHECK 1 


4 


CCC880 


7 53 


677 


























CHKLOOP 


4 


000 2 1C 


245 


24 6 


























COLON 


1 


CG1049 


1322 


345 


355 
























COMMA 


I 


CC1C4A 


132 3 


34 C 


36 
























COMMLIM 


4 


001004 


1307 


99 


39 8 
























COMPLIM 


4 


CCCF4C 


1280 


150 


381 






















^ 


CONVERT 


4 


G0010C 


147 


143 


























CON WORK 


3 


001028 


1315 


178 


179 


499 


500 


5 04 


505 


1316 














CORE LOOP 


2 


GGGB04 


912 


918 


























COREM^X 


1 


C80000 


25 


1318 


























CORE MI N 


1 


C19000 


24 


1318 


























COREMOVE 


4 


CCCAFC 


91G 


779 


832 


848 






















CCREMVC 


6 


0OOC1C 


1003 


922 


























CORERTN 


4 


CCC826 


923 


9 20 


























CVTPTR 


1 


00C010 


558 


53 
























4h 


CVTTCBP 


1 


000000 


559 


531 


























CYCLE 


4 


CCC1A6 


212 


120 


276 


278 






















DATALNG 


4 


000108 


1349 




























DATALOfc 


4 


0CC104 


1348 




























DATE 


8 


0C1030 


1317 


1C9 


110 


110 


111 


2 92 


















DCBEXIT 


4 


C0GCO4 


99 3 


992 


1009 
























OCBOFLGS 


1 


CCC030 


1001 


993 


























DECBTAB 


4 


0GGE58 


1222 


22t 


24 5 
























DECB1 


4 


00GE60 


12 26 


1222 


























DECS 2 


4 


GCCE74 


1 2 3 5 


1222 


























DEFLINES 


1 


000 1F4 


34 


371 


1023 
























DEFT I ME 


1 


CCCGOA 


33 


376 


1024 
























DEVERR 


4 


CCCB2C 


926 


766 


883 


906 


1151 


1192 


1207 
















DSERV 


1 


000 140 


1388 


651 


654 


657 


661 


664 


667 


67C 


673 


676 


679 


683 


898 




END MAP 


6 


CCG262 


266 


253 


























EOF 


1 


001120 


1329 


296 


301 


30 3 


443 


7C3 


















EOFfLAG 


1 


0002AF 


422 


44 3 


























ERRADCR 


4 


0CCFA8 


13C3 


947 


953 
























ERRNEXT 


1 


OOOOOA 


1254 


277 


























ERRPRCC 


4 


CCCB88 


944 


73 3 


901 
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CROSS-REFERENCE 



SYMBOL 


LEN 


VALUE 


DEFK 


REFER 


ENCES 










EXEC 


1 


CCCCG1 


1249 


23 3 












EXECIC 


1 


000004 


12 51 


23 5 












FLAGS 


4 


CC1128 


1335 


1337 












FSPTM 


4 


0CC7A8 


6 78 


45C 


451 










FSPTM1 


4 


000A7A 


87 5 


680 












GETTIME 


4 


GCCOFO 


135 


134 


137 


155 


1351 


1371 




GOTLIST 


4 


001040 


1319 


74 


78 


79 


84 


90 


969 


GTIMBASE 


4 


000114 


1351 


165 












HICORE 


4 


OOF 20 


1274 


4C7 


871 










I 


1 


OOOOOA 


19 


119 


119 


208 


208 


212 


213 213 










275 


277 


277 


393 


413 


425 482 


INOEX 


1 


CCCG06 


1252 


237 












INITIAL 


4 


00028C 


281 


1CC6 












INTEXIT 


2 


CCC66A 


5 89 


28 3 


545 


590 








INTFLJG 


1 


CCCF5A 


1295 


c 2 £ 


568 


586 








INTMSG 


4 


000684 


597 














IOEXIT 


2 


0GCAC4 


8 97 


284 


549 


899 








IOFLAG 


1 


000F5B 


1296 


527 


888 


895 








IDLIM 


4 


00100C 


1308 


1309 


1310 










IONEXT 


4 


CC10 20 


1314 


789 












IOP 


4 


00101C 


1313 


804 


810 


817 


831 


858 


860 


IOSTATE 


1 


000F5F 


130C 


783 


790 


853 


855 






I PL 


2 


CGCCOO 


4C 


38 












I SAVE 


4 


000F14 


1271 


393 


413 


425 


482 






10 


6 


CCC2A8 


290 


314 


367 










11 


4 


OG0204 


30G 


297 


30 2 










12 


4 


0002EO 


30 3 


299 












13 


4 


GCC216 


316 


3C8 












JGBSEC 


2 


C0C186 


195 


116 


191 


942 


960 


1356 


1376 


JSD8ASE 


4 


CCG128 


1355 


114 


196 


406 


472 






JSDSEG 


8 


CC0D40 


1C54 


47 


48 


123 


192 


13 55 


1375 


JSPBASE 


4 


300 12 C 


13 56 


115 


197 


405 


471 


941 


9 59 


LASTMOVE 


2 


0C081A 


SL9 


913 












L 01.00 P 


4 


000104 


2 26 


232 












LIM 


1 


000174 


420 


464 












LIMITP 


4 


00100C 


1310 


813 


84 


871 








LIMITSET 


1 


000F5E 


1299 


869 












LINECHK 


1 


CCGF5C 


1297 


459 


598 


726 


9 29 


945 




LINECNT 


1 


C C 1 1 2 3 


13 32 


3 06 


42 7 


717 


720 


722 


723 


LINELEN 


1 


000084 


27 


719 


L107 










LINEUP 


4 


CC11 24 


1333 


372 


728 


730 








LINESMJX 


1 


003C 


28 


427 


723 










LINKENO 


2 


0OOC34 


10 11 


547 


1030 










LOAD 


1 


CCCCOG 


124 8 


216 


242 










LOAOIC 


1 


000002 


1250 


267 












LOOK 


4 


CCGA86 


878 


834 












LI 


4 


CCC340 


2 31 


33 5 


344 


349 


352 


3 56 


361 


L2 


4 


000376 


345 


341 












L3 


4 


CG0388 


35C 


346 












L4 


4 


000392 


3 53 


33 7 












L5 


4 


0003A6 


358 


354 












L6 


4 


0CC3B6 


362 


357 


359 










L7 


2 


000302 


3 68 


33 3 












L8 


4 


0CG3DE 


372 


37C 












L9 


4 


CCC3FC 


3 71 


375 













PAGE 
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216 



233 



235 



237 242 267 275 



CROSS-REFERENCE PAGE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFERENCES 






MAP I NCR 


4 


0C025A 


264 


261 








MA PL COP 


4 


0CG240 


257 


265 








* MAXASEG 


1 


0CC035 


31 


436 








MAXUSEG 


I 


00003F 


30 


257 


1039 






MKTAPE 


4 


00C778 


666 










• PKTAPE1 


4 


0C0A20 


851 


668 








KGNFLAG 


1 


CCC7F9 


390 


401 








* MP 


1 


CCC17C 


419 


463 








i NCRMNEXT 


1 


000008 


12 53 


275 








NQSKIP 


4 


CCC838 


718 


716 








NOTEOF 


4 


0CC80E 


7G5 


699 


702 






• NOTIMEP 


4 


00063A 


576 


571 








NOTTMK 


2 


GCC8E6 


76 9 


767 








ORGP 


4 


OOIOIO 


1309 


1C3 


872 






* GSRETURN 


4 


CCC8C3 


963 


1136 








PAGE 


4 


000730 


656 










PAGEL 


4 


OOG882 


737 


658 








• PASSEXEC 


4 


CC04GC 


392 


1007 








PCHKTBL 


2 


00112C 


13 39 


117 


117 


486 


486 


PIEPSK 


1 


000004 


639 


5 76 


588 


625 


636 


* PI ERE 


i 


OCOCOC 


64C 


614 


621 


635 




PIERO 


1 


000014 


641 


615 








PIRESET 


4 


CCGF28 


1276 


69 


973 






w PISAVE 


4 


CCCFFC 


1306 


56 9 


587 


6 29 


634 


PMASK 


4 


001129 


133? 


39 5 


446 


578 


742 


PR 8 END 


4 


CCC5D4 


539 


5 36 








i PRGFAIL 


4 


000284 


277 


274 








PRINTER 


4 


000 040 


106 1 


54 


711 


980 




PROCREC 


8 


CCCEAC 


1247 


213 








P PRCGINT 


4 


000618 


568 


6 5 


541 


567 


601 


PROGINT1 


4 


CCC65E 


5 86 


633 








PROG I NT 2 


4 


CG0678 


594 


565 








9 PROGINT3 


4 


0006BC 


614 


57 5 


592 


596 




PR0GINT4 


4 


0CC6O6 


62 C 


618 








PROGINT5 


4 


000706 


634 


€13 








9 PROGLEN 


4 


000100 


1347 


449 








PRT 


1 


ocoooo 


1343 


113 


131 


193 


941 


PRT8AS6 


4 


00CE88 


1243 


2 36 


269 






1 PTRTN 


4 


CCC87A 


734 


72? 


731 






PURGE 


4 


0CC186 


196 


636 


942 


960 


1050 


PI 


4 


000450 


413 


409 








i RCSAVE 


1 


CCC144 


1334 


650 


653 


656 


660 


RDRST^T 


L 


0GCF56 


1286 


994 


996 






ROR STATS 


1 


000F56 


1285 


49 


49 


1286 


128? 


1 RDTAPE 


k 


0CC76C 


66C 


437 








RDTAPE1 


4 


00C8C2 


760 


662 








READ 


4 


CCC718 


650 


300 


441 






W READER 


4 


OCGDAO 


1117 


56 


691 


982 


993 


READ1 


4 


0007CC 


688 


652 








READ2 


4 


CC07D4 


691 


657 








* READ3 


4 


0007EE 


698 


695 








RECLEN 


1 


0G7FF8 


32 


231 


402 


1019 




R EC TAB 


1 


OCGIAC 


421 


434 








P REGSAVE 


4 


00 OF AC 


1304 


615 


620 


621 


623 


REREAD 


1 


000F57 1287 


694 


696 


998 
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496 498 509 509 581 583 



611 102 8 



95 8 



663 666 669 672 675 678 682 896 950 



630 948 949 950 951 















CROSS-REFERENCE 






SYMBOL 


LEN VALUE 


DEFN 


PEFERENCES 










: 


RETURN 


2 0C0AB6 


892 


739 


743 


751 


7 58 


823 


833 




RETURN1 


4 O00AB8 


894 


706 


735 


783 










* RE y I NO 


4 000784 


669 
















REWINC1 


4 O0CA5A 


867 


671 














RFSAVE 


1 000150 


1385 


947 














* RLENOK 


4 CCC8EE 


7 72 


77C 














RUN EX EC 


4 00045A 


424 


1008 














RW2 


6 CCCA70 


872 


87C 












J ' 


* ROSAVE 


1 CCC154 


13 86 


948 














R1SAVE 


1 000158 


1387 


781 














R2SAVE 


4 CCCF1C 


12 73 


28 1 


385 


392 


414 


424 


483 




* R3 


4 00046E 


43C 


428 














R4 


4 00048E 


440 


44 2 












' 


R5 


4 CCC51E 


462 


477 














» S 


1 CO 0009 


20 


318 


324 


368 


384 


452 


460 




SAVE 


4 CCCF60 


1302 


43 


122 


140 


199 


316 


453 




SCI 


4 0CC546 


493 


4 97 


508 












W SC2 


6 000588 


509 


495 














SELECT 


4 02 74 


27 3 


244 














SERVICE 


4 000718 


649 


54 3 


648 


1C29 


1360 


1380 






* SET8YTE 


4 CO 06 04 


551 


542 


548 












SETINT 


4 C0C5EC 


5 45 


526 














SET 10 


4 0005FC 


549 


528 












™ 


9 SETRETRY 


4 000C16 


■5 9 8 


995 














SETUP 


4 C0CAA8 


888 


688 


708 


737 


741 


745 


753 




SHCWCHK 


6 000528 


486 


28 5 


432 












9 SPMASK 


4 CCC7C0 


682 
















SPMASK1 


4 0GC88E 


741 


684 














SRVMSG 


4 000 B44 


92 8 


815 


842 


907 


926 








* SRVMSG1 


4 CCCB7C 


94 C 


938 














SSAVE13 


4 000 EEC 


130 5 


616 


631 












STATEC 


1 CCCEAO 


1258 
















* STATE1 


1 OOOEAC 


1259 
















STATE2 


1 000EB8 


1260 
















STATE 3 


1 CCCEC4 


1261 
















r ST ATE 4 


1 OOOEDO 


1262 
















STATE 5 


1 CCCEDC 


1263 
















STATE6 


1 0GCEE8 


1264 
















f STATE7 


1 0O0EF4 


1265 
















STATES 


1 CCCFOO 


1266 
















STATS 


1 000F58 


1289 


28 2 


282 


1290 


1295 


1296 


1297 




' SUBRSVs 


4 000C24 


1005 


238 














SUCCESS 


1 OC1048 


1320 


214 


273 


410 








M 


SUPVPRT 


4 Q0114C 


1365 


112 
1244 


127 


240 


266 


43 8 


597 




SYSFREE 


1 CCC8CC 


26 


7 9 


88 


89 


124 








SYSRE4D 


4 000790 


672 


228 














' SYSREAD1 


4 CCC89A 


745 


674 














SYSTEM 


4 COOEOO 


1173 


58 


2 04 


321 


984 


1230 


1239 




SYS I 


4 OOOE60 


1225 
















> SYS2 


4 00CE74 


1234 
















S14 


4 CG0F18 


1272 


7 80 


889 


894 


946 


963 






T 


1 000008 


21 


220 


221 


221 


222 


2 23 


224 










328 


339 


343 


348 


351 






TCBADR 


4 0CCF24 


1275 


5 33 


535 











PAGE 
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849 



873 



886 



478 



890 



964 



760 



785 



851 



867 



875 



824 



9 30 



941 



957 102 



235 



236 



237 



238 



2 52 



253 



267 



269 



SYMBOL 


LEN 


VALUE 


DEFN 


REFERENCES 








TCBCURR 


1 


CCCG04 


560 


5 32 










TCBRBP 


1 


CCCOOO 


561 


534 










TCHECK 


4 


000AH6 


90 3 


761 


786 


852 


868 


876 


TDIFF 


2 


C C C 1 1C 


15 1 


14c 










TEST! 


2 


000182 


215 












TEST2 


4 


0CC1F0 


233 


218 


230 








TESI3 


2 


0CC20E 


241 


234 










TEX IT 


4 


000612 


554 


546 


550 








TIMEJNT 


4 


0CC590 


521 


456 


520 








Tlf^ELIM 


4 


0OOP48 


1279 


14? 


3 79 


455 






TIMECN 


1 


000040 


1292 


458 


473 


522 


928 


944 


TIMEOLT 


1 


0CG02C 


1293 


142 


476 


521 


570 




TIMESET 


1 


000080 


1291 


148 


45 8 








TINT8VTE 


1 


G00F54 


1282 


552 


573 








T3NTLCC 


4 


CCCF50 


1231 


551 


572 








TLOAD1 


4 


00099E 


817 


814 










TLOAD2 


2 


CCC9B0 


822 


8 23 










TLOOP 


2 


000158 


176 


182 










TMASK 


1 


000F58 


1290 


139 


142 


148 


157 


458 473 476 


TMK 


I 


CCCF55 


1283 


762 


768 


782 






TMKl 


4 


O0OA4E 


863 


854 










TR13 


1 


CCC010 


1294 


139 


157 


617 






TSAVE 


4 


0CCF30 


127 8 


13 5 


154 


186 


619 




TSAVE2 


4 


000F2C 


1277 


164 


185 








TSTATEO 


4 


0CC946 


798 


793 










TS1ATE1 


2 


CCC96A 


SC8 


794 










TSTATE2 


2 


00C9CA 


830 


795 










TSTATE3 


4 


CCC9D8 


83 5 


196 


8G6 


865 






TTEST1 


4 


0GQ5F4 


547 


544 










TWR1 


4 


COOAOA 


844 


841 










UDUMP 


2 


CCCC22 


1004 


1353 


1373 








WORK 


8 


001028 


1316 


108 


109 


809 


811 


821 910 92 3 


WRITE 


4 


CC0724 


653 


172 


184 


304 


313 


366 507 605 


HRITE1 


4 


CCC816 


7C8 


655 










MRITE2 


4 


00085A 


726 


724 










WUTTIME 


4 


CCC12E 


164 


163 


168 


1 3 52 


1372 




WRS ELECT 


4 


000936 


79 3 


792 










URTAPE 


4 


00CT6C 


663 












WRTAPEl 


4 


0CC918 


785 


66 5 










WTI MEASE 


4 


000118 


1352 


167 


206 


411 


430 


474 


XRBLINK 


1 


0CC01C 


562 


535 


537 








XRBPSW 


1 


000010 


56 3 


5 3 9 











CROSS-REFERENCE PAGE 5 

7 FEB 69 



521 522 570 617 928 944 



609 934 940 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
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IEF285I SYS1.MACLIB KEPT 

IEF285I VOL SER NOS= SYSCO . 

IEF285I SYS2.CCLIB KEPT 

IEF285I VOL SER NOS= SYSOl . 

IEJF285I SYS2.DUMMYMAC KEPT 

IEF285I VCL SER NOS= SYSOl . 

IEF285I SYS1.UT1 KEPT 

IEF235I VOL SER NOS= CAMP08. 

IEF285I SYS1.UT2 KEPT 

IEF285I VOL SER NOS= SYSC2 . 

IEF285I SYSI.U73 KEPT 

IEF285I VOL SER NOS= SYSG3 . 

IEF285I SYSOUT SYSOUT 

IEF285I VOL SEP NCS = 

IEF285I LCAOSET.MGNASM PASSED 

IEF2851 VCL SER NOS = SYS02 . 

IEF2 8 5I AAA AA AAA. AA AAAA £ A. AAA A£A 4A .AAA AAAAA .00000806 DELETED 

IEF285I VOL SEB NOS= 

//LKED EXEC PGM = I EWL , PARM= < LET, L 1ST, HAP ) ,COND=< 5, LT, ASM) 00001200 

//SYSLIN DO DSNAME=£LCADSET,CISP=(CIC, DELETE) 00001300 

// CD DCNAME=SYSIN 00001400 

//SYSLHGO DO DSNAME=£GGS ET ( GO ) ,UMT = 2314,SP ACE={ CYL , ( 12, 1, 1) ) , *O0001500 

// DISPMMODtPASS) 00001600 

//SYSUT1 CO CSNAME = SYS1.UT1,DISP=QLD,0C8MKEYLEN=0) 00001700 

//SYSPRINT DD SYS0L7=A 00001800 

//SYSLI8 DD DSNAME=SYS1.F0RTLI8,DISP=0LD 00001900 

// DD DSKAME=SYS2.SSPLIB f DISP=0LD OOCC2000 

// DD DSNAME=SYS2.SUBLI81,C1SP=0LD 00002100 

// 

IEF236I ALLOC. FCR NCNASM LKEC STEP 

IEF237I SYSLIN ON 230 

IEF237I SYSLMCD CN 230 

IEF237I SYSLT1 ON ICO 

IEF237I SYSLI8 ON 235 

IEF237I CIS 331 

IEF237I CN 331 
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E-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LET, LIST, NAP 

IEW0132 IHESAC* 

IEW0122 IHESADB 

IEW0132 IHESAPC 

IEW0132 IHEDM*A 

IEW0 132 IHEDNCA 

IEW0132 IHECSPF 

IEW0132 IHEBS*Z 

IEW0132 IHE8SKA 

IEW0132 IHEICXA 

IEW0132 IHEICXB 

IEW0132 IHEIQF8 

IEW0132 IHEICFA 

IEW0122 IHEDIDA 

IEW0132 IHEOCBB 

IEW0132 IHEDIEfl 

IEW0132 IHEDOEA 

IEW0132 IHECI4A 

IEW0122 IHEDQAA 

IEVI0132 IHEOCLB 

IEWC132 IHEIOBC 

IEW0132 IHEIQAT 

IEW0132 IHEICFA 

IEW0132 IHEIGBT 

IEW0132 IHEI08A 

IEW0132 IHECCLA 

IEWC132 IHEIOGA 

IEW0132 IHEOSEA 

IEW013 2 IHESAFA 

IEW013 2 IHESAFB 

IEW013 2 ALPFAUP 

IEW0132 IHEVPB 

IEW012 2 IHEVFA 

IEW0132 IHEVfC 

IEM013 2 IHEDMA 

IEW0132 IHECQA 

IEWG132 IHEDCN 

IEW0132 IHEVFB 

IEW0132 IHEVP4 

IEW0132 IHEUPA 

IBM013 2 IHEVPE 

IEW0132 IHEVPG 

IEW013 2 IHEDIA 

IEW0132 XHEVPC 

IEW0132 IHEVPF 

IEW0122 IHEVSC 

IEWG13 2 IHEDNC 

IEW0132 IHEVFE 

IEW0122 IHEVSC 

IE*0132 iHEVCfl 

IEW0122 IHEVQB 

IEW013 2 IHEVQC 
****GC CGES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 
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DIAGNOSTIC MESSAGE DIRECTORY 



IEK0I32 ERROR - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE. 



MODULE MAP 



CONTROL SECTION 



NAME 



ORIGIN LENGTH 



ENTRY 

NAME LOCATION 



NAME LOCATION 



NAME LOCATION 



NAME 



LOCATION 



ALPHA 


CO 


1D1E 


**ALPHAA 


ID 2 


2E57F 


IHEMAIN 


302AC 


4 


IHENTRY 


3C2AS 


C 


SYSIN 


3C2B8 


38 


IHESPRT 


3C2FC 


38 


DATA IN 


3C22S 


38 


SYSPNCH 


30360 


38 


LINEFIL 


3C39 8 


38 



PSEUCO REGISTERS 



NAME 



ORIGIN LENGTH 



IHEQINV 
*#ALPHA8 
SYSIN 
LINEFIL 

TOTAL LENGTH OF 
ENTRY ADDRESS 
TOTAL LENGTH 



CO 
1C 
20 

3C 



4 
4 
4 
4 



NAME 



IHEQERR 

***LPHAC 

IFEGSPR 



ORIGIN LENGTH 



4 
14 
24 



4 

4 
4 



NAME 



IHEQLWF 

**ALPHAD 

DATAIN 



ORIGIN LENGTH 



8 
18 
28 



4 
4 
4 



NAME 



IHEQSLA 

**ALPHAE 

SYSPNCH 



ORIGIN LENGTH 



C 
1C 
2C 



4 
4 
4 



PSEUDO 
302A8 

30300 



REGISTERS 



34 



'"^r^'^^W/^W^^^ 



IEF285I 
IEF235I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF295I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 
IEF285I 



LC4CSE 
VOL SE 
GCSET. 
VCL SE 
SYSl.U 
VCL St 
SYSCll 
VOL SE 
SYS1.F 
VOL SE 
SYS2.S 
VCL SE 
SYS2.S 
VCL SE 
GO SET. 
VOL SE 



T.MCNASM 

R NOS= SYSC2 

NCNASM 

P NOS= SYSC2 

Tl 

P NOS= COMPOS 



R NOS = 
CPTLIB 
R NOS = 
SPLI3 
8 NCS = 
U8LIB1 
R NOS = 
NCNASM 
R NOS = 



SYSOO 



SYSOl 



SYSOl 



SYS02 



DELETED 

PASSED 

KEPT 

SYSOUT 

KEPT 

KEPT 

KEPT 

DELETED 



HASP 



JOB STATISTICS 
480 I/C CALLS 



1,16C CARDS READ — 1,557 LINES PRINTED — 91 CARDS 

535 SVC CALLS 0.42 MINUTES CPU TM TIM£ = 



PUNCHED ~ 0.92 MINUTES EXECUTION TIME 
17:53:26 DATE= 02/07/69 
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BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


9 14 


BIN 


914 


BIN 


914 


BIN 


9 1 4 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


9 14 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


914 


BIN 


9 14 


BIN 


914 


BIN 


914 


BIN 


914 



*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNO* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNC|-* 


SEQ 


951 


SATTERTHWAITE 


* PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


9 51 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCHY 


SEC 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


9 51 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAI TE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


* PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUISCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


* PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


9 51 


SATTERTHWAITE 


♦ PUNCf-* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


S EQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


9 51 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCHY 


SEQ 


951 


SATTEPTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


♦PUNCHY 


SEQ 


951 


SATTERTHWAITE 


♦PUNCHY 


SEQ 


951 


SATTERTHWAITE 


♦PUNCH* 


SEQ 


951 


SATTERTHWAITE 


*puncm*m- 


***Q» 


951 


SATTERTHWAITE 


*PJ|»*" 
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SATTERTHWAITE 
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END 


17' 


•53 


02/07 


END 


SATTERTHWAITE 


SEQ 


95 1 


♦ PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17 


:53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


:53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦ PUNCH* 


BIN 


914 


END 


17: 


:53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17' 


•53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


•53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


SIN 


914 


END 


17: 


:53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


:53 


02 /C7 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


'53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17 


:53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


:53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦ PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAI TE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17; 


53 


02/07 


ENO 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17' 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦ PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAI TE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17 J 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


•53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


ENO 


SATTERTHWAITE 


SEQ 


951 


* PUNCH* 


BIN 


914 


END 


17 J 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


* PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


* PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


* PUNCH* 


SIN 


914 


END 


17* 


•53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


* PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


ENO 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAI TE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦ PUNCH* 


SIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦ PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


ENO 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


* PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


* PUNCH* 


BIN 


91 4 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAI TE 


SEQ 


951 


* PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCHY 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


♦PUNCH* 


BIN 


914 


END 


17: 


53 


02/07 


END 


SATTERTHWAITE 


SEQ 


951 


*PUNCH* 


BIN 


914 
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//EHSPL360 JOE EHS$CG , 107 ,CLASS=E , PRT Y=8 ,REG I CN=30QK JOB 273 

//JUBLIB DO DSNAME=PUB.EHS.PL360,0ISP=(SHR f PASS) *k 

//PL360 EXEC PGM=PL360,PARM=♦LQA0,N0DECK , 

//SYSPRINT DO SYS0UT=A,DCB=BLKSIZE=2660 

//SYSGO DC DSNAfE=&&LOADSET,UNIT=SYSDA,SPACE=<TRK,( 10,5) ) , X £ 

// DISP-(NEWfPASS) ,DCB=(BLKSIZE=3200) 

//SYSIN 00 * 

ACCOUNK INITIATION) EHSPL360 PL360 0ATE=69338 T IME=14. 17 .226 £ 

IEF236I ALLOC. FOR EHSPL360 PL360 

IEF237I JQBLIB ON 233 

IEF237I SYSPRINT ON 563 

IEF237I SYSGO ON 437 

XEF237I SYSIN ON 585 

IEF285I PUB.EHS.PL360 PASSED A 

IEF285I VOL SER N0S= PUB001. 

IEF2 85I SYS693 3 8.T124933.RVCOQ.EHSPL360.RQC0082 7 DELETED 

IEF285I VOL SER N0S= . M 

IEF285I SYS69338.T124933.RVCQ0.EHSPL36O.LQADSET PASSED 

IEF285I VOL SER HOS= SCF0V3. 

IEF285I SYS69338.T124933.RV0O0.EHSPL360. R000082 8 DELETED f 

IEF285I VOL SER NOS= 

ACCOUNTCSTEPJ 107 EHSPL360 PL360 RON TIME=( ,01.47) DATE=69338 END TIM E=14. 17 . 284 CODE=00000000 DEC 

//GO EXEC PGH=MONIT0R,PARM=2G0K,C0ND={0,NE,PL360) : m 

//SYSPRINT CC SYS0UT=A,DCB=BLKSIZE=2660 

//SYSPUNCH DO SYS0UT=A,0CB=BLKSIZE=80 

//SYSIN DO DSNAME=*. PL360. SYSGO, DISP=( OLD, DELETE) £ 

//DC * 

// 

ACCOUNT! INITIATION) EHSPL360 GO 0ATE=69338 TIME=14. 17. 296 ; £ 

IEF236I ALLOC. FOR EHSPL360 GO , 

IEF237I J0BLI8 CN 233 ; 

IEF237I SYSPRINT ON 5fc3 m 

IEF237I SYSPUNCH ON 56C 

IEF237I SYSIN ON 437 

IEF237I ON 58A 

IEF285I PUB.EHS.PL360 PASStO 

IEF285I VOL SER NOS= PU8001. 

1EF2 85I SYS693 38.T124933.RV0C0.EHSPL36G.R0GQ082 9 DELETED 

IEF285I VOL SER NQS= 

IEF285I SYS69338.T124933.RV00O.EHSPL360.ROGCO83O OELETED 

1EF2 85I VOL SER NOS= 

IEF285I SYS69338.T124933.RV000.EHSPL360.L0ADSET DELETED 

IEF2 85I VOL SER NOS= SCF0V3. 

IEF285I SYS69338.T124933.RV00G.EHSPL36G.R0CGC831 DELETED 

IEF285I VOL SER NOS* 

ACCQUNTJSTEP I 10 7 EHSPL360 GO RUN TIME=( ,01.201 DATE=69338 END TIME=14. 17 . 341 C0DE=000F A690 HEX 

IEF285I PUB.EHS.PL360 KEPT 

IEF285I VOL SER NQS= PU8C01. 

ACCOUNTUOB) 107 EHSPL360 RUM TIME=( ,02.67) 0ATE=69338 END TIME=14. 17 .341 C00E*000FA690 HEX 



# 
• 
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PL.36 COMPILATION 


* 01 


oooc 


GC 


0000 


01 


0012 


GO 


C048 


m 0l 


0012 


00 


0048 


W 01 


0012 


00 


0048 


01 


0012 


CO 


0048 


m 01 


0012 


GC 


0048 


W 01 


0012 


00 


0048 


01 


0012 


00 


0048 


m 01 


0012 


00 


0048 


• 01 


0012 


00 


0046 


01 


0012 


00 


0048 


m 01 


0012 


cc 


0048 


9 01 


0012 


00 


004E 


01 


0012 


CO 


0050 


m 01 


0012 


00 


C054 


9 01 


0012 


CO 


0060 


01 


0012 


00 


008 


m 01 


0012 


CO 


CG93 


• 01 


0012 


00 


COAC 


01 


0012 


00 


COAC 


m 01 


0012 


CO 


C080 


• 01 


0012 


CO 


00B2 


01 


0012 


00 


0084 


m 01 


0012 


00 


00B7 


• 01 


0012 


00 


008A 


01 


0012 


00 


COBO 


m 01 


012 


00 


00C2 


• 01 


0012 


CO 


G0D2 


01 


0012 


OC 


OODA 


m 01 


0012 


00 


CODE 


• 01 


0012 


00 


CGE4 


01 


0012 


OG 


0104 


m 01 


0012 


00 


0104 


• 01 


0012 


CO 


0110 


01 


0012 


00 


0110 


m 01 


0012 


CO 


0116 


• 01 


0012 


00 


0128 


01 


0012 


00 


0130 


m 01 


0012 


00 


0180 


• 01 


0012 


00 


0204 


01 


0012 


00 


G2 8 8 


m 01 


0012 


00 


C388 


• 01 


0012 


00 


C388 


01 


0012 


00 


03AC 


m 01 


0012 


00 


07AC 


• 01 


0012 


OC 


C78C 


01 


0012 


00 


1F2C 


m 01 


0016 


C6 


0000 


• 01 


0016 


06 


ocoo 


01 


0016 


06 


0C04 


m 01 


GO 16 


06 


GE04 


• 01 


0016 


06 


9BB4 


01 


0016 


06 


9B64 


m 01 


0016 


06 


9BB4 


• 01 


0016 


06 


9BB4 


01 


0016 


06 


98B4 


m 01 


0016 


06 


9884 


• 01 


002 


06 


9BB4 



0C01 
0002 
0003 
0004 
0005 
0006 
COO 7 
00 08 
0C09 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
00 31 
0032 
0033 
0034 
0035 
003 6 
00 37 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
00 51 
0052 
005 3 
0054 
0055 
0056 
0057 
0058 



SYNTAX PROCESSOR & TABLE GENERATOR 
BEGIN COMMENT SYNTAX-PROCESSOR; 



69-338 Si 14:17 



PAGE 



COMMENT OPTION CARDS RECOGNIZED BY THE SYNTAX PROCESSOR 
$SYMBQLS CAUSES THE SYMBOLS TO BE READ INt 
$MATRIX CAUSES THE MATRIX TO BE PRINTED, 
SFUNCTION CAUSES THE FUNCTIONS TO BE COMPUTED, 
$CHECK CAUSES PROD TO BE CHECKED FOR IDENTICAL RIGHT 
$LEFT CAUSES THE RELATIONS TO BE PRINTED FOR THE LEF 
$RIGHT CAUSES THE RELATIONS TO BE PRINTED FOR THE RI 
$SYMPUNCH CAUSES THE SYMBOLS TO BE PUNCHED, 
STABLE CAUSES PL360 TABLES TO BE PUNCHED; 
SHORT INTEGER LSS =1, GTR =2, EQL = 3; 
SHORT INTEGER SIX =6; 
ARRAY 4 BYTE RELATION =<« <>="); 
ARRAY 12 BYTE ERRMESS .= {"****** LINE "); 

ARRAY 32 BYTE MESS1 = <"N0 PRECEDENCE VIOLATION DETECTED") 
ARRAY 19 BYTE SYMBMESS =< "NONTERMI NAL SYMBOLS"); 
ARRAY 25 BYTE PATTERN =("LINE " , #20, #21 , # 20, 

" SAME AS LINE " , #20 , #21 , #20 ) ; 
LOGICAL ONES =#FFFFFFFF; 
BYTE CHANGE=0, ERRFLAG=Q; 

E0PROD=0,SYMPUNCHFLAG=0; 

MATRIXFLAG=0, TABLEFLAG=0, FUNCT IONFL AG=0; 
SYMBOLFLAG=0, READFLAG=Q, £0F=0; 
RIGHTFLAG=0, L£FTFLAG=0, CHECKFLAG=0; 
INTEGER P,V; 

M,MM,M2,MM2,MM32,M64,MM12,M12; 

N,N2,N12,NN; 

MSTART=0, MCCUNT=5 1; 



BYTE 

BYTE 

BYTE 

BYTE 

SHORT 

SHORT INTEGER 

SHORT INTEGER 

SHORT INTEGER 

INTEGER U; 

ARRAY 8 INTEGER 
ii 

LONG REAL DEC; 

INTEGER MASK3 SYN FMASK; 

ARRAY 6 BYTE MASK 4 - { #40, #20, #20, #21 , #20 ,#20 ) 

INTEGER R1SAVE,R2SAVE,R3SAVE,R4SAVE; 



FMASK=<#40202120, 

",#40202 120, #40 404020, #2 1200000) 



ARRAY 8 
ARRAY 20 
ARRAY 132 
ARRAY 132 
ARRAY 256 
ARRAY 80 
ARRAY 9 
ARRAY 256 
ARRAY 16 
ARRAY 3000 
SEGMENT BASE 
ARRAY 3072 



BYTE MASK = ( #80 , #40 , #20 , # 10, #08 , #04 , #02 , #01) ; 

INTEGER CBUF; 
BYTE UNDEFMESS={" UNDEFINED SYMBOL: », 1 14< « ")) 
BYTE BLANKS=132t" "); 
BYTE 8UFFER=256(" "3; 

BYTE PBUF SYN BUFFER; 
LOGICAL SAVE; 
SHORT INTEGER F, G; 

BYTE TRTABLE={"0123456789ABCD£F») ; 

SHORT INTEGER PRTB; 
Rli; 
BYTE SYTB; 



INTEGER LL; 

ARRAY 256 SHORT INTEGER MTB; 

ARRAY 9068 INTEGER WORKSPACE; 

ARRAY 2048 LOGICAL L SYN WORKSPACE 

ARRAY 4097 LOGICAL H SYN MEM(RIO); 

ARRAY 36000 BYTE PR SYN WORKSPACE; 

ARRAY 2 048 BYTE PR.TB1 SYN WORKSPACE; 

PROCEDURE ERR0REXIT(R4) ; GOTO EXIT; 



, R SYN MEMCR12) 



00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
PARTS, 00000700 
T SYMBOLS, 00000800 
GHT SYMB, 00000900 
00001000 
00001050 
00001100 
00001200 
00001300 
00001400 
00001500 
00001700 
00001800 
00 001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
00 002900 
00003000 
00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
00003700 
00003800 
00003900 
00004000 
00004100 
00004200 
000043 00 
00004400 
00004500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
00005500 
00005600 
00005700 
00005 800 









• 
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01 


002C 


06 


9384 


01 


0020 


06 


9BB4 


07 


0000 


06 


9BB4 


7 


0000 


06 


9884 


C7 


0004 


06 


9BB4 


07 


0018 


06 


9BB4 


07 


002A 


06 


9BB4 


07 


0032 


06 


9BB4 


07 


003 A 


06 


98B4 


7 


0044 


06 


98B4 


07 


0050 


06 


9BB4 


7 


005A 


06 


9BB4 


C7 


0066 


06 


9BB4 


07 


0070 


06 


9BB4 


C7 


07C 


06 


9BB4 


07 


0086 


06 


9BB4 


C7 


0092 


06 


9BB4 


07 


009C 


06 


9BB4 


07 


00A8 


06 


9BB4 


07 


0082 


06 


98 B 4 


07 


OOBfc 


06 


9BB4 


07 


00C8 


C6 


9BB4 


07 


00D4 


06 


98B4 


07 


OODE 


C6 


9884 


07 


GOEA 


06 


9BB4 


07 


00F4 


06 


9BB4 


07 


00F8 


06 


98B4 


07 


00F8 


06 


9B84 


07 


OOFS 


06 


9BB4 


07 


OOFA 


06 


9B84 


07 


OOFA 


06 


9BB4 


07 


OOFA 


06 


98 B 4 


07 


OOFA 


06 


98B4 


7 


0112 


C6 


9BB4 


07 


OUE 


06 


9BB4 


07 


0128 


06 


9BB4 


07 


0138 


06 


9BB4 


07 


0146 


06 


9BB4 


7 


014A 


06 


9BB4 


07 


0158 


06 


98B4 


07 


0166 


06 


98B4 


07 


016c 


06 


9BB4 


07 


I 76 


06 


9BB4 


07 


01 7E 


06 


9BB4 


07 


018A 


06 


9BB4 


07 


0198 


06 


9BB4 


07 


019A 


06 


9BB4 


07 


019A 


06 


9BB4 


07 


01AA 


06 


9BB4 


07 


01AA 


C6 


9884 


07 


01B2 


06 


98 B 4 


07 


01B2 


06 


9BB4 


07 


01CE 


06 


9BB4 


07 


01D8 


06 


9B84 


07 


01E2 


06 


9BB4 


07 


OIF 6 


06 


9884 


07 


01FA 


06 


9BB4 


07 


01FA 


06 


9BB4 



0C59 
0060 
0061 
0062 
0063 
00 64 
0065 
0066 
0067 
0068 
0069 
00 70 
00 71 
0072 
0073 
0C74 
0075 
0C76 
00 77 
0078 
0079 
0080 
0081 
CC32 

008 3 
0C84 
0C85 
0C86 
0087 
0C88 
C089 
C090 
0091 
0092 

009 3 
0094 
CO 9 5 
0096 
CO 97 
C098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
01C7 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 



R9); 

RUCT PRODUCTION TABLES; 

RD IMAGE INTO CARD BUFFER; 



END; 



SEGMENT PROC 

BEGIN CQMMEN 

PROCEDURE RE 

BEGIN COM 

IF EOF 

L: RO := 

BEGIN 

CLI ("$ 

BEGIN 

BEG 

END 

BEG 

END 

BEG 

END 

BEG 

END 

BEG 

END 

BEG 

END 

BEG 

END 

BEG 

END 

BEG 

END 

END; 

END; 



PROCEDURE WRITEPRODUCTION(RIO); 

BEGIN COMMENT R9 = PRODUCTION COUNT; 

R9 := R9 + l; IF R9 > 499 THEN ERROREXIT; 

MVCI3, BUFFER<7) ,FMASK) ; MVC ( 109, BUFFER ( 16) f BLANKS>; 

CVD<R9,D6C) ; ED<3t BUFFER <7) ,DEC(6) ); 

CLCUl ,CBUF, BLANKS) ; IF -»= THEN MVC ( 2, BUFFERJ29 ) ,": :=" J 



5 DURE 
T IMP 
ADCAR 
ME NT 

THEN 
aCBUF 

SET( 
" , CBU 

CLC( 
IN SE 

; CLC 
IN SE 
; CLC 

IN SE 
; CLC 
IN SE 
; CLC 
IN SE 
; CLC 
IN SE 
; CLC 
IN SE 

; clc 

IN SE 
1 CLC 
IN SE 



REAOINPUK 
UT AND CONST 

O(Rlo); 

READ NEXT CA 

ERROREXIT; 
; READ; IF -. 
EOF); SET(E 
F); IF - THE 
7,"SYMPUNCH" 
TISYMPUNCHFL 
(5, "SYMBOL", 
TISYMBOLFLAG 
(5, "MATRIX", 
UMATRIXFLAG 
<4, "CHECK", C 
T(CHECKFLAG) 
(4, "RIGHT", C 
T(RIGHTFLAG) 
(3,"LEFT",CB 
T(LEFTFLAG); 
(6, "FUNCTION 
TLFUNCTIONFL 
<4, "TABLE" tC 
T(TABLEFLAG) 
I7,"CCNTINUE 
T(EOPROD); 



= THEN 
OPROD) 
N 

,CBUF( 
AG); I 
CBUF< 1 
); IF 
CBUFQ 

; if 

BUFU) 

; if - 

BUF< U 

; if - 

UF< 1) ) 

IF -,E 

"tCBUF 

AG ) ; I 

BUF(U 
; IF - 

",CBUF 



D); I 

F -.EOF 

) ) ; if 

-.EOF T 

) ); IF 

-EOF T 
3 ; IF 
EOF TH 

); if 

EOF TH 
; IF = 
OF THE 

( l) ); 

F -EOF 

); IF 

EOF TH 

(l) ); 



F - THEN 

THEN GOTO L; 

= THEN 
HEN GOTO L; 

= THEN 
HEN GOTO L; 
= THEN 
EN GOTO L; 
= THEN 
EN GOTO L; 

THEN 
N GOTO l; 
IF « THEN 

THEN GOTO L; 
= THEN 
EN GOTO L; 

IF = THEN 



R7 := aCBUF(12) ; 
FOR RO := STEP 



R8 := SBUFFERI33); 
1 UNTIL 4 00 



MVC( 1 1, BUFFER* 16 ),CBUF) 



BEGIN CLC(11,B7,B8); 
MVCU1,B8,87) ; R7 
CLK" ",B8) ; WHILE 
BEGIN R8 := R8 - 1 
END; R8 := R8 * 3; 

END; 

RO := SBUFFER; WRITE; 



IF = THEN GOTO 
:= R7 + 12; R8 

= DO 
; CLK" ",68); 



B; 

:= R8 



+ 11 



END' 



SAVE := R9; READCARD; TEST! SYMBOLFL AG) ; IF = 
BEGIN COMMENT READ SYMBOLS AND PRODUCTIONS; 

R3 := 3SYTB; R2 := 0; 

COMMENT READ NONTERMINAL SYMBOLS; 
LN: R3 := R3 + 12; R2 :« R2+1; IF R2 > 255 THEN 

MVC(ll,B3fCBUF); READCARD; 

CLCU,"$$",CBUF) ; IF -,= THEN GOTO LN; 

MM : = R2l R2 := R2 SHLL 1; MM2 :-= R2; R2 : 

R2 := MM; 

COMMENT READ TERMINAL SYMBOLS; 
LT: READCARD; CLC U ,"$$" ,CBUF) ; 



THEN 



ERROREXIT; 



= R2 SHLL 4; MM32 



R2; 



00005900 
00006000 
00006100 
00006200 
00006300 
00006500 
00006600 
00006700 
00006800 
00 006900 
00007000 
00007100 
00007200 
00007300 
00007400 
00007500 
00007600 
00007700 
00007800 
00007900 
00007920 
00007940 
00008000 
00008100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
00008800 
00008900 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009700 
00009800 
00009900 
00010000 
00010100 
000102 00 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
00011500 



• 
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07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
C7 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
7 
07 
C7 
07 



0204 
0208 
0224 
022E 
022E 
02 42 
024E 
024E 
0254 
025C 

02 68 
027C 
0274 
027C 
0280 
0292 
029E 
02A8 
02B6 
02C2 
02CE 
02D2 
0202 
Q2F8 
02E8 
02EC 
02F8 
02FE 
0306 
0314 
0320 
33 6 
0346 
346 
34E 
036 C 
036A 
0378 

03 8C 
0396 
03AA 
03AE 
03B6 
03C8 
03D2 
03E2 
03F6 
03FE 
0406 
0412 
0416 
042A 
0436 
0446 
0452 
0460 
C4 74 

04 74 



C6 9BB4 
06 9SB4 
06 9BB4 
06 9BB4 
06 9BB4 
06 96B4 
06 9BB4 
06 9BB4 
06 9B84 
06 9BB4 
06 93B4 
06 9BB4 
06 9BB4 
06 98B4 
06 9B84 
06 9BB4 
06 9BB4 
06 9BB4 
06 9B84 
06 9BB4 
06 9BB4 
G6 98B4 
06 9BB4 
06 9BB4 
06 98B4 
06 9BB4 
06 9B84 
06 9BB4 
06 96 B 4 
06 9BB4- 
06 98B4 
06 9BB4 
06 93B4 
06 96B4 
06 98B4 
06 9BB4 
06 9BB4 
06 9BB4 
06 9BB4 
06 9BB4 
06 98 8 4 
06 9884 
06 9BB4 
06 93 8 4 
06 9BB4 
06 9B8 4 
06 9BB4 
06 9BB4 
06 9884 
06 9BB4 
06 9BB4 
06 9BB4 
06 96 B 4 
06 9BB4 
06 9BB4 
06 9B84 
06 9B84 
06 9BB4 



0117 IF -i= THEN 00011600 

0118 BEGIN R3 := R3+12; R2 : = R2+1; IF R2 > 255 THEN ERROREXIT; 00011700 

0119 MVC(llf B3 t CBUF) ; GOTO LT; 00011800 

0120 END ; 00011900 

0121 M := R2; R2 := R2 SHLL 1; M2 := R2; R2 :» R2 SHLL 5; M64 := R2; 00012000 

0122 R2 := M2 * 6$; M12 := R2; 00012100 

0123 COMMENT READ PRODUCTIONS; 00012200 

0124 MVC( 131, BUFFER, BLANKS) ; 00012300 
012 5 R9 := 0; R5 := 12; 00012400 

0126 LP: REAOCARD; TEST { EOPROD) ; IF -*= THEN 00012500 

0127 BEGIN WRITEPROOUCTICNj R3 : = SC8UF; 00012600 

0128 FOR R6 :■= STEP 1 UNTIL 5 DO 00012700 

0129 BEGIN R4 := 3SYTB; 00012800 

0130 FOR Rl := STEP 2 UNTIL M2 DO 00012900 

0131 BEGIN CLCU1,B3,B4) ; IF = THEN GOTO LF ELSE R4 := R4+12; 00013000 

0132 END ; 00013100 

0133 MVCU1,UNDEFNES$ (20),B3) ; RO := 3UNDEFMESS; 00013200 

0134 WRITE; MVH 1,ERRFLAG) ; 00013300 

0135 LF: PRTB(R5) := 81; R5 := R5 + 2; R3 := R3+12; 00013400 

0136 END ; 00013500 

0137 GOTO LP; 00013600 

0138 END ; 00013700 

0139 N := R9; R2 := R9 SHLL 1; N2 := R2; R2 :■= R2 * SIX; N12 := R2 ; 00013800 

0140 END ELSE 00013900 

0141 BEGIN COMMENT READ PRODUCTIONS AND CONSTRUCT SYMBOL TABLE; 00014000 

0142 MVC(71,PR<72), BUFFER); MVC< 15 , BUFFER, BLANKS ) ; 00014100 

0143 MVC (71, BUFFER ( 16) ,PR(72J); 00014200 

0144 R9 := 0; R4 := alPR; 00014300 

0145 Ll: WRITEPRODUCTION; R4 := R4 + 72; MVC < 71, B4, CBUF) ; 00014400 

0146 READCARD; TEST (EOPROD) ; IF -.= THEN GOTO Ll; 00014500 

0147 N := R9; R3 := R9 SHLL 1; N2 := R3; R3 := R3 * SIX; N12 := R3; 00014600 

0148 R3 := R3 * SIX; Rl := aPR<R3); R2 : = 3PR<72); R3 : = 0; 00014700 

0149 FOR R2 := R2 STEP 72 UNTIL Rl 00 00014800 

0150 BEGIN FOR R5 := STEP 12 UNTIL R3 DO 00014900 

0151 BEGIN R4 := 3SYT8<R5); CLC ( 1 1 , B2 , B4 ) ; IF = THEN GOTO F; 00015000 

0152 END; 00015100 

0153 R3 := R3+12; R4 := 3SYTB(R3); MVC( 11, B4, B2J ; 00015200 

0154 IF R3 > 30 72 THEN ERROREXIT; 00015300 

0155 F: END; 00015400 

0156 MM12 := R3 ; R2 := N12+10; N12 := R2; R2 := 3PR<72); 00015500 

0157 FOR Rl := 12 STEP 2 UNTIL M12 DO 00015600 

0158 BEGIN FOR R5 := STEP 12 UNTIL R3 DO 00015700 

0159 BEGIN R4 := 8SYTBCR5); CLC ( 11 , B2, B4J ; IF = THEN GOTO F; 00015800 

0160 END; 00015900 

0161 R3 := R3 + 12; R5 := R3; R4 := SSYTB(R3); MVC< 11 , 84, 82) ; 00016000 

0162 IF R.3 > 3072 THEN ERROREXIT; 00016 100 
016 3 F: R4 := 0; R5 := R5/6; 00016200 

0164 PRTB(Rl) :•= R5 ; R2 := R2 + 12; 00016300 

0165 END; 00016400 

0166 M12 := R3 ; 00016500 

0167 RO := 0; Rl := MM 12/ 12; MM := Rl; Rl := Rl SHLL 1; 00016600 

0168 MM2 := Rl ; Rl := Rl SHLL 4; MM32 : = Rl; 00016700 

0169 Rl := M12/12; M := Rl; Rl := Rl SHLL 1; 00016800 

0170 M2 := Rl; Rl := Rl SHLL 5; M64 := Rl; 00016900 

0171 MVICO,PR); Rl := SlPR; R2 := PI + 36000; 00017000 

0172 FOR Rl ;= Rl STEP 256 UNTIL R2 DO MVC ( 255 , Bl ( 1 ) , Bl ) ; 00017100 

0173 END; 00017200 

0174 PAGE; 00017300 
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PAGE 



• 



• 



07 
07 
7 
07 
7 
07 
7 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
7 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 



047E 
0482 
0490 
049E 
049 1 
04AA 
04AA 
04B2 
04BE 
04DC 
04EC 
04EC 
04FA 
0506 
050E 
051A 
052E 
052E 
0548 
558 
0568 
056C 
0578 
0586 
0592 
059A 
05A6 
05BA 
05BA 
05C8 
05C8 
0500 
05E4 
05EE 
05F4 
05FE 
060C 
0614 
061A 
062E 
062E 
063E 
064A 
065A 
066 E 
066E 
0678 
0682 
068A 
0690 
069E 
069E 
069E 
069E 
06A6 
06 B 2 
06C4 
06C8 



C6 9BB4 

06 9BB4 

06 9BB4 

Ob 9BB4 

06 9BB4 

06 9B84 

06 9BB4 

06 9BB4 

06 96B4 

06 9BB4 

06 9BB4 

06 9B84 

06 9BB4 

06 9BB4 

06 93 B4 

06 9BB4 

06 9BB4 

06 9B84 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

C6 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9B84 

06 9BB4 

06 9BB4 

06 9BB4 

06 9B84 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 98B4 

06 9BB4 

06 98B4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9864 

06 9B84 

Ou 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 98B4 

06 98 B 4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 

06 9BB4 



0175 

0176 

0177 

0178 

CI 79 

0180 

0181 

0132 

018 3 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

020 7 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

02.18 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

022 9 

0230 

0231 

0232 



FOR Rl := 12 STEP 12 ONTIL N12 DO 

BEGIN R2 := PRTB(Rl); IF R2 = THEN 

BEGIN R2 := Rl-12; R3 := PRTB(R2); PRTB(Rl) := R3; 
END ; 

END ; 
COMMENT PRINT THE SYMB0LTA3LE (IN TWO PARTS) ; 
R4 := l; Rl := 5)SYTB( 12); 

MVC (131, BUFFER, BLANKS) ; MVC( 18 , BUFFER < 8 ) , SYMBMESS) 5 
RO := ^BUFFER; WRITE; MVC< 18, BUFFER (8 ), BLANKS ) ; WRITE; 
L2: FOR R2 :- 7 STEP 24 UNTIL 103 00 
BEGIN IF R4 > MM THEN GOTO L3 ; 

CVD(R4,0EC); R3 := 3BIJFFER <R2 ) ; MVC ( 3, B3, FMASK ) ; 

ED(3,B3,DEC(6) ) ; MVC(11,B3<7) ,B1); 

Rl := Rl + 12; R4 := R4 + 1; 
END; 
WRITE; MVC (131, BUFFER, BLANKS); GOTO L2; 

L3: WRITE; MVC( 131 , BUFFER , BLANKS) ; WRITE; 
MVC<15t BUFFER (8) , SYMBMESS (3 J ) ; WRITE; 
MVC(15,BUFFER(8), BLANKS) ; WRITE; 
L4: FOR R2 := 7 STEP 24 UNTIL 103 DO 
BEGIN IF R4 > M THEN GOTO L5; 

CV0(R4,OEC); R3 := aBUFFER(R2); MVC ( 3, B3, FMASK ); 
ED (3, 83, DEC (6) ) ; MVC I 11 , S3 ( 7 ) , 81 ) ; 
Rl := Rl + 12; R4 : = R4 + 1 ; 
END; 

WRITE; MVC( 131, BUFFER, BLANKS) ; GOTO L4; 
L5: WRITE; R9 := SAVE; 



:= aBUFFER; WRITE; 



R6 00 
UNTIL R6 
= THEN 



00 



IF CHECKFLAG THEM 

BEGIN MVC(131, BUFFER, BLANKS) ; RO 
Rl :■■= SPRTB; R6 := Rl + N12; 
FOR R2 := Rl + 12 STEP 12 UNTIL 
BEGIN FOR R3 := R2 + 12 STEP 12 
BEGIN CLC(9,B2(2) ,B3(2) ); IF 
BEGIN IF CHECKFLAG THEN 

BEGIN MVC131, BUFFER, "IDENT ICAL RIGHT PART OCCURRENCE S»» I 

WRITE; RESET (CHECKFLAG); MVC( 31 , BUFFER , BLANKS) ; 
END; 

R4 := 0; R5 := R2 - Rl / 12; CVD(R5,DEC); 
MVC(24,BUFFER(3), PATTERN); ED ( 3, BUFFER! 7 ) , DEC ( 6 ) ) ; 
R4 :~ 0; R5 := R3 - Rl / 12; CV0(R5,DEC); 
ED(3,8UFFER(241,0EC(6)); 
END; 
END; 

nd; 

F CHECKFLAG THEN 

EGIN MVCJ23, BUFFER, "NO IDENTICAL 

RO := 3BUFFER; NRITE; 
ND; 



WRITE; GOTO L: 



L: E 

I 

B 

E 
END; 



RIGHT PARTS") 



IF SYMPUNCHFLAG THEN 

BEGIN MVC(79, CBUF, BLANKS) ; MVC (7, CBUF, »$S YMBGLS" ) ; 

RO := aCBUF; PUNCH; R2 := 3SYT8U2); 

FOR Rl := 2 STEP 2 UNTIL M2 DO 

BEGIN MVCdl, CBUF, 82); PUNCH; R2 : = R2 + 12; 



00017400 
00017500 
00017600 
00017700 
00017800 
00017900 
00018000 
00018100 
00018200 
00018300 
00018400 
00018500 
00018600 
00018700 
00018800 
00018900 
00019000 
00019100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
00 019900 
00020000 
00020100 
00020200 
00020300 
00020400 
00020500 
00020600 
00 02 0700 
00020800 
00020900 
00021000 
00021100 
00021200 
00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
00022200 
00022300 
00022400 
00022500 
00022600 
00022700 
00022 800 
00022900 
00023000 
00023100 
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96B4 
9BB4 
9BB4 
9BB4 
9BB4 
9BB4 



Oi 


0020 


06 


9BB4 


01 


002C 


C6 


9BB4 


01 


0020 


06 


9B64 


01 


0024 


06 


9BB4 


01 


0024 


06 


9BB4 


01 


002C 


06 


SB 84 


01 


0044 


06 


9BB4 


01 


0054 


06 


9B84 


01 


005C 


06 


9BB4 


01 


0066 


06 


9BB4 


01 


0066 


06 


98 B 4 


01 


00 66 


C6 


9BB4 


01 


006A 


C8 


0000 


01 


0C6A 


C8 


OEOO 


01 


0G6A 


08 


OEOO 


01 


006E 


08 


OEOO 


01 


72 


C8 


OEOO 


01 


007E 


08 


OEOO 


01 


008A 


08 


OEOO 


01 


OOBE 


06 


OEOO 


01 


OOAO 


08 


OEOO 


01 


OOAC 


08 


OEOO 


01 


00B4 


08 


OEOO 


01 


OOBA 


C8 


OEOO 


01 


00C2 


C8 


OECO 


01 


00C6 


08 


OEOO 


01 


006 


08 


OEOO 


Oi 


OOEA 


08 


OEOO 


01 
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08 


OEOO 


01 


00F6 


08 


OEOO 
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OOFE 


08 


OEOO 
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0102 


03 


OEOO 


01 


0106 


C8 


OEOO 


01 


0114 


08 


OEOO 


01 
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08 


OEOO 


01 


012C 


C8 


OEOO 


01 


0128 


08 


OEOO 


01 


012E 


08 


OEOO 


01 


0132 


C8 


OEOO 


01 


013C 


08 


OEOO 


01 


0146 


08 


OEOO 


01 


014A 


08 


OEOO 


01 


014A 


08 


OEOO 


01 


0152 


C8 


OEOO 


01 


0158 


C8 


OEOO 


01 


0162 


08 


OEOO 


01 


0164 


08 


OEOO 


01 


0174 


08 


OEOO 



023 3 
0234 
02 3 5 
0236 
0237 
02 38 
0239 



IF Rl = NM2 CR Rl = M2 THEN 
BEGIN MVC(lltCBUF,"$$ 

END; 

END; 
END; 



")l PUNCH; 



END 



COMMENT END OF READINPUT; 



SEGMENT 07 NAME ■= SEG#07 



LENGTH = 07F8 BASE REG = 15 



0240 

0241 

0242 

24 3 

0244 

024 5 

0246 

0247 

0248 

0249 

02 50 

0251 

0252 

0253 

0254 

02 55 

0256 

02 5 7 

02 58 

02 59 

0260 

0261 

0262 

02 63 

0264 

0265 

02 66 

0267 

0268 

0269 

0270 

0271 

02 72 

02 73 

02 74 

02 75 

02 76 

0277 

0278 

02 79 

0280 

0281 

02 32 

02 83 

02 84 

0285 

0286 

0287 



COMMENT ****** EXECUTION*****; 

Rl := 0; 

LOOP: 

R12 := 3L + 8192; 

FOR R2 := STEP 4 UNTIL 36268 DO WORKSPACE <R2) := Rl; 

MVC< ilflSYTBj BLANKS) ; READINPUT; 

CLKOtERRFLAG) ; IF > THEN GOTO EXIT; 

PAGE; 

BEGIN COMMENT BUILD TABLES GF LEFT-- AND RIGHT OCCURRENCES; 
SEGMENT BASE RIO; 
ARRAY 256 SHORT INTEGER C 1, C2 t BL, BR , SO, SL, SR; 

RO i- o; 

FOR Rl := STEP 2 UNTIL M2 DO 

BEGIN CKR11 := RO; C2<R1) := RO; 

END; 

FOR Rl := 2 STEP 2 UNTIL N2 00 

BEGIN R2 := Rl * SIX; RO := PRTBCR2); S0<R1) : = RO; 

R2 := R2+2; RO := PRTB(R2); SL<Ri) :» RO; 

R2 := R2+8; RO := PRTB<R2); 

WHILE RO = DO 

BEGIN R2 := R2-2 ; RO := PRTBCR2); 

END ; 

SRIR1) := RO; RO :* U 8L(R1) := RO; BR<Rl) := RO; 

R2 := S0JR1); RO := CKR2J + 1; CHR2) := RO; C2(R2) := RO; 
END ; 

RO := N; NN := RO ; 
Li: HVH 0, CHANGE) ; 

FOR Rl := 2 STEP 2 UNTIL N2 DO 
BEGIN R2 := SL(R1); IF R2 > THEN 
BEGIN R2 := SOIRU; R3 := SLfRl); 

R2 := R2 SHLL 4; COMMENT R2 = "A" ROW INDEX; 
R4 := R3; SRDL(R4,4); R4 := R4«-R2; 
R6 := R6-R6; ICI R6 ,L C R4 ) 3 ; 
R5 := R5 SHRL 29; 

R7 := R7-R7; IC( R7 ,MASKi R5 ) ) ; RO := R6 AND R7; 
IF = THEN BEGIN R6 := R6 OR R7 ; STC { R6,L ( R4 ) I ; 

MVI( 1, CHANGE); 
END ; 
IF R3 <= MM2 THEN 

BEGIN R5 := R3 SHLL 4; COMMENT R5 = "S" ROW INDEX; 
R6 := M SHRL 3 + R2; 
FOR R4 := R2 STEP 4 UNTIL R6 DO 
BEGIN RO := L<R4) XOR ONES AND LIR5); 
IF -= THEN 



00023200 
00023300 
00023400 
00023500 
00023600 
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02 76 


08 
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OEOO 


01 
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OEOO 


01 
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08 


OEOO 


01 


02AC 


C8 


OEOO 


01 


02AC 


08 


OEOO 


01 
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08 
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01 
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02 3 8 




BEGIN RO := RO OR L(R4); LIR41 := RO; MVI ( 1 , CHANGE ) ; 


00028700 


02 89 




END ; 


0002 8800 


0290 




R5 := R5+4; 


00028900 


0291 




END ; 


00029000 


0292 




END ; 


00029100 


02 93 




R2 :- R2 SHRL 4; R4 := CHR3); 


00029200 


0294 




IF R4 = THEN 


00029300 


029b 




BEGIN BL(Rl) : = R4; RO := CMR2J-1; C1CR2) := RO; 


00029400 


0296 




RO := NN-l; NN := RO; 


00029500 


02 97 




END ; 


00029600 


C2 98 


END ; 


00029700 


0299 


END ; 




00029800 


0300 


CLK 1 


,CHANGE) ; 


00029900 


0301 


IF = 


THEN 


00030000 


0302 


BEGIN 


RO := NN; IF RO > THEN GOTO LI; 


00030100 


0303 


END ; 




000302 00 


0304 






00030300 


C305 


RO : = 


n; NN := RO; 


00030400 


0306 


L2: iVVIIO 


, CHANGE) ; 


00030500 


030 7 


FOR Rl := 2 STEP 2 UNTIL N2 DO 


00030600 


0308 


BEGIN 


R2 := BfURl) ; IF R2 > THEN 


00030700 


0309 


BE 


SIN R2 := S0CR1J; R3 := SRtRl); 


00030800 


0310 




R2 := R2 SHLL 4; COMMENT R2 = "A" ROW INDEX; 


00030900 


0311 




R4 := R3; SR0L(R4,4J; R4 := R4+R2; 


00031000 


0312 




R6 := R6-R6; IC(R6*R<R4M; 


00031100 


03 1 3 




R5 := R5 SHRL 29; 


00031200 


0314 




R7 :■* R7-R7; IC{R7,MASK(R5J); RO := R6 AND R7; 


00031300 


0315 




IF ■= THEN BEGIN R6 := R6 OR R7; STC ( R6 ,R (R4) 1 ; 


00031400 


0316 




MVH 1, CHANGE); 


00031500 


0317 




END ; 


00031600 


0318 




IF R3 <= MM2 THEN 


00031700 


0319 




BEGIN R5 := R3 SHLL 4; COMMENT R5 = "B" ROW INDEX; 


00031800 


032 




R6 := M SHRL 3 + R2; 


00031900 


032.1 




FOR R4 := R2 STEP 4 UNTIL R6 DO 


00032000 


0322 




BEGIN RO :■= R<R4) XOR ONES AND R{R5); 


00032100 


0323 




IF -.= THEN 


00032200 


0324 




BEGIN RO := RO CR R<R4); RJR4) := RO; MVI ( 1, CHANGE ) ; 


00032300 


0325 




END ; 


00032400 


0326 




R5 :- R5+4; 


00032500 


032 7 




END ; 


00032600 


032 8 




END ; 


00032700 


032 9 




RZ := R2 SHRL 4; R4 := C2LR3); 


00032800 


0330 




IF R4 = THEN 


00032900 


0331 




BEGIN BR4R1J := R4; RO : = C2(R2)-1; C2(R2) :* RO; 


00033000 


0332 




RO := NN-l; HH i~ RO; 


00033100 


0333 




END ; 


00033200 


0334 


END ; 


00033300 


03 35 


END ; 




00033400 


0336 


CLK 1 


,CHANGE) ; 


00033500 


03 3 7 


IF = ' 


rHEN 


00033600 


033 8 


BEGIN 


RO := NN; IF RO > THEN GOTO L2; 


00033 700 


033 9 


END ; 




00033800 


0340 






00033900 


0341 


END ; COMMENT END GF LR OCCURRENCES; 


00034000 



# 



01 02BE 



06 9384 



SEGMENT 08 NAME = SEG#08 



0342 



LENGTH = OEOO BASE REG = 10 
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0448 


06 


9BB4 


01 


0454 


06 


93B4 


01 


0458 


06 


9BB4 


01 


0468 


06 


9BB4 


01 


0472 


06 


9BB4 



C34 3 

0344 

0345 

0346 

347 

0348 

0349 

0350 

0351 

03 52 

3 53 

354 

0355 

0356 

035 7 

03 58 

03 59 

03 60 

361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

03 73 

0374 

0375 

0376 

037 7 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

03 90 

0391 

0392 

0393 

0394 

039 5 

0396 

39 7 

0398 

0399 

0400 



RIO :■= R12 + 8192; 



BEGIN COMMENT 

PROCEDURE ENTE 

COMMENT ENT 

BEGIN STM(R 

Rl := ftl 

R2 := R2 

R3 := R3 

R5 := Hi 

SLDLCR4, 

IF R4 -*= 

IF R4 = 

BEGIN R4 

END ELSE 

BEGIN CO 

MVCCi 

MVCU 

R3 .; = 

MVC(3 



ED 
Rl 
R2 
R2 

Rl 
RO 

END ; 
LMiRO 



BUILD PRECEDENCE MATRIX; 

R <R9J; 

ERS THE RELATION RO AT COORDINATES R1,R2; 

0,R5,SAVEJ; 

SHLL 5; SR0L(R2,5); 

SHLL 2 + Rl; 

SHRL 28 SHLL 1; 
R2J; SLDL(R4,B3); R6 := R4; R4 := 0; 
2); COMMENT BITPAIR IS NOW IN R4; 

RO THEN 
THEN 

:= RO; SRDLCR4 f 2); R4 := R6; SRDL(R4,B3); H(R2) := R5; 

MMENT PRECEDENCE CONFLICT; 

31 , BUFFER, BLANKS); 

1, BUFFER, ERRMESS J; S£T< ERRFLAG ) ; 

RO; RO := 0; Rl := R8/12; 
,BUFFER( 111, F MASK) ; CVi'X Rl ,OEC ) ; 
(3,BUFFER( U) f DEC(6) ); 

SAVE(4J*SIX; R2 := 3SYTB(Rl); MVC( 11 ,BUFF6RI 20 ) ,B2J ! 

8RELATI QN{ R4 ) ; MVC (0 , BUFFER { 33 ) , B2i ; 

SR EL AT I CN ( R3 ) ; MVC ( , 8U FF ER ( 34 ) , B2 ) ; 

SAVE(8)*SIX; R2 := 3SYTBIR1); MVC< 1 1 , BUFFER (36 ) ,B2) ; 

3BUFFER; WRITE; 

R5,SAVE) ; 



END 



COMMENT BUILD PRECEDENCE MATRIX; 
R5 := 0; 

FOR R8 := 12 STEP 12 UNTIL N12 DO 
BEGIN R4 := R8+12; 

Li: R4 := R4-2; R6 := PRTB(R4); IF R6 = THEN GOTO LI", 
L2: R3 := R4-2; V :■= R3; 
IF R3 > R8 THEN 

BEGIN Rl := PRTBJR3); R2 := PRTBCR4); P i- Rl; COMMENT Q = R2; 
RO := EQL; enter; 
IF Rl <= MM2 THEN 

BEGIN R3 := Rl SHLL 8; RO := GTR; COMMENT R3 = P ROW INDEX 

FOR Rl := 2 STEP 2 UNTIL M2 DO 

BEGIN R6 := R1+R3; SRDL(R6,4I; R7 := R7 SHRL 29; 
IC<R5 t R<R63); IC<R6«MASKCR7)) ; R6 := R6 AND R5; 
IF -,= THEN ENTER? 
END ; 

IF R2 <= HM2 THEN 

BEGIN R4 := R2 SHLL 8; COMMENT R4 = Q ROW INDEX 

FOR R2 J= 2 STEP 2 UNTIL M2 DO 

BEGIN R6 := R2 + R4; SRDL(R6,4J; R7 :« R7 SHRL 29 J 
Rl := P; 

IC<R5,L(R6) ); IC(R6*MASK(R7)J; R6 : = R6 AND R5; 

IF -.= THEN 

BEGIN RO := LSS; ENTER; RO := GTR; 
FOR Rl := 2 STEP 2 UNTIL M2 DO 

BEGIN R6 :-= R1 + R3; SRDL(R6,4}; Rl'.-Rl SHRL 29; 
IC(R5,R(R6) l; IC IR6, MASK! R7J) ; R6:=R6 AND R5; 
IF -*= THEN ENTER; 



00034200 
00034300 
00034400 
00034500 
00034600 
00034700 
00034800 
00034900 
00035000 
00035100 
00035200 
00035300 
00035400 
00035500 
00035600 
00035700 
00035 800 
00035900 
00036000 
00036100 
00036200 
00036300 
00036400 
00036500 
00036600 
00036700 
00036800 
00036900 
00037000 
00037100 
00037200 
00037300 
00037400 
00037500 
00037600 
00037700 
00037800 
00037900 
00038000 
00038100 

; 00038200 
00038300 
00038400 
00038500 
00038600 
00038700 
00038800 

; 00038900 
00039000 
00039100 
00039200 
00039300 
00039400 
00039500 
00039600 
00039700 
00039800 
00039900 



• 
• 






• 
• 
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PL360 COMPILATION 



# 



# 
# 



01 


047A 


C6 


9BB4 


01 


0486 


06 


SB64 


01 


0486 


06 


98B<* 


01 


0492 


C6 


9BB4 


01 


0492 


06 


9BB4 


01 


0492 


06 


9BB4 


01 


C49E 


06 


98B4 


01 


04A8 


06 


9BB4 


01 


04AC 


06 


9BB4 


01 


04BC 


06 


9BB4 


01 


04C6 


C6 


9BB4 


01 


04CE 


G6 


9BB4 


01 


04DA 


06 


9BB4 


01 


04DA 


06 


9BB4 


01 


04E2 


06 


9BB4 


01 


G4E2 


06 


9BB4 


01 


04EE 


06 


9BB4 


01 


04F6 


06 


9BB4 


01 


502 


06 


9BB4 


01 


510 


06 


9BB4 


01 


0510 


C6 


98B4 


01 


0510 


06 


9BB4 


01 


0518 


06 


9BB4 


01 


0518 


06 


98B4 


01 


0518 


06 


9BB4 


01 


0518 


06 


9B84 


01 


0530 


06 


9BB4 


01 


548 


06 


9BB4 


01 


054C 


06 


9BB4 


01 


0554 


C6 


9BB4 


01 


0558 


06 


9B84 


01 


0568 


C6 


9BB4 


01 


0572 


06 


9BB4 


01 


5 7C 


06 


98B4 


01 


0588 


06 


9BB4 


01 


0598 


06 


9BB4 


01 


059A 


06 


9B'84 


01 


59A 


06 


9884 


01 


5AE 


06 


9BB4 


01 


05BA 


06 


9BB4 


01 


5CC 


06 


9BB4 


01 


50 6 


06 


9BB4 


01 


05D8 


06 


9BB4 


01 


05EA 


G6 


9BB4 


01 


Q5EA 


06 


9BB4 


01 


5F4 


06 


9BB4 


01 


0600 


06 


9BB4 


01 


0604 


06 


9BB4 


01 


060E 


C6 


9BB4 


01 


0618 


06 


98B4 


01 


62 6 


06 


9B84 


01 


06 30 


06 


98B4 


01 


0632 


06 


9 8 64 


01 


0632 


06 


9BB4 


01 


065C 


06 


9BB4 


01 


065C 


06 


9BB4 


01 


067C 


06 


9884 


01 


6 7C 


06 


988 4 



04 01 
0402 
0403 
0404 
040 5 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
04 30 
04 31 
0432 
0433 
04 34 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
045 5 
0456 
0457 
045 8 



SYNTAX PROCESSOR S TABLE GENERATOR 



69.338 3 14:17 



PAGE 



END 



E 
END 
IF R 
BEGI 

F 

B 



EN 
NO ; 
ELSE 
2 < = 

N R4 
OR R 
EGIN 
IC 
IF 
NO ; 



END 



MM2 THEN 

:= R2 SHLL 8; RO := LSS; 
2 := 2 STEP 2 UNTIL M2 00 

R6 := R2+R4; SR0L(R6,43; R7 
(R5fL(R6))*> IC(R6,MASK(R7J) i 

->- THEN ENTER; 



COMMENT R4 = Q ROW 

:= R7 SHRL 29; 
R6 := R6 AND G5; 



END 
R4 ; 



= V; GOTO L2; 



END 



END 
TES 
MVC 
RO 



T(ERRFLAG); IF = THEN GOTO EXIT; 

(131, BUFFER, BLANKS) ; MVC( 31 , BUFF ER, MES S 1 ) ; 

:= SBUFFER; WRITE; 



END 



IF MATRIXFLAG THEN 

BEGIN COMMENT PRINT PRECEDENCE MATRIX; 



PROCEDURE 
BEGIN R4 
R5 :•* 0; 

FOR Rl : 
BEGIN R 
FOR R3 
BEGIN 
END; 
WRITE; 
E NO ; 

MVC (131 , 

END; 

PROCEDURE 

BEGIN 

FOR 

BEG 



HEADING (R9); 
:= MSTART * 12S; 
RO := 3BUFFER; 
= STEP 1 UNTIL 
2 :■= R4 + Rl; 

:= STEP 2 UNTIL R6 DO 

IC(R5iB2J; STC<R5, BUFFER* R3+ 16) ); 



R4 := 3SYTB(R4); R6 : = MCOUNT SHLL 1; 
MVC< 131, SUFFER, BLANKS) ; WRITE; 



11 DO 



R2 



R2 + 12; 



BUFFER, BLANKS); WRITE; 



:= MCOUNT SHLL 
64 UNTIL R7 DO 
:= aSYTB(R2l; 



LI 



PRINTSECTI0N(R9); 
R7 := MSTART SHRL 2 * M64; R8 : = MCOUNT SHLL 1; 

Rl := MSTART SHRL 2+64 STEP 
IN R2 := Rl SHRL 6 * 12S; R2 : 
MVCU1, BUFFER! 11,82); R2 := 0; 
FOR R3 :- Rl STEP 1 UNTIL R3 DO 

BEGIN TC(R5,H(R3) 3; SLDL<R4,24); R6 :» R2 + 6; 
FOR R2 i- R2 STEP 2 UNTIL R6 DO 
IF R2 <= R8 THEN 
BEGIN R4 := 0; SLDL(R4,2); IC !R4, RELATION! R4 3 I ; 

STC<R4,BUFFER!R2+16) ); 
END ELSE GOTO LI; 
END; 
RO := aSUFFER; WRITE; 



END. 

END; 



L: PAGE; Rl := M - MSTART; IF Rl < MCOUNT THEN MCOUNT :» Rl; 

HEADING; PRINTSECTION; HEADING; 

Rl := MSTART + 52; MSTART := Rl; IF Rl < M THEN GOTO L; 
END; 



00040000 
00040100 
00040200 
00040300 
00040400 
00040500 
INDEX; 00040600 
00040700 
00040800 
00040900 
00041000 
00041100 
00041200 
00041300 
00041400 
00041500 
00041600 
00041700 
00041800 
00041900 
00042000 
00042100 
00042200 
00042250 
00042300 
00042400 
00042 500 
00 042600 
00042700 

00042 800 
00042900 
00043000 
00043100 
00043200 
00043300 
00043400 
00043500 
00043600 
00043700 

00043 800 
00043900 
00044000 
00044100 
00044200 
00044300 
00044400 
00044500 
00044600 
00044700 
00044800 
00044900 
00045000 
00045100 
00045200 
0004530G 
00045400 
00045500 
00045600 



• 






• 
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PL360 COMPILATION 


• 


01 


G67C 


06 


9BB4 




01 


0678 


06 


9BB4 


• 


01 


0678 


06 


9BB4 


01 


0688 


06 


98B4 




01 


0692 


06 


9BB4 


• 


01 


0698 


06 


9BB4 


01 


662 


06 


9BB4 




01 


06B6 


06 


9BB4 


• 


01 


6C4 


06 


9BB4 


01 


06CC 


06 


9BB4 




01 


0608 


06 


9BB4 


• 


01 


06E6 


06 


9BB4 


01 


066 8 


06 


93 B 4 




01 


06F6 


06 


9BB4 


• 


01 


06F6 


06 


9BB4 


01 


702 


06 


9BB4 




01 


70C 


06 


9BB4 


• 


01 


0714 


C6 


9BB4 


01 


071C 


06 


9BB4 




01 


Q72A 


06 


9BB4 


# 


01 


0734 


06 


9BB4 


01 


07^0 


06 


9BB4 




01 


07 4 A 


06 


9BB4 


• 


01 


0756 


06 


9BB4 


01 


7 64 


C6 


9BB4 




01 


7 64 


Oo 


98B4 


# 


01 


076E 


C6 


9BB4 


01 


0778 


06 


9BB4 




01 


796 


06 


98B4 


• 


01 


07A2 


06 


9BB4 


01 


07A2 


C6 


9BB4 




01 


07A2 


06 


98B4 


# 


01 


07 A A 


06 


9BB4 


01 


07AA 


06 


9BB4 




01 


07BA 


06 


98B4 


• 


01 


07C4 


06 


9BB4 


01 


7CA 


06 


9BB4 




01 


7E4 


06 


9BB4 


• 


01 


07ea 


C6 


98 B 4 


01 


O/FA 


06 


9BB4 




0.1 


0806 


06 


9BB4 


• 


01 


0810 


06 


9BB4 


01 


G81E 


06 


9BB4 




01 


0828 


06 


98B4 


• 


01 


0838 


06 


9BB4 


01 


0844 


06 


9BB4 




01 


84C 


06 


98B4 


• 


01 


G85A 


06 


9BB4 


01 


08 64 


06 


9BB4 




01 


0870 


06 


9BB4 


• 


01 


8 7E 


06 


9B84 


01 


0888 


06 


9B84 




01 


0898 


06 


9BB4 


• 


01 


0898 


06 


9BB4 


01 


08A2 


06 


9BB4 




01 


08C0 


06 


9BB4 


• 


01 


08CC 


06 


98B4 


01 


Q8CC 


06 


9B64 



SYNTAX PROCESSOR 6 TABLE GENERATOR 
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PAGE 



0459 
46 
0461 
0462 
046 3 
0464 
0465 
0466 
0467 

046 8 
0469 
0470 
0471 
04 72 

047 3 
0474 
047 5 
0476 
0477 
0478 
04 79 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0457 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
05C8 
050 9 
0510 
0511 
0512 
0513 
0514 
0515 
0516 



IF LEFTFLAG THEN 
BEGIN COMMENT WR I 
MVCU31, BUFFER 
MVCUOt BUFFER ( 
MVCU4, BUFFER 1 
WRITE; MVCC131 
FOR Rl := 64 S 
BEGIN R2 := Rl 
R2 := R2 * 
MVC(3,6UFFE 
E0(3, BUFFER 
FOR R2 := R 
BEGIN R5 :-= 
FOR R6 : 
IF R6 > 
BEGIN R4 
IF R4 
BEGIN 
BE 

EN 
MV 
EO 
R8 
END; 
END; 
END; 
Ll: RO :■= 3BUFFER; WRITE; MVC( 131, BUFFER, BLANKS) ; WRITE; 
END; 

END; 



TE 
,BL 
3), 
66) 
,BU 
TEP 
SH 
12S 
R<_ 
(_1 
1 s 

H( 

= R 
M T 



_,. = n » 



IF 
G I N 

MV 

d; 

C<3 
(3, 



OUT SYMBOL RELATIONS FROM LEFT SIDE; 

4NKS); PAGE; 

"LEFT SYMBOL"); RO := 3BUFFER; 

, "RIGHT RELATIONS" ); 

FFER, BLANKS) ; WRITE; 

64 UNTIL M64 DO 
RL 6; CVD(R2,DEC); 
; R2 := 3SYTBCR2); 

1) ,FMASK) ; MVC( 11, BUFFER (4), 82); 
),0EC(6) 3 ; R6 := 0; R9 := 19; 
TEP 4 UNTIL R2 DO 
R2); R7 := R6 + 15; 
6 STEP 1 UNTIL R7 DO 
HEN GOTO Ll ELSE 

R4 - R4; SLDL(R4,2); IC ( R4, REL AT ION* R4)) ; 
THEN 

R9 > 128 THEN 

RO := 3BUFFER; WRITE; 
C (131, BUFFER, BLANKS) ; R9 : = 19; 

R3 := 3BUFFER(R9); MV 1 1" I » , 83 ) ; STC ( R4,B3< 2)3 ; 
,B3(3),FMASK); CVD(R6,DEC); 
B3(3),DEC<6) ) ; R8 := R6 * 12S; 

3SYTB(R8); MVC( 11,83(8) ,88) ; R9 s= R9 + 22; 



IF RIGHTFLAG THE 

BEGIN COMMENT WR 

MVC<131,BUFFE 

MVCdl, BUFFER 

MVCl 13, BUFFER 

WRITE; MVCU3 

FOR Rl := 1 S 

BEGIN CV0LR1, 

MVC(3,BUFF 

ED(3,3UFFE 

R2 := Rl; 

R8 := M64 

BEGIN R5 : 

IC(R4,R 

BEGIN I 

BEGI 

M 

END; 

R4 : 

R4 : 

MVC( 

END; 

END; 

RO :* 3BUF 
E NO ; 
END; 



N 

ITE OUT SYMBOL RELATIONS FROM RIGHT SIDE; 

R, BLANKS); PAGE; 

(113), "RIGHT SYMBOL"); RO X~ 88UFFER; 

(46), "LEFT RELATIONS"); 

1, BUFFER, BLANKS) ; WRITE; 

TEP 1 UNTIL M DO 

DEC); R2 := Rl * 12S; R2 := 3SYTB(R2); 

ER ( 1 1 ) ,F MASK ) ; MVC (11, BUFFER ( 1 1 5 ) , 82 ) ; 

RU103 ,DEC(6) ); R9 := 86; 

SRDL(R2,4); R3 := R3 SHRL 27; R2 : = R2 SHLL 

+ R2; FOR R2 := R2 + 64 STEP 64 UNTIL R8 DO 

= H(R2); SLDLLR4, 83(21); R4 := R4 AND 3; 

ELATI0NJR4) ); IF R4 -.= " " THEN 

F R9 < _2 THEN 

N RO := 3BUFFER; WRITE; 

VCU31, BUFFER, BLANKS); R9 := 86; 

R5 := 3BUFFER(R9); MV It " I ", B5 ( 2 1 ) ) ; 
= R2 SHRL 6; CVD<R4,DEC); R4 := R4 * 
* aSYTB(R4); MVC(3,B5{1),FMASK); 
11, 85(6), B4); ED(3,B5( 1),DEC(6) ); R9 



STC<R4,B5( 19) J 
12S; 

:= R9 - 22; 



FER; WRITE; MVC( 131, BUFFER, BLANKS); WRITE; 



00045700 
00045800 
00045900 
00046000 
00046100 
00046200 
00046 300 
00046400 
00046500 
00046600 
00046700 
00046800 
00046900 
00047000 
00047100 
00047200 
00047300 
00047400 
00047500 
00 047600 
00047700 
00047800 
00047900 
00048000 
00048100 
00048200 
00048300 
00048400 
00048500 
00048600 
00048700 
00048800 
00048900 
00049000 
00049100 
00049200 
00049300 
00049400 
00049500 
00049600 
00049700 
00049800 
00049900 
00050000 
00050100 
00050200 
00050300 
0005040 G 
00050500 
00050600 
00050700 
00050800 
00050900 
00051000 
00051100 
00051200 
00051300 
00051400 
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• 
• 






• 

• 



01 


08CC 


06 


9BB4 


01 


0804 


06 


9BB4 


01 


0804 


06 


9BB4 


01 


0804 


06 


9BB4 


1 


0804 


06 


98B4 


01 


804 


C6 


9BB4 


01 


08D4 


06 


9BB4 


01 


08D4 


C6 


9BB4 


09 


0000 


06 


9BB4 


09 


0000 


06 


9BB4 


09 


0000 


06 


9BB4 


09 


0004 


06 


9BB4 


09 


0010 


06 


98B4 


09 


001 A 


06 


9BB4 


09 


0026 


06 


98 B 4 


09 


002A 


06 


9BB4 


09 


002C 


06 


SBB4 


09 


002C 


06 


9BB4 


09 


002C 


G6 


9BB4 


09 


0032 


06 


9BB4 


09 


0042 


06 


9884 


09 


0052 


06 


9BB4 


09 


0060 


06 


9BB4 


09 


006C 


06 


9BB4 


09 


007A 


06 


9SB4 


09 


0088 


06 


9BB4 


09 


009E 


06 


9B84 


G9 


00 A 6 


06 


9BB4 


09 


O0B2 


06 


9BB4 


09 


0084 


06 


9884 


09 


00 B4 


06 


9BB4 


09 


0084 


C6 


9B84 


09 


00B4 


06 


9BB4 


09 


00C2 


06 


9BB4 


09 


oocc 


06 


9BB4 


09 


0002 


06 


9BB4 


09 


OOEC 


06 


9BB4 


09 


ooec 


06 


9BB4 


09 


OOF 8 


06 


9BB4 


09 


0104 


06 


9BB4 


09 


0104 


06 


9BB4 


09 


0104 


06 


9B84 


09 


0106 


06 


9BB4 


09 


0116 


06 


98 B 4 


09 


012A 


06 


9BB4 


09 


0136 


C6 


9BB4 


09 


014A 


06 


9BB4 


09 


014A 


06 


9BB4 


09 


0156 


06 


9BB4 


09 


015 A 


06 


9BB4 


09 


0164 


06 


9BB4 


09 


016A 


06 


9BB4 


09 


0178 


06 


9BB4 


09 


0184 


06 


9BB4 


09 


0190 


06 


98B4 


09 


019C 


06 


988 4 


09 


019C 


06 


9B84 


09 


019C 


06 


9B84 



0517 

0518 
0519 
520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
532 
05 33 
0534 
0535 
05 36 
05 37 
0538 
0539 
0540 
541 
542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
05 51 
05 52 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
572 
0573 
05 74 



SYNTAX PROCESSOR & TABLE GENERATOR 

IF FUNCTICNFLAG THEN 

BEGIN COMMENT FIND F ANO G FUNCTIONS; 

ARRAY 640 INTEGER STACK SYN P; 

INTEGER REGISTER T SYN RO,I SYN R1,J SYN R2, 
FMIN SYN R4,GMIN SYN R4,K SYN R5,K1 SYN R6; 
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• 



SEGMENT 

BEGIN 



PROCEDURE FUNCTICNS(R33 



PROCEDURE 
BEGIN 
STM 
R2 
Rl 
LM* 
E NO ; 

PROCEDURE 
BEGIN 
MVC 

LOOP: R4 
R4 
GET 
MVC 
Rl 
R2 
RO 
IF 
RES 
END; 



GET<R8) ; 
COMMENT Rl s 
lRl,R3 f SAVE) ; 
:= R2 SHLL 2 
:- HCR2) ; SLD 
Rl,R3,SAVE) ; 

THRUmS) ; 
COMMENT PRINT 
* 131, BUFFER f B 
:= Rl * SIX ; 
:= R2 * SIX; 
; R4 := RO; I 
<3, BUFFERED 

= Rl SHRL 1; 

■= R2 SHRL 1; 

■= 3 BUFFER; W 
R12 >= U THEN 
ETIFUNCTIONFL 



It R2 = J, ANO RO = T AT EXIT; 

Rl := Rl SHLL 5; SRDL(R2,5); 
+ Rl; R3 := R3 SHRL 27; 
LiR0,B3<2)); RO := RO AND 3; 



FUNCTION CONFLICT LIST; 
LANKS); 

R4 := aSYTB{R4); MVCI1 1 , BUFFER? 8) , B4 J ; 
R4 := 3SYTB<R4); MVCC 11, BUFFER( 33 ) , B4) ; 
C{ R4 , RE L AT I ON ( R4 ) ) ; ST C < R4 , BUFFER ( 26 ) ) ; 
♦FMASKJ ; MVC(3,BUFFER(28) ,FMASK); 

CVOCRl ,DEC3; £0(3, BUFFER (21} , DEC (6)5; 

CVD(P2, CEO; ED«3,BUFFER«2 8),DEC(6J); 
RITE; R12 := R12 - 16; LM< Rl, R2, B12 ) ; 

GOTO LOOP? 
AG); RESET (TA8LEFL AG) ; GOTO EXIT; 



# 
• 



FIXUP COLUMN; 
= THEN 



PROCEDURE FIXUP CR3); 

BEGIN COMMENT FIXUP ROW IF R7 = ELSE 
STM{R1,R4,B12) ; R12 := R12 + 16; IF R7 
BEGIN R4 := G(J) + RO; FM) := R4; 
IF K = Kl THEN 

BEGIN J := K; GET; IF T = LSS THEN 
BEGIN IF R4 >= G(J) THEN THRU; 
END ELSE IF T = EQL THEN 
BEGIN IF R4 -.= GU) THEN THRU; 
END; 
END; 

FOR J := Kl STEP _2 UNTIL 2 DO 
BEGIN GET? IF T = LSS THEN 

BEGIN IF R4 >= G(Ji THEN BEGIN RO : = I; R7 : = 1; FIXUP; END; 

END ELSE IF T = EQL THEN 

BEGIN IF R4 -.= GJJ) THEN BEGIN RO : = 0; R7 :■» I; FIXUP; END; 

END; 

end; 

END ELSE 
BEGIN R4 
IF Kl 

BEGIN 



RO; GFJ) := R4; 



I 



BEGIN 

END ELSE 

BEGIN IF 

END; 
END; 
FOR I := K STEP _2 



f(I I + 

K THEN 

= K; GET; IF T = GTR THEN 

IF R4 >= F(IJ THEN THRU; 
IF T = EQL THEN 
R4 --= F(I } THEN THRU; 



UNTIL 2 00 
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09 


019E 


06 


9BB4 


09 


01AE 


06 


9BB4 


09 


01C2 


06 


9BB4 


09 


01CE 


06 


98B4 


09 


01E2 


C6 


9BB4 


09 


01E2 


06 


9BS4 


09 


OiEE 


06 


9BB4 


09 


01F6 


06 


SBB4 


09 


01F8 


06 


9BB4 


09 


01F8 


06 


9BB4 


09 


020A 


06 


9BB4 


09 


021C 


C6 


SBB4 


09 


0220 


C6 


9BB4 


09 


022C 


06 


9BB4 


09 


0238 


C6 


9BB4 


09 


023C 


C6 


9BB4 


09 


0246 


06 


9BB4 


09 


024A 


06 


9BB4 


09 


025A 


06 


9BB4 


09 


026A 


06 


9BB4 


09 


0276 


06 


9BB4 


09 


0282 


06 


9BB4 


09 


0282 


06 


9BB4 


09 


028C 


06 


9BB4 


09 


0290 


06 


9B84 


09 


0292 


06 


9BB4 


09 


02A2 


06 


9BB4 


09 


0286 


06 


93B4 


09 


2C2 


06 


98B4 


09 


0206 


06 


98 B 4 


09 


02D6 


Oo 


9BB4 


09 


02E2 


06 


9BB4 


09 


02EC 


06 


9BB4 


09 


02FG 


06 


9BB4 


09 


0300 


06 


98B4 


09 


0310 


06 


9BB4 


09 


031C 


06 


9BB4 


09 


0328 


G6 


93B4 


09 


0328 


06 


9BB4 


09 


332 


06 


9BB4 


09 


0336 


06 


98 B 4 


09 


0338 


C6 


9BB4 


09 


0348 


Ob 


98B4 


09 


035C 


06 


9BB4 


09 


0368 


06 


9BB4 


09 


037C 


06 


9BB4 


09 


03 7C 


06 


9BB4 


09 


0388 


06 


9BB4 


09 


0394 


06 


98B4 


09 


039E 


06 


9BB4 


09 


03B2 


06 


9BB4 


09 


03C6 


06 


9BB4 


09 


03CA 


06 


98B4 


09 


3CE 


06 


9B8 4 


09 


03E2 


06 


9BB4 


09 


03F0 


06 


9BB4 


09 


3FE 


06 


9884 


09 


040A 


06 


9B84 



05 7 5 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0565 
0586 
0587 
0588 
0589 
0590 
C591 
0592 
593 
0594 
0595 
0596 
059 7 
0598 
0599 
0600 
0601 

06 02 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
06 27 
0628 
0629 
06 30 
0631 
06 32 



BEGIN GET; IF T = GT R THEN 

BEGIN IF R4 >= F(I) THEN BEGIN RO : = 1; R7 := 0; FIXUP; END; 

END ELSE IF T = EQL THEN 

BEGIN IF R4 -= F(I) THEN BEGIN RO := 0; R7 := 0; FIXUP; END; 

END; 

end; 
end; r12 := r12 - 16; lm (r i ,r4, b 12) ; 

end; comment end of fixup; 



:= R3; 



RO 



i- 3 BLANKS; 
o; u :•= R12 ; PAGE; 
:= STEP 2 UNTIL 510 DO 
FIK) := Kl; G(K) :■= Kl; 



WRITE; 



DO 



DO 



R3SAVE 
Kl : = 

FOR K 

BEGIN 

END; 

FOR K := 2 STEP 2 UNTIL M2 

BEGIN FMIN := 1; I :» K; 

FOR J := 2 STEP 2 UNTIL Kl 
BEGIN GET; IF T = GTR THEN 
BEGIN IF FMIN 
END ELSE IF T 
BEGIN IE FMIN 
END; 
END; 

Fill := FMIN; 

FOR J := Kl STEP _2 UNTIL 2 
BEGIN GET; IF T = LSS THEN 

BEGIN IF FMIN >= G(J) THEN 

END ELSE IF T = EQL THEN 

BEGIN IF FMIN > G(J) THEN BEGIN 



<= G(J) THEN 
= EQL THEN 
< G(J) THEN 



FMIN := G(JJ + 1; 



FMIN := GIJ); 



00 



BEGIN RO : = l; R7 := l; FIXUP; END; 



RO := 0; R7 := 1; FIXUP; END 



END; 
END; 
Kl 
FOR I 

BEGIN 



= Kl 



+ 2; GMIN := 1; J := K; 
:= 2 STEP 2 UNTIL K DO 
GET; IF T = LSS THEN 



BEGIN IF 
END ELSE 
BEGIN IF 

END; 

END ; 



GMIN <= F$I) THEN GMIN : = F(II + 1; 

IF T = EQL THEN 

GMIN < FID THEN GMIN 1= F{I); 



:= GMIN; 
:= K STEP _; 

GET; IF T = 
GMIN : 
IF T s 
GMIN ; 



UNTIL 2 

GTR THEN 



DO 



= F(I) THEN 
EQL THEN 
F(I3 THEN BEGIN 



BEGIN RO 



G< J) 

FOR I 
BEGIN 

BEGIN IF 
END ELSE 
BEGIN IF 
END; 
END; 
END; 

R2 :■= aSYTB(12); MVCU31 , BUFFER, BLANKS I ; 
MVCU9, BUFFER 17), "PRECEDENCE FUNCTIONS"); 
MVC(19,8UFFER(7), BLANKS); RO := 3BUFFER; 

R2 := 3SYTBU2) ; 
FOR Rl := 2 STEP 2 UNTIL M2 DO 
BEGIN MVC (29, BUFFER (7), FMASK); 
ED (3, BUFFER (7) ,DEC<6)); RO 
ED { 3 , BUFFER { 27 ) , DEC ( 6) ) ; RO 
ED<3.BUFFER<33),0EC(6) ); MVC< 1 I, BUFFER i 13), 823; 
RO i- 3BUFFER; WRITE; R2 := R2 + 12; 



• 
• 



1; R7 := o; FIXUP; END; 



RO := 0; R7 := 0? FIXUP; END; 



RO := 3BUFFER; 
WRITE; 



WRITE; 



RO :■= Rl SHRL 1; CVDCROtDEC* 
= F(Rl); CVD«R0,DEC3; 
:= GIRD; CVD(RO,DEC); 



• 
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09 G41C 
09 0428 
09 042C 



06 9BB4 
C6 98B4 
C6 98B4 



0633 END; 

0634 EXIT: R3 := R3SAVE; 
06 35 END; 



# 



• 



# 



01 


08D4 


06 


9BB4 


01 


0804 


G6 


9BB4 


01 


08DE 


06 


9BB4 


01 


08DE 


06 


9BB4 


01 


08DE 


G6 


9BB4 


01 


08E6 


06 


98B4 


01 


08E6 


06 


9BB4 


01 


08EA 


10 


0000 


01 


8EA 


10 


0000 


01 


08EA 


10 


OOOC 


01 


08EA 


10 


OOOC 


01 


08EA 


10 


OOOC 


01 


08EA 


10 


0028 


01 


08EA 


10 


00 30 


01 


08EA 


10 


003C 


01 


08EA 


10 


0042 


01 


08EA 


10 


0048 


01 


08EA 


10 


004E 


01 


G8EA 


10 


0046 


01 


08EA 


10 


004E 


01 


08EA 


10 


C04E 


01 


08EA 


10 


0054 


01 


08EA 


10 


0254 


01 


03EA 


10 


0354 


01 


08EA 


10 


0354 


01 


08EA 


10 


435 8 


01 


08EA 


10 


4358 


01 


08EA 


10 


435 8 


01 


08E8 


10 


4358 


01 


0902 


10 


435 8 


01 


090A 


10 


4358 


01 


09 1C 


10 


4358 


01 


0926 


10 


4358 


01 


0930 


10 


4358 


01 


0940 


10 


4358 


01 


0948 


10 


4358 


01 


0956 


10 


4358 


01 


964 


10 


4358 


01 


09 6A 


10 


4358 


01 


09 6A 


10 


4358 


01 


0972 


10 


4358 


01 


0978 


10 


4358 


01 


098 


10 


4358 


01 


0986 


10 


435 8 


01 


098C 


10 


4358 


01 


098C 


10 


43 5 8 


01 


0990 


10 


4358 


01 


09A4 


10 


4358 


01 


09B2 


10 


435 3 


01 


09 BE 


10 


4358 


01 


09C4 


10 


4358 


01 


9C4 


10 


4358 



SEGMENT 09 NAME 



SEG#09 



LENGTH = 0470 BASE REG = 15 



0636 
06 37 
0638 
0639 
C640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 
0650 
0651 
0652 
0653 
0654 
06 55 
0656 
06 5 7 
06 58 

065 9 
C66 
0661 
0662 
0663 
0664 
0665 
0666 

066 7 
0668 
0669 

067 
0671 
0672 
06 73 
0674 
0675 
0676 
0677 
06 78 
0679 
0680 
06 81 
0682 
0683 
0684 
0685 
06 86 
0687 



E UNCTIONS; 

END; 

IF TABLEFLAG THEN 

BEGIN COMMENT NEW SYNTAX PUNCH CARD PROGRAM; 
SEGMENT BASE R12; 
FUNCTION EDM(5,#DF00) 5 
ARRAY 3 INTEGER SAVER9; 
INTEGER REGISTER NEXT SYN R8,IND SYN R7, 

CNT SYN R6,NUM SYN R5,P0UT SYN R9,ADDBASE SYN RIO; 
LCNG REAL NUMWORK .NUMEOIT, CNTEDIT f 

PATTERN =#40202 020202021 20; 
INTEGER L, T, PIMIT; 
ARRAY 6 BYTE NAME; 
ARRAY 3 SHORT INTEGER M0VECNT= {#0200 ,3MEM (POUT) ,381 ) , 

MOVENUM={#D200,3^EM<PQUT),3B3); 
FUNCTION TR<5,#QC00); 
SHORT INTEGER B4 SYN MEM(RV); 

INTEGER R9SAVE; 

ARRAY 256 SHORT INTEGER RMAP; 

ARRAY 256 BYTE CHAP; 

ARRAY 4097 LOGICAL MATRIX SYN H; 

ARRAY 16388 BYTE MATRIX2; 



PROCEDURE OUTPUT { 
BEGIN CVD<NUM, 
Rl := 3NUME 
R2 :•= 3NUME 
Rl := R2 + 
BEGIN CV0{C 
Rl := SC 
R4 := a)C 
IF RO > 
BEGIN RO 
POUT 
MVC<7 
ENO; 
POUT :- 
POUT := 
POUT := 
POUT := 

MVU M f w » 

END ELSE 
FOR CNT := 

BEGIN Rl := 
BEGIN RO 
POUT 
MVC17 
END; 
POUT 



Rll); COMMENT OUTPUT NUM WITH A REPITIQN 

NUMWORK) ; f*VC<7, NUMED IT, PATTERN); 

01 T (7) ; EDM(7,NUMEDIT,NUMWORKC4 3); 

017 1 7)- Rl; R3 := Rl; 

2 * CNT - 5; IF Rl > R2 THEN 

NT , NU m ORK ) ; MVC { 7 , CNTE DT T, PATT ERN ) ; 

NTEDIT(7) ; EDM{7 , CNTEOIT ,NUMW0RK(4) j; 

NTEDIT1 7)- Rl; RO := POUT + R2 + R4 + 5; 

7 2 THEN 

:= SPBUF; PUNCH; 
:= PI NIT; RO := POUT + R2 + R4 + 5; 
9, PBUF, BLANKS); 

aPBUFCPOUTI; EX(R4,MQVECNT> ; 
POUT + R4; MV I {»('•, MEMC POUT+1) ); 
POUT + 2; EX*R2 f MOVENUMI; 
POUT * R2; MVII" ) M fM6MIPQUT*l) ); 
MEMCPGUT+2) ); POUT := RO; 

CNT STEP _1 UNTIL 1 DO 
POUT + R2 + 2; IE Rl > 72 THEN 
:= 3PBUF; PUNCH; 

:■= PI NIT; Rl := POUT + R2 + 2; 

9, PBUF, BLANKS); 



- SPBUF(POUTJ; EX(R2,M0VENUM); 



00000050 
00000100 
00000200 
00000800 
00000900 
00001100 
00001200 
00001300 
00001400 
00001500 
00001550 
00001600 
00001700 
00002300 
00002400 
00002700 
00002800 
00002900 
00003000 
00003100 
00003200 
00003300 
COUNT OF CNT; 00003400 
00003500 
00003600 
00003700 
00003800 
00003900 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
00005500 
00005600 
00005700 
00005800 
00005900 



• 
• 



• 

# 



• 



w mm \ nmmmwmm 



filT W ffl rj« illW l l|l|IIIII W III Mn i|Wll W I J |i MB I Mffl l ll^^ 



• 
• 



PL360 COMPILATION 



SYNTAX PROCESSOR & TABLE GENERATOR 



69.33 8 a 14:17 



PAGE 13 



• 

• 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
1 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



09CC 
09D2 
09D4 
09 EO 
09E2 
09E2 
09E2 
09E2 
G9EE 
OAOO 
0A14 
0A1E 
0A28 
0A3C 
0A4C 
0A58 
0A5C 
0A68 
0A72 
0A86 
0A86 
0A92 
0A9E 
0AA6 
0A3A 
OACO 
0AC8 
OAOA 
OAEA 
OAEE 
OAFO 
OAFO 
OAFC 
OAFC 
OBOE 
0B22 
082C 
0836 
084A 
0B5A 
0B62 
0866 
0B76 
0B8 6 
0B92 
0B9E 
0BA6 
OBBA 
OBCO 
BC 8 
OBOA 
OBEA 
08EE 
OBFO 
OBFO 
OBFO 
OBFO 
OCOO 



10 
10 
10 
10 

10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
1G 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
1C 
10 
10 
10 
IG 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 



4358 
4358 
4358 
4358 
4358 
4358 
435 8 
4358 
435 8 
4358 
4358 
4358 
4358 
4358 
435 8 
4358 
435 8 
435 8 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
435 8 
435 8 
4358 
4358 
435 8 
435 8 
4358 
4358 
435 8 
4358 
4358 
435 8 
435 8 
4358 
4358 
43 58 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 
4358 



06 88 
C689 
06 90 
0691 
C6 92 
069 3 
C694 
06 95 
06 96 
0697 
C698 
C6 99 
0700 
0701 
0702 
0703 
0704 
C7 05 
0706 
0707 
0708 
07C9 
0710 
C711 
C712 
0713 
0714 
0/15 
0716 
0717 
0718 
719 
072 
0721 
0722 
0723 
0724 
072 5 
0726 
0727 
C728 
0729 
G730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0738 
0739 
0740 
0741 
C742 
0743 
0744 
0745 



POUT := POUT + 
POUT := Rl; 
END; 
END; 



R2; MV !(",", MEM( POUT+1) ) 



PROCEDURE LENGTHHR9); COMMENT PUNCH 
BEGIN BYTE NEXT SYN MEM{ AODE ASE ) ; 

STM<R9,R11 ,SAV£R9); MVC < 79 , PBUF , B 
POUT := PINIT-3; Rl := 3PBUF(P0UT) 
POUT := POUT + 6; CNT := 1; NUM : 
Rl := aPBUF(POUT-l) ; MVC<4,Bl f " 8 
MVC <5,BH6),NAME) ; MVI("=",B1< 13) 
RO := iPBUF; PUNCH; MVC(79,PBUF, 
POUT := PINIT + 1; Rl := 3PBUF(P0U 
CNT := l; NUM := 0; IC ( NUM, NEXT) ; 
FOR INO := 1 STEP 1 UNTIL L DO 
BEGIN Rl := 0; I C( Rl , NEXT UNO)) ; 

IF NUM = Rl THEN CNT := CNT + 1 

BEGIN OUTPUT; CNT := 1; NUM := 

END; 
END; 

OUTPUT; Rl := 3PBUF { PCUT-1 ) ; MVIC" 
IF POUT = 72 THEN 
BEGIN RO :-aPBUF; PUNCH; Rl := RO 

MVCi 79, PBUF, BLANKS) ; 
END ELSE Rl : = Rl + 1; 
MVI*";",B1); RO := 3PBUF; PUNCH; 
MVC(79 I P8UF, BLANKS); PUNCH; 
LM(R9,R11,SAVER9); 
END; 
PROCEDURE LENGTH2CR9); COMMENT PUNCH HAL 
BEGIN S.HGRT INTEGER NEXT SYN MEMUDDB 
STM(R9 t Rll ,SAVER9) ; MVC (79, PBUF , B 
POUT := PINIT-3; Rl := 3P8UF(P0UT) 
POUT := POUT + 6; CNT := 1; NUM : 
Rl := aPBUF(POUT-l); MVC(13,B1," 
MVC ( 5,81 < 15), NAME) ; MVI ( "=» , Bl ( 22 
RO := 3PBUF; PUNCH; MVC(79,P8UF, 
POUT 5= PINIT + l; Rl := SPBUF (POU 
CNT := l; NUM := NEXT; 
FOR INO :^ 2 STEP 2 UNTIL M2 DO 
IF NUM = NEXT(IND) THEN CNT : = CNT 
BEGIN OUTPUT; CNT := 1; NUM :* NEX 
END; 

OUTPUT; Rl := 3PBUF ( POUT-1 ) ; 
IF POUT = 72 THEN 
BEGIN RO := SPBUF; PUNCH; Rl 

MVC(79, PBUF, BLANKS) ; 
END ELSE Rl := Rl + 1; 
MVIC'^SBU; RO := 3 PBUF; PUNCH 
MVCI79, PBUF, BLANKS); PUNCH; 
LM<R9,R11,SAVER9) ; 
END; 



BYTE TABLES; 



LANKS); ADDBASE := RO; 
; MVC < 4, 81, "ARRAY"); 
= L + 1; OUTPUT; 
YTE"); 

); 

BLANKS); 

T-l); MVICM'SBl); 



ELSE 
0; ICCNUM.NEXTUNDn; 



) " * 3 1 ) ; 

+ PINIT; 



FWORD TABLES; 

ASE) ; 

LANK 

; MV 

= M 

SHOR 

)); 

BLAN 
T-i) 



S); ADDBASE := RO; 
CC4, Bl,» ARRAY"); 
* l; OUTPUT; 
T INTEGER"); 



KS); 

; MVI{»»«",B1J; 



+ 1 ELSE 
T(IMD); 



MVi<"i"f Bi) ; 

:■= RO + PINIT; 



PROCEDURE MATRIXMTBPRTBHR9}; 

BEGIN Rl := 0; MTB(O) := Rl; RO 
FOR R2 :■= 2 STEP 2 UNTIL M2 DO 



255; STCCRO.PRTBKO}} 



00006000 
00006100 
00006200 
00006300 
00006400 
00009900 
00010000 
00010100 
00010110 
00010120 
00010130 
00010140 
00010150 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
00011500 
00011600 
00011700 
00011800 
00011900 
00012000 
00012100 
00012110 
00012120 
00012130 
00012140 
00012150 
00012200 
00012300 
00012400 

00012 500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 
00013300 
00013400 
00013500 
00013600 
00013700 

00013 800 
00013900 
00014000 
00014100 



• 
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01 


0CQ4 


10 


4358 


01 


0C16 


10 


4358 


01 


0C1A 


10 


4358 


01 


0C28 


10 


4358 


01 


0C34 


10 


4358 


01 


0C36 


10 


4358 


01 


0C48 


10 


4 35 8 


01 


0C50 


1C 


435 8 


01 


0C50 


10 


435 8 


01 


0C5A 


10 


4358 


01 


0C.66 


10 


4358 


1 


OC72 


10 


4358 


01 


0C76 


10 


4358 


01 


0C7E 


10 


4358 


1 


0C82 


10 


4358 


01 


0C96 


10 


4358 


01 


0CA6 


10 


4358 


01 


0CA8 


10 


4358 


01 


0CA8 


10 


4358 


01 


OCAS 


10 


4358 


01 


0C88 


10 


4353 


01 


OCBC 


10 


4358 


01 


OCCE 


10 


4358 


01 


0CD2 


10 


4 35 8 


01 


OCEO 


10 


435 8 


01 


0CE6 


10 


435 8 


01 


ocec 


10 


43 58 


01 


OCFA 


10 


4358 


01 


0002 


10 


4358 


01 


0002 


10 


4358 


01 


ODOC 


10 


4358 


01 


0018 


10 


4358 


01 


0024 


10 


4358 


01 


002C 


10 


4358 


01 


0030 


10 


4 358 


01 


0044 


10 


4358 


01 


0054 


10 


4358 


01 


0056 


10 


4358 


01 


0056 


10 


4358 


01 


0056 


10 


4358 


11 


0000 


10 


4358 


11 


0000 


10 


4358 


11 


0000 


10 


43 5 8 


11 


0000 


10 


4358 


11 


0000 


10 


435 8 


11 


OOOD 


10 


435 8 


11 


0004 


10 


4358 


11 


OOOC 


10 


4358 


11 


001A 


10 


4358 


11 


0022 


10 


4358 


11 


002A 


10 


4358 


11 


002E 


10 


4358 


11 


0030 


10 


4358 


11 


0030 


10 


435 8 


11 


0038 


10 


4358 


11 


003C 


10 


4358 


11 


0040 


10 


4358 


11 


004E 


10 


435 8 



C746 

074 7 
0748 
0749 

075 
0751 
07 52 
753 
754 
0755 
756 
0757 
075 6 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
C767 
0768 
0769 
C770 
07 71 
0772 
0773 
07 74 
07 75 
0776 
0777 
0778 
0779 
C780 
0781 
0782 
0783 
784 
0785 
0786 
0787 
0788 
078 9 
0790 
C791 
0792 
0793 
0794 
0795 
0796 
0797 
C798 
07 99 
0800 
0801 
0802 
0803 



BEGIN R6 : = Rl + 1; MTB(P2) := R6; R5 := 1; 
FOR R3 := 14 STEP 12 UNTIL N12 00 
BEGIN R7 := PRTB(R3); IF R2 = R7 THEN 

BEGIN Rl := Rl + 1; R6 := Rl; R8 :=-R3 + 8; 
FOR R4 := R3 STEP 2 UNTIL R8 DO 
BEGIN R7 := PRTB(R4) SHRL 1; IF R7 -.« THEN 
BEGIN Rl := Rl + 1; STC( R7 , PRTB MR 1 ) ) ; 
END; 
END; 

R7 := Rl - R6 - l; STC < R7 , PRTBH R6 } ) ; 
Rl := Rl + 1; R7 := PRTB{R3-2) SHRL 1} 
STC(R7,PRTB1(RI)}; 
Rl := Rl + l; STC{R5,PRTBKR1J); 
END; R5 := R5 + 1; 
END; Rl := Rl + 1; STC< RO, PRTBi < RU) ; 
END; L := Rl; 
ENO; 

PROCEDURE FUNCTI0NMTBPRTBKR9) ; 

BEGIN Rl := 0; MTB(O) := Rl; RO := 255; STC < RO, PRTBI (0) } ; 
FOR RZ := 2 STEP 2 UNTIL M2 DO 
BEGIN R6 := Rl *• 1; MT B < R2 ) := R6; R5 := 1; 
FOR R3 := 14 STEP 12 UNTIL N12 00 
BEGIN R7 := PRTBJR3); IF R2 = R7 THEN 
BEGIN Rl := Rl + 1; R6 := Rl; 

FOR R4 := R3 + 8 STEP _2 UNTIL R3 00 
BEGIN R7 := PRTB<R4J; IF R7 -.» THEN 
BEGIN Rl := Rl + 1; STC( R7, PRTBUR1 ) ) ; 
ENO; 
ENO; 

R7 := Rl - R6 - 1; STC!R7,PRTB1(R6 ) ) ; 
Rl := Rl + i; R7 := PRTB1R3-2); STC( R7, PRTBI! R 1) ) ; 
Rl := Rl + 1; STC ( R5 t PRTBI (Ri))J 
END; R5 := R5 + 1; 
END; Rl := Rl + 1 ; STCiRO, PRTBI (Rl) ) ; 
END; L := Rl; 
ENO; 

SEGMENT PROCEDURE BUI LDMATRI X2 ( R9) ; 
BEGIN 

PROCEDURE FETCH {R14); 
COMMENT FETCH TAKES THE RELATION BETWEEN C(R1) AND C{R2) FROM 
THE MATRIX AMD PUTS IT IN R4. REGISTERS Rl - R5 ARE 

USED AND DESTROYED. Rl AND R2 ARE CLEARED; 
BEGIN 

Rl := Rl SHLL 6; SRDL(R2,4); 

R2 := R2 SHLL 2 + Rl; R3 := R3 SHRL 28 SHLL 1; 

R5 := MATRIXLR2); SLDL(R4,B3); 

R4 := 0; Rl := R4; R2 := R4; 

SLDL(R4,2); COMMENT BITPAIR IS NOW IN R4; 
END; 

R9SAVE := R9 ; MVIC » CMAP < OH ; 
R8 :■= l; COMMENT COLUMN COUNT; 
FOR R6 := 1 STEP 1 UNTIL M DO 
BEGIN R7 := R6-1; T := R7; 
FOR R9 := STEP 1 UNTIL T DO 



00014200 
00014300 
00014400 
00014500 
00014600 
00014700 
00014800 
00014900 
00015000 
00015100 
00015200 
00015300 
00015400 
00015500 
00015600 
00015700 
00015800 
00015805 
00015810 
00015815 
00015820 
00015825 
00015 830 
00015835 
00015 840 
00015845 
00015850 
00015 855 
00015860 
00015865 
00015870 
00015875 
00015880 
00015885 
00015890 
00015895 
00015896 
00015900 
00016000 
00016100 
00016150 
00016200 
00016300 
00016400 
00016500 
00016600 
00016700 
00016800 
00016900 
00017000 
00017100 
00017200 
00017300 
00017400 
00017500 
00017600 
00017700 
00017800 
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11 


0052 


1C 


43 5 8 


11 


0056 


10 


4358 


11 


005A 


10 


435 8 


11 


005E 


10 


4358 


11 


00 6C 


10 


435 8 


11 


0076 


10 


4358 


11 


0082 


10 


4358 


11 


0086 


10 


435 8 


11 


0092 


10 


4358 


11 


00 96 


10 


4358 


11 


009A 


10 


4358 


11 


00A6 


10 


43 5 8 


11 


00B6 


10 


435 8 


11 


0OC2 


10 


4358 


11 


0008 


10 


4358 


11 


0008 


10 


435 8 


11 


ooeo 


10 


4358 


11 


OOF 6 


10 


4358 


11 


OOFA 


10 


435 8 


11 


OlOfc 


10 


435 8 


11 


0112 


10 


4358 


11 


012A 


1C 


435 8 


11 


012A 


10 


4358 


11 


0136 


10 


435 8 


11 


013A 


10 


4358 


11 


0142 


IC 


4358 


11 


0148 


10 


4358 


11 


0156 


10 


4358 


11 


Q15A 


IC 


4358 


11 


0166 


10 


4358 


11 


01 6 A 


10 


4358 


11 


0178 


10 


4358 


11 


017C 


10 


4358 


11 


017C 


IC 


435 8 


11 


0188 


10 


4358 


11 


0190 


10 


435 8 


11 


1A0 


10 


435 8 


11 


01AC 


10 


435 8 


11 


01C6 


10 


4358 


11 


01CA 


10 


4358 


11 


0102 


10 


4358 


11 


0108 


10 


435 8 


11 


01E0 


10 


435 8 


11 


oieo 


10 


435 8 


11 


01EC 


10 


4358 


11 


oiec 


IC 


4358 


11 


OIF 8 


10 


4358 


11 


01FC 


10 


4358 



0804 
0805 
C806 
0807 
0808 
0809 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
C828 
0829 
0830 
0831 
0832 
08 33 
0834 
0835 
C836 
0837 
083 8 
0839 
0840 
0841 
0842 
C843 
0844 
0845 
C846 
C847 
C848 
0849 
0850 
0851 



L2 



L3 



BEGIN 
FOR 
BEG 
R 
F 
END 
GOT 

ENO; 

R8 : = 

STC<R 

eno; 

MVCU31 
E0(7,BU 
RO :* 3 

COMMENT 
R2 := 
FOR Rl 
FOR R6 
BEGIN 
FOR R 
BEGIN 
COMKE 
R8 : = 
FOR R 
BEGIN 
IF 
BEG 
ENO 
END; 
GOTO 
L: Rl := 
RMAP( 
EXIT: 
END; 
R7 := 
MVC( 131 
ED(7,BU 
RO := oJ 
FOR R9 
BEGIN 
IF R9 
BEGIN 
ENO E 
BEGIN 
ENO; 

END; 
R9 := R 
END ; 



R7 := 1 STEP 1 UNTIL M DO 
IN 
1 := R7; R2 i- R6 ; FETCH; RO i- R4; Rl := R7; R2 := R9; 

ETCH; IF RO -.= R4 THEN GOTO L2; 
; COMMENT ELEMENT COMPARED; 
G L3; 
COMMENT RCW COMPARED; 

R8+1; COMMENT STEP COLUMN COUNT; 
9,CMAP<R6) ) ; 

tBUFFER, BLANKS) ; CVO( R8 , NUMWORK ) *, MVCC 7, BUFFER * PATTERN) ; 
FFER, NUMWORK (4)) ; MVC ( 12 , BUFFER ( 9 ),« BYTES PER ROW"); 
BUFFER; WRITE; RO : = 0; RMAPCO) := RO; 

BUILD NEW MATRIX; 
; R8 := R8 - 1; COMMENT NUMBERING STARTS FROM 0; 
:= STEP 1 UNTIL R8 00 STC ( RO, MATRI X2< R 1) ) ; 
:= 2 STEP 2 UNTIL M2 DO 

Rl : = R6 SHLL 5; Rl := 3MATRIXCR1); R3 := Rl - 64; 
7 := 3 MATRIX STEP 64 UNTIL R3 DO 

CLC(63,31,B7) ; IF = THEN GOTO LJ END; 
NT NEW ROW; 

R8 + l; STC<R0fMATRIX2(R8) )*, RMAP1R6* := R8? 

9 := 1 STEP I UNTIL M DO 

IC<R2,CMAP<R9J); 
R9 = RZ THEN 
IN Rl := R6 SHRL 1; FETCH; R8 := R8 + 1; STC(R4,MATRIX2(R8) I 



EXIT; 

3MATRIX; 
R6) := R7; 



R7 := R7 - Rl SHRL 5; R7 := RMAP<R7); 



; R8 
,BUFF 
FFER, 
BUFFE 
:= 1 
ICCR6 
= R6 

R7 
LSE 

IC( 



:= R8 + i; 
ER f BLANKS J i CVD< R8 , NUMWORK ) ; MVC( 7, BUFFER, PATTERN ) ; 
NUMWORK (41); MVCM5,BUFFER<9), "BYTES IN MATRIX2"); 
R; WRITE; R8 :- R8 - I ; L := R8; R6 := 0; 
STEP 1 UNTIL M 00 
,CMAP(R9) ); 

THEN 
:= R7+1; STCLR7,CMAP(R93 ); 

R6,CMAP(R6) ) 5 STC(R6,CMAP(R9I) ; 



9SAVE; 



00017900 
00018000 
00018100 
00018200 
00018300 
00018400 
00018500 
00018600 
00018700 
00018800 
00019000 
00019100 
00019200 
00019300 
00019400 
00019500 
00019550 
00019600 
00019700 
00019800 
00019900 
00020000 
00020100 
00020200 
00020300 
00020400 
0002050G 
00020600 
00020700 
00020800 
00021000 
00021100 
00021200 
000213 00 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 
00022200 
00022300 
00022400 
00022 500 
00022600 
00022700 






# 
• 



SEGMENT 11 NAME = SEG#li 



LENGTH = 0230 BASE REG = 15 



01 


0056 


10 


4358 


01 


005 6 


10 


4358 


01 


0062 


IC 


4358 


01 


0D6A 


10 


4358 


01 


006A 


10 


4358 


01 


0076 


10 


4358 


01 


0084 


10 


4358 



0852 
C853 
0854 
0855 
C856 
85 7 
0858 



Rl :■•= M SHLL 1; M2 := Rl; 

IF FUNCTIONFLAG THEN 

BEGIN COMMENT PRODUCE TABLES IN PL360 FORMAT; 

FUNCTIONMTBPRTBl; RO := 7; PINIT :■= RO; 

RO := SF; MVC 45* NAME, "F " ) 5 LENGTH2; 

RO := SG; MVC(5,NAME,»G "}? LENGTH2; 



00022800 
00022810 
00022820 
00022830 
00022840 
00022850 
00022860 
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# 



OL 


0092 


10 


4358 


01 


ODAO 


10 


4358 


01 


ODAE 


10 


4358 


01 


OOAE 


10 


4358 


01 


0DB2 


10 


4358 


01 


ODBE 


10 


435 8 


01 


ODCC 


10 


4358 


01 


ODDA 


10 


4358 


01 


00E8 


10 


4358 


01 


00F2 


10 


4358 


01 


ODFE 


10 


4358 


01 


OtOC 


10 


4358 


01 


0E24 


10 


4358 


01 


0E3A 


10 


4358 


01 


0E48 


10 


4358 


01 


0E46 


1C 


4358 



• 


01 


0E48 


1U 

1C 


4358 


* 












01 


0E48 


00 


9BB4 


• 


01 


0E48 


06 


9BB4 


01 


0E48 


06 


9BB4 




01 


0E5C 


C6 


9BB4 


» 


01 


0E60 


06 


9884 


01 


0E6C 


06 


9BB4 




01 


0£78 


06 


9BB4 


# 


01 


0E38 


06 


98B4 


01 


0E9A 


06 


9BB4 




01 


0E9E 


06 


9BB4 


# 


0.1 


0E9E 


06 


9BB4 


01 


0£9E 


06 


9384 



0859 
086 
C861 
0862 
863 
864 
865 
0866 
0867 
G868 
0869 
08 70 
0871 
0872 
08 73 
08 74 



RO : 
RO : 
END EL 
BEGIN 
MATR 
RO : 
RO : 
MVC( 
CVO( 
ED< 7 
RO 
BUI 
R8 
RO 
ENO; 
END; 



= 3MTB; MVCt5,NAME,"MTB "); LENGTH2; 
= 2PRTB1; MVC(5,NAME,"PRTB "J; LENGTH!; 
SE 

CCMMENT PRODUCE TABLES IN ALGOL PASS 2 FORMAT; 
IXMTBPRTBl; RO : = 3; PINIT := RO; 

= 2MTB; MVC(5,NAME,"MTB "); LENGTH2; 
= SPRTBli MVCI5,NAME,"PRTB " ) ; LENGTH1; 
131, BUFFER, BLANKS) ; RO :■= L + 1; 

ro f numwork) ; mvc< 7 , buffer, pattern ) ; 

', buffer, numw0rm4)) ; mvcc 12, buffer ( 9) ," bytes in prtb'o; 

= sbuffer; write; 

.dmatrix2; ro := 3matrix2; mvc (5 ,name , "matri x" ) ; length1; 

= m; l := r8; ro := 3rmap; mvc ( 5,name,"rmap "); length2; 

= 3cmap; mvc(5,name,"cmap '»); length!; 



SEGMENT 10 NAME = SEG#10 



LENGTH = 4358 BASE REG = 12 



0875 
C8 76 
877 
0878 
0879 
0880 
0881 
0882 
08 8 3 
0834 
0885 
C886 



EXI T: 
IF -.EOF THEN 
BEGIN Ri := 49; MCOUNT : = Rl; MVI (0, CHANGE J; MVI <0, ERRFLAG) ; 

MVI (0,SYMPUNCHFLAG) ; MV HO, MAT RI XFL AG 3 ; MVI { 0,TABL EFLAG I ; 

MVUOtREAOFLAG) ; MVI<0,EOF); MV IC ,RIGHTFLAG ) ; 

MVI (0,LEFTFLAG) ; MV 1(0 , EOPROOJ ; Rl I- 0? MSTART : = Rl; 

MVHO,CHECKFLAG} ; PAGE; MVI ( 0,SYMBOLFLAG) ; 

GOTO LOOP; 
END; 

END. 



14:17 PAGE 16 

00022870 
00022880 
00022890 
00022900 
00025100 
00025200 
00025300 
00025400 
00025500 
00025600 
00025700 
00025800 
00025900 
00026000 
00026100 
00026200 



00026300 
00026400 
00026500 
0002 6600 
00026700 
00026 800 
00026900 
00027000 
00027100 
00027200 
00027300 
00027400 



• 



# 



# 



SEGMENT C6 NAME = SEG#06 
SEGMENT 00 NAME = SEG#GO 
SEGMENT 01 NAME = SEG#01 



LENGTH = 9BB8 BASE REG = 11 
LENGTH = 1F2C BASE REG - 13 
LENGTH * 0FA8 BASE REG = 15 
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• 





LCAD MAP 




-SEGMENT- 


-ORIGIN- 


-LENGTH 


READ 


OFB050 


000000 


WRITE 


OFBOCO 


000000 


DUMP 


OF9EDO 


000000 


PAGE 


0FB124 


000000 


PUNCH 


0FB12A 


000000 


SEG#07 


111800 


0007F8 


SEG#01 


1232D8 


000FA8 


S6G#08 


111FF8 


000500 


SEG#09 


112DF8 


000470 


SEG#ll 


113268 


000230 


SEG#iO 


113498 


004358 


SEG#06 


1177F0 


009BB8 


SEG#00 


1213A8 


OIF 30 



# 



# 
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# 



1 


<K REG> : 


:= <IC> 








2 


<T CELL ID> : 


: = <I0> 






3 


<PRGC I0> : 


:= <ID> 






4 


<FUNC ID> : 


:= <I0> 






5 


<T CELL> : 


:= <T CELL ID> 






6 




<T CELL1> ) 






7 




<T CELL2> 1 






8 


<T C6LL1> : 


:= <T CELL2> <ARITH OP> <T 


NUMBER> 


9 




<T C£LL3> <T NUMBER> 




10 


<T CELL2> 


:= <T CELL3> <K REG> 




11 


<T CELL3> : 


:= <T CELL ID> 


( 




12 


<UNARY 0P> : 


:= ABS 






13 




MEG 






14 




NEG ABS 






L5 


<ARITH 0P> : 


:= + 






16 




- 






17 




* 






18 




/ 






19 




+ + 






20 




_ 






21 


<LOG 0P> : 


:= AND 






22 




OR 






23 




XOR 






24 


<K REG ASS> : 


:= <K REG> 


• = 


<T CELL> 




25 




<K REG> 


= 


<T NUMBER> 




26 




<K REG> : 


= 


<STRING> 




27 




<K REG> • 


= 


<K REG> 




28 




<K REG> . 


— 


<UNARY 0P> 


<T CELL> 


29 




<K REG> 


: = 


<UNARY 0P> 


<T NUMBER> 


30 




<K REG> 


>.= 


<UNARY 0P> 


<K REG> 


31 




<K REG> 


= 


2 <T CELL> 




32 




<K REG ASS> 


<ARITH 0P> 


<T CELL> 


3.3 




<K REG ASS> 


<ARITH 0P> 


<T NUMBER> 


34 




<K REG ASS> 


<ARITH 0P> 


<K REG> 


35 




<K REG ASS> 


<LOG QP> <T 


CELL> 


3 6 




<K REG ASS> 


<LOG 0P> <T 


NUMBER> 


37 




<K REG ASS> 


CLOG 0P> <K 


REG> 


38 




<K REG ASS> 


<SHIFT 0P> 


<T NUMB£R> 


3 9 




<K REG A5S> 


<SHIFT 0P> 


<K REG> 


40 


<FUNC1> : 


:= <FUNC2> <T 


NUM8ER> 




41 




<FUNC2> <K 


REG> 




42 




<FUNC2> <T 


CELL> 




43 




<FUNC2> <STRING> 




44 


<FUNC2> : 


:= <FUNC I0> 1 






45 




<FUNC1> , 






46 


<CASE SEQ> : 


:= CASE <K REG> OF BEGIN 




4 7 




<CASE SEQ> 


<STATEMENT> 


» 


48 


<SIMPLE ST> : 


:= <T CELL> : = 


= <K REG> 




49 




<K REG ASS> 






50 




NULL 






51 




<PROC I0> 






52 




<FUNC 10 > 






53 




<FUNC1> ) 






54 




<CASE SEQ> 


END 




55 




<BLOCKB00Y> 


ENO 




56 
57 

58 


<REL OP> : 


:= < 








> 






59 




< = 






6 




> = 









• 

• 
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• 



• 



61 






-i -— 


62 


<N0T> 


: : = 


-~% 


63 


<C0NDITI0N> 


« • — 


<K REG> <REL CJP> <T CELL> 


64 






<K R£G> <REL 0P> <T NUNBER> 


65 






<K REG> <REL 0P> <K REG> 


66 






<K REG> <REL 0P> <STRING> 


67 






OVERFLOW 


68 






<REL 0P> 


69 






<T CELL> 


70 






<NQT> <T CELL> 


71 


<COMP CQND> 




<CONOITIGM> 


72 






<COMP AOR> <CGNDITIQN> 


73 


<C0MP A0R> 




<COMP CGND> AND 


74 






<COMP CQND> OR 


75 


<C0N0 THEN> 


: : = 


<COMP CGND> THEN 


76 


<GOTO ST*> 


: : = 


GOTO <ID> 


77 


<G0T0 ST> 


: : = 


<GOTO ST*> 


78 


<TRUE PART> 


: : = 


<SIMPLE Sf> ELSE 


79 






<GGTO ST*> ELSE 


80 


<WHILE> 


: : ~ 


WHILE 


81 


<C0ND 00 > 


: : = 


<CCMP COND> DO 


82 


<ASS STEP> 


: : = 


<K REG ASS> STEP <T NUM6ER> 


83 


<LIMIT> 


: : = 


UNTIL <K REG> 


84 






UNTIL <T CELL> 


85 






UNTIL <T NUMBER> 


86 


<00> 


• * — 


DO 


87 


<STATEMENT-> 


• ■■ — 

♦ » — - 


<SIMPLfc ST> 


38 






IF <CONO THEN> <STATEHENT-> 


89 






IF <CQNO TH£N> <GOTO ST> 


90 






IF <CONO THEN> <TRU£ PART> <STATEMENT-> 


91 






IF <CONO THEN> <TRUE PART> <GOTO ST> 


92 






<WHILE> <CONO 0Q> <STATEMENT*> 


93 






FOR <ASS STEP> <LIMIT> <00> <STATEMENT*> 


94 


<STATEMENT*> 


: : = 


<STAT£MENT-> 


95 






<GOTO ST> 


96 


<STATEM6NT> 


* « .— 


<STATEMENT*> 


97 


<SI T TYPE> 


♦ * — 

• • — 


SHORT INTEGER 


98 






INTEGER 


99 






LOGICAL 


100 






REAL 


101 






LONG REAL 


102 






BYTE 


103 






CHARACTER 


104 


<T TYPE> 


■* » '"" 


<SI T TYPE> 


105 






ARRAY <T NUMBER> <SI T TYPE> 


106 


<FILL> 


• • — 


<STRING> 


107 






a <T CELL> 


108 






<T NUM3ER> 


109 






<REP LIST3> 


110 


<REP LIST1> 


• • = 


<T NUMBER> ( 


111 






( 


112 






<REP LIST2> , 


113 


<R£P LIST2> 




<REP LIST1> <FILL> 


114 


<R£P LIST3> 


* # — 


<REP LIST2> ) 


115 


<T 0ECL1> 


■» * .*_ 


<T TYP£> <ID> 


116 






<T 0£CL2> <I0> 


117 


<T 0ECL2> 


: j = 


<T DECL4> , 


118 


<T D£CL3> 


: : = 


<T 0ECL1> ■= 


119 


<T OECL4> 


•j = 


<T 0£CLl> 


120 






<T D£CL3> <FILL> 



• 

• 



m 



# 
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121 


<FUNC DC1> 


• * — 


FUNCTION 




122 






<FUNC 0C7> 


t 


123 


<FUNC DC2> 


: : = 


<FUNC 0C1> 


<I0> 


124 


<FUNC 0C3> 


' : = 


<FUNC 0C2> 


( 


125 


<FUNC DC4> 


: = 


<FUNC 0C3> 


<T NUMBER> 


126 


<FUNC 0C5> 


: t = 


<FUNC DC4> 


t 


127 


<FUNC DC6> 


: = 


<FUNC DC5> 


<T NUM3ER> 


128 


<FUNC DC7> 


: = 


<FUNC DC6> 


) 


129 


<SYN DC1> 


: : = 


<T TYPE> <I0> SYM 


130 






<S1 T TYPE> 


REGISTER <I( 


131 






<SYN DC3> 


<ID> SYN 


132 


<SYN DC2> 


* — 


<SYN 0C1> 


<T CELL> 


133 






<SYN 0C1> 


<T NUMBER> 


134 






<SYN 0C1> 


<K REG> 


135 


<SYN UC3> : 


i~ 


<SYN DC2> 


» 


136 


<PR0C H01> J 


: = 


PROCEDURE 


<I0> 


137 


<PR0C H0 2> 


. : = 


<PROC H01> 


( 


138 


CPRQC HD3> 


: = 


<PROC HD2> 


<K REG> 


139 


<PRQC HD4> 


: = 


<PROC H03> 


) 


140 


<PR0C HD5> 2 


: = 


<PROC H04> 


» 


141 


<PRQC H06> 


t- 


<PROC H05> 




142 






GLOBAL <PR0C HD5> 


143 






EXTERNAL <PROC HD5> 


144 






SEGMENT <PRGC H05> 


145 


<QSEG TYPE> , 


* — 

• — — 


GLOBAL OATA <I0> 


146 






EXTERNAL DATA <I0> 


147 






COMMON DATA <ID> 


148 






COMMON 




149 






SEGMENT 




150 






DUMMY 




151 


<0ECL> i 


■» ;— 


<T DECL4> 




152 






<FUNC 0C7> 




153 






<SYN DC2> 




154 






<PROC H06> 


<STATEMENT#> 


155 






<DSEG TYPE> 


BASE <K REG5 


156 






CLOSE BASE 




157 


<LAB£L 0£F> : 


» — 


<ID> : 




158 


<BLOCKH£A0> J 


: = 


BEGIN 




159 






<BLQCKHEAD> 


<DECL> J 


160 


<8LGCKB0DY> J 


* — . 


<BLOCKHEAD> 




161 






<BL0CK8 00Y> 


<STATEMENT> 


162 






<BL0CKB0DY> 


<LABEL OEF> 


163 


<PROGRAM-> : 


• ■— . 


. 




164 






. GLOBAL 


CPROC H05> 


165 


<PR0GRAM*> : 


; = 


<PROGRAM-> 


<STATEMENT*> 


166 


<PROGRAM> : 


• «_ 


<PROGRAM*> 


* 



SYN 






• 
• 
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NONTERMINAL SYMBOLS 



1 


<K R£G> 


2 


<T CELL IO> 


3 


<PROC IO> 


4 


<FUNC ID> 


5 


<T CELL> 


6 


<T CELL1> 


7 


<T CELL2> 


8 


<T CELL3> 


9 


<UNARY OP> 


10 


<ARITH 0P> 


11 


<LOG OP> 


12 


<K REG ASS> 


13 


<FUNC1> 


14 


<FUNC2> 


15 


<CASE SEQ> 


16 


<SIMPLE ST> 


17 


<REL OP> 


18 


<NOT> 


19 


<CONDITION> 


2 


<COMP CONO> 


21 


<COMP AOR> 


22 


<COND THEN> 


23 


<GOTO ST> 


24 


<GOTQ ST*> 


2 5 


<TRUE PART> 


26 


<WHILE> 


11 


<CONO OQ> 


28 


<ASS STEP> 


29 


<LIM1T> 


3 


<00> 


31 


<STATEMENT-> 


32 


<STATEMENT*> 


33 


<STATEMENT> 


34 


<SI T TYPE> 


35 


<T TYPE> 


36 


<F.ILL> 


37 


<REP L1ST1> 


38 


<REP LIST2> 


39 


<REP LIST3> 


40 


<T DFCL1> 


41 


<T DECL2> 


42 


<T OECL3> 


43 


<T DECL4> 


44 


<FUNC DCi> 


45 


<FUNC DC2> 


46 


<FUNC DC3> 


47 


<FUNC 0C4> 


48 


<FUNC 0C5> 


49 


<FUNC 0C6> 


50 


<FUNC DC7> 


51 


<SYN DC1> 


52 


<SYN DC2> 


53 


<SYN DC3> 


54 


<PR(1C HD1> 


55 


<PROC H92> 


56 


<PROC HD3> 


57 


<PRCJC H04> 


58 


<PROC HD5> 


59 


<PROC HD6> 


60 


<DSEG TYPE> 


61 


<UECL> 


62 


<LABEL DEF> 


6 3 


<BLOCKHEAO> 


64 


< BLOCKS ODY> 


65 


<PROGRAM-> 


66 


<PROGRAM#> 


67 


<PROGRAM> 















TERMINAL SYMBOLS 



68 

73 

78 

83 

88 

93 

98 

103 

108 

113 

118 

123 



<I0> 

+ 



NEG 

ABS 

XOR 

ELSE 

STEP 

DUMMY 

GLOBAL 

FUNCTION 



69 


<T NUMBER > 


74 


- 


79 


( 


84 


» 


89 


DO 


94 


AND 


99 


BASE 


1G4 


GOTO 


109 


THEN 


114 


SHORT 


119 


INTEGER 


124 


OVERFLOW 



IDENTICAL RIGHT PART OCCURRENCES 

LINE 1 SAME AS LINE 2 

LINE 2 S/ME AS LINE 3 

LINE 3 S/ME AS LINE 4 



70 


<STRING> 


75 


.= 


80 


i 


85 


a 


90 


IF 


95 


END 


100 


BYTE 


105 


LONG 


110 


ARRAY 


115 


UNTIL 


120 


LOGICAL 


125 


REGISTER 



71 


< SHIFT OP 


76 


< 


81 


* 


86 


* 


91 


OF 


96 


FOR 


101 


CASE 


106 


NULL 


111 


BEGIN 


116 


WHILE 


121 


SEGMENT 


126 


CHARACTER 






72 


? 


77 


> 


82 


/ 


87 


* — 


92 


OR 


97 


SYN 


102 


DATA 


107 


REAL 


112 


CLOSE 


117 


COMMON 


122 


EXTERNAL 


127 


PROCEDURE 



• 
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NO PRECEDENCE VIOLATION DETECTED 
# 



• 



PRECEDENCE FUNCTIONS 





1 


<K REG> 


8 


5 






2 


<T CELL ID> 


9 


6 




• 


3 


<PROC ID> 


3 


4 




4 


<FUNC ID> 


9 


4 






5 


<T CELL> 


8 


5 




• 


6 


<T CELL1> 


3 


6 




7 


<T CELL2> 


3 


6 






8 


<T CELL3> 


5 


6 






9 


<UNARY 0P> 


5 


5 




10 


<ARITH 0P> 


5 


3 






11 


<LOG 0P> 


5 


3 




• 


12 


<K REG ASS> 


3 


4 




13 


<FUNC1> 


3 


4 






14 


<FUNC2> 


5 


4 




• 


15 


<CASE SEQ> 


1 


4 




16 


<SIMPLE ST> 


2 


4 






17 


<REL 0P> 


5 


8 




• 


18 


<NGT> 


5 


3 




19 


<CQNDITION> 


5 


2 






20 


<COMP CUND> 


4 


2 




• 


21 


<COMP AOR> 


2 


2 




22 


<CONO THEN> 


3 


1 






23 


<GOTO ST> 


2 


3 




• 


24 


<GOTO ST*> 


2 


4 




25 


<TRUE PART> 


3 


3 






26 


<WHILE> 


1 


4 




• 


27 


<CONO D0> 


2 


1 




28 


<ASS STEP> 


1 


1 






29 


<LIMIT> 


1 


1 




• 

• 


30 


<D0> 


2 


1 




31 


<STATEMENT-> 


2 


3 






32 


<STATEMENT*> 


2 


2 




• 


33 


<STATEMENT> 


1 


1 




34 


<SI T TYPE> 


7 


9 






35 


<T TYPE> 


6 


8 




• 


36 


<FILL> 


4 


1 




37 


<REP LIST1> 


1 


2 






38 


<REP LIST2> 


3 


2 




• 


39 


<REP LIST3> 


4 


2 




40 


<T DECL1> 


9 


8 






41 


<T 0ECL2> 


6 


8 




• 


42 


<T DECL3> 


1 


8 




43 


<T DECL4> 


3 


8 






44 


<FUNC DC1> 


6 


8 




• 


45 


<FUNC 0C2> 


9 


8 




46 


<FUNC DC3> 


5 


8 






47 


<FUNC DC4> 


3 


8 




• 


48 


<FUNC DC5> 


5 


8 




49 


CFUNC DC6> 


3 


8 






50 


<FUNC DC7> 


3 


8 




• 


51 


<SYN DC1> 


5 


8 , 




52 <SYN 0C2> 


3 


8 



• 
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# 



34 


<PROC HD1> 


9 


9 


55 


<PROC H02> 


5 


9 


56 


<PROC HD3> 


3 


9 


57 


<PRQC HD4> 


1 


9 


58 


<PRQC H05> 


7 


8 






• 



m 
m 



• 



# 



59 


<PR0C H06> 


2 


8 


60 


<0SEG TYPE> 


1 


8 


61 


<0ECL> 


1 


7 


62 


<LABEL 0EF> 


7 


1 


63 


<BL0CKHEAD> 


7 


4 


64 


<BLaCKB0DY> 


1 


4 


65 


<PR0GRAM-> 


2 


1 


66 


<PROGRAM*> 


1 


1 


67 


<PR0GRAM> 


1 


1 


68 


<ID> 


10 


6 


69 


<T NUM6£R> 


9 


5 


70 


<STRING> 


a 


5 


71 


<SHIFT 0P> 


5 


3 


7 2 


» 


11 


1 


73 


+ 


7 


7 


74 


- 


7 


7 


75 


= 


10 


9 


76 


< 


9 


9 


77 


> 


9 


9 


78 


-i 


9 


9 


79 


( 


10 


9 


80 


) 


9 


3 


81 


* 


7 


4 


82 


/ 


7 


4 


S3 


a 
* 


7 


10 


84 


9 


10 


3 


85 


3 


5 


5 


86 


» 


8 


1 


87 


• — 


5 


3 


r X88 


MEG 


7 


6 


89 


DO 


7 


4 


90 


IF 


1 


4 


91 


OF 


4 


8 


92 


OR 


10 


4 


, 93 


ABS 


7 


7 


94 


AND 


10 


4 


i 95 


END 


3 


1 


V-*? 6 


FOR 


1 


4 


~97 


SYN 


7 


10 


98 


XOR 


7 


4 


99 


BASE 


5 


1 


100 


BYTE 


8 


10 


101 


CASE 


5 


4 


102 


CAT A 


6 


8 


103 


ELSE 


7 


2 


104 


GOTO 


6 


4 


105 


LONG 


10 


10 


106 


NULL 


3 


4 


1C7 


REAL 


8 


10 


108 


STEP 


5 


3 


109 


THEN 


7 


4 


110 


ARRAY 


5 


8 


ill 


BEGIN 


11 


4 


112 


CLOSE 


1 


8 


113 


DUMMY 


2 


8 


114 


SHORT 


10 


10 


115 


UNTIL 


5 


2 


116 


WHILE 


10 


4 


1 1 7 


COMMON 


8 


8 


118 


GLOBAL 


8 


8 



• 
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119 


INTEGER 


8 


10 


120 


LOGICAL 


3 


10 


121 


SEGMENT 


8 


8 


122 


EXTERNAL 


8 


8 


123 


FUNCTION 


7 


8 


124 


OVERFLOW 


5 


3 


125 


REGISTER 


6 


7 


12b 


CHARACTER 


8 


10 


127 


PROCEDURE 


6 


9 
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• 



ARRAY 128 SHORT INTEGER F 

( 0,8, 9, 3,9, 8, 3,3, 4(5), 3,3, 5, 1,2,3 (5), 4,2, 3, 2,2, 3, 1,2,1, l,3< 2) ,1, 
7,6,4,1,3,4,9,6,1 ,3,6, S, 5, 3, 5, 3, 3, 5,3, 6, 9, 5, 3, 1,7, 2, 1,1, 7, 7, 1,2, 
1,1, 10, 9, 8, 5,1 1,7,7,10,3(9}, 10, 9, 3(7J , 10 , 5 , 8, 5 , 7, 7_ , 1,4, 10, 7 , 10 , 3, 
1,7,7,5,8,5,6,7,6,10,3,8,5,7,5,11,1,2,10,5,10,6(8) ,7,5,6,8,6); 



ARRAY 128 SHORT INTEGER G 

( , 5 , 6 , 4 , 4 , 5 , 3 ( 6 ) , 5 , 3 , 3 , 5 ( 4 ) , 8 , 3 , 3 < 2 ) , 1 , 3 , 4 , 3 , 4 , 4 ( 1 ) , 3 , 2 , 1 , 9 , 8 , 1 , 
3(21, 14(8) ,4(9) ,3( 8), 7,1,4, 4,3( 1) ,6, 5, 5, 3, 1,7,7, 5(9), 3,4, 4, 10, 3, 
5,1,8,6,4,4,6,4,7,4,1,4,10,4,1,10,4,8,2,4,10,4,10,3,4,8,4,8,8,10, 
2,4, 8, 8, 10, 10, 3(8), 3, 7,10,9); 

ARR 



• 
• 



• 


**3 

57 




67 


• 


f7 

84 


• 


ARRAY 
(2 




17 


• 


2, 
2, 




32 


# 


69 
i 3 



# 




# 
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186, 18,12,255,0, 188,22,21,2(255) ,4,64 ,60, 5 8,56 , 19 2 , 62, 93 , 2 ( 255} , 
0, 196, 22, 23, 2(2 55), 0,200, 68, 10 2,255,3,222,182,2,202,30,46,3(2 55) , 
1,136,208,4 8, 76,2 55, 1,214,210,68,101,255,0,212,32,50,255,0,214, 
68, 100, 3(255), 2, 68, 13 8, 22 0,70,105,255, 0,222, 126 ,15 8, 255, 1,198, 
224, 122,156,25 5,0,2 26,120,150,2 55,1,238,22 8,68,97,2 55,1,2,230,5 8, 
83,1,10,2 30,58,84,1,138,23 0,58,85,2 55,0,232,52,80,255,2,136,204, 
2 34,120,14 7,0,2 34,120,148,2 55,1 ,116,236,118,142,2,136,204,236, 
120,145,2 55,0,238,6 8,98,2 55,0,2 40,68,99,25 5,1,116,242,118,144,0, 
242,120,149,25 5, 1,116,244,118,143,2,136,204,244,120,146,255,0, 
246,88,121,255,0,248,38,67,2(2 55) ,0,252,68,103 ,255,1,136,254,108, 
1 36 , 2 5 5 ) ; 



i 

m 



m 



# 



• 
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JOB STATISTICS 

04 DEC 69 EHSPL360 GP=CG SEQ N0=273 CLASS=E PRTY=8 

CLOCK TIMES (HH:MM:SS) 

ON ROR 14U5U4 BEGIN EXEC 14:17:14 ON PRT 14:17:38 

OFF PDR 14:16:44 END EXEC 14:17:34 OFF PRT 14:2 0:54 

RDR TIME 0:01:29 EXEC TIME 0:00:19 PRT TIME 0:03:16 

*******♦**♦♦***♦*****♦!}:***********#* ******************************************** 

RESOURCES USED UNITS CHARGE FORMULA 

CARDS READ l,2C0 R » MAX<<N*0.075 - 300.01, 0) 

CARDS PUNCHED 

LINES PRINTED 1,383 L = N * 3.75E-03 

7- TRACK ACCESSES N7 

ERRORS N.A. 

MOUNTS N-A. M7 

9-TRACK ACCESSES N9 

ERRORS N.A. 

N.A. M9 

46 NO 

N.A. MD, M = (M7 + M9J*60 + MD*600 

NM> F = <N7+N9+ND+NM) * 0.075 

300K CF = N / 150 
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0:00:02.67 TSEC 
54 
747 (NOT INCL I/O) 
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COMMENT 



STANFORD ALGOL W COMPILER 

PHASE A - SCAN AND PARSE PASSES 

JULY 1969 VERSION 



GLOBAL PROCEDURE AWXCMPA1 < R 14 ) ; 
BEGIN 

FUNCTION BA LRU, #05 00); 

STM(R14,R12,813tl2))J R4 := Rl; R5 

R : = 4096; R 1 : = R ; R 3 ; = B 4 ( 2 ) 



:•= R13; 
BALR<R2 f R3)S 



COMMENT GETMAIN; 



R 1 3 

BEGIN 
DUMMY BA 
LOGICAL 

ARRAY 1 
ARRAY 
INTEGE 

BYTE 

INTEGE 

INTEGE 

INTEGE 

INTEGE 

INTEGE 

INTEGE 

ARRAY 5 

SHORT I 

LONG RE 

ARRAY 1 



RO; COMMENT ESTABLISH 4K INITIAL DATA SEGMENT, BASE R.13; 



,Sfc R13; COMMENT SHARED DATA SE 

SYSINF, OLDSAVE, NEWSAVE; ARRAY 

16 INTEGER XFERVELTOR; COMMENT S 

2 INTEGER COMMLIM SYN XFERVECTORI 
: R APUTLINE SYN XFER VECTOR! 8) ; 

CARRCONT SYN APUTLINE(O); 
!R AGETCARD SYN XFER VECTOR { 12 ) ; 

R APUTCARD SYN XFER VECTOR! 16} ; 

R AGETMAIN SYN XFERVECTORi 20 ) ; 

R AF REE MAIN SYN XFE RVECTOR< 24) ; 

R AGETTIME SYN XFERVECTORI 28) ; 

R ARUNIO SYN X FERV ECTOR (60 ) ; 
INTEGER BASESAVE; COMMENT 
INTEGER LINENO, PAGE NO; 
JAL PKDEC; COMMENT USE 

.32 BYTE HEADING; COMMENT PAG 



GMENT5 
15 LOGICAL SAVEAREA; 

UPV ENTRY ADDRESSES; 
0); 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 



WRITE ENTRY; 
PRINT CONTROL CHAR J 
READ ENTRY; 
PUNCH ENTRY; 
GETMAIM ENTRY; 
FREEMAIN ENTRY; 
GETTIME ENTRY; 
ADDRESS OF SYSTEM ID; 



DATA BASES FOR PASS 2 



D WITH CVD; 
E HEADER; 



PROCEDURE DUMIMR14); NULL; 



COMMENT REPLACE FOR DEBUGGING J 



PROCEDURE PRINT (Rl); 
COMMENT DETERMINES REQUIRED CONTROL CHARACTER, PRINTS LINE AT 4R0JJ 
BEGIN ARRAY 4 LOGICAL SAVE03} STM< RO ,R3, SAVE03) ; 

Rl := Rl-RI; IC<R1,CARRCQNT); R2 := LINENO + 1; R3 := APUTLINE; 

IF Rl = "0" THEN 

BEGIN IF R2 >= 60 THEN Rl := "1" ELSE R2 := R2 + 1; 

END! 

IF Rl = "1 M THEM 

BEGIN RO := PAGENO + 1; PAGENO := RO; CVD(RO f PKDEC) ; 

MVC(3tHEADING(117) ,#40202120) 5 ED (3 , HEADING( 1 17) , PKDEC (6 ) ) I 
RO := SHEADING; BALMR2 f R3»5 RO := SAVEO3I0); 
R2 := 3; Rl := "C M ; 
END; 

LINENO := R2; 

IF R2 = 60 THEN MVI <"1", CARRCONT ) ELSE MVI(« " f CARRCONT) ; 
BALR<R2,R3); COMMENT LINK TO WRITE; LM< R0,R3t SAVE03M 

END; 

SEGMENT PROCEDURE PASSU RIO); 
BEGIN COMMENT PASS 1 — SCANNER; 

DUMMY BASE R13; COMMENT WORK AREA SHARED WITH PASS 2; 
ARRAY 18 LOGICAL SAVEINFO; COMMENT REPEAT PRECEDING DECLARATIONS; 

ARRAY 16 LOGICAL XFERVECTOR; 

INTEGER NTBASE SYN XFERVECTORIO) 
ARRAY 5 LOGICAL BASESAVE; 



COMMENT COMMON BASE ADDRESS; 



1 ' ffiuMwff -■'MlrtMl 
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SHORT INTEGER LINENO, PAGE NO; 

LONG REAL PKDEC; 

ARRAY 132 BYTE HEADING; COMMENT PAGE HEADER; 

ARRAY 4 LOGICAL PRINTEMP; 
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COMMENT 
INTEGER 



# 3JC $ 

SAVE14, 



LOCAL VARIABLE 
RET A DOR; 



DECLARATIONS BEGIN HERE * * * ; 



COMMENT REGISTER ALLOCATION 
R0-R4 GENRAL PURPOSE 
R5 CONSTANT 1 
R6 INDEX TO PASS TWO 
R7 PROCEDURE LINKAGE 
R8 NEXT CHARACTER 
R9 INDEX TO INPUT BUFFER 
RA-RB PROCEDURE LINKAGE 
RC-RD DATA BASE REGISTERS 
RF PROGRAM BASE REGISTER 



OUTPUT 

AND CURRENT 



AND NEXT BUF BASE 



PRBASEf 
SAVER10, savhns 
USED BY FETCHCARD3 



LOGICAL ALGOLDATAORG SYN B13*72); COMMENT 
ARRAY 9 INTEGER RESADOR, CODEAODR; 
INTEGER RFRCLIST8ASE, ID0IR8ASE, IDLISTBASE, 
INTEGER SAVERB, SAVERB1, SAVER4, 
ARRAY 3 LOGICAL SAVE13J COMMENT 
ARRAY 4 LOGICAL FLAGS; 
BYTE LISTFLAG SYN FLAGS(O), 
NOP AS ST WO S YN F L AG S < 2 I , 
ENODQT SYN FLAGS* 4), 
NEWCARD SYN FLAGSI6), 
REFERFLAG SYN FLAGS* 7), 
EXPOS IGN SYN FLAGSC9), 
SYN FLAGS C 111 , 
FLAGS* 133 ; 



ALGOLRUN DATA START; 



PROGLIMIT; 



TRACEFLAG SYN FLAGS* 1), 
EOF SYN FLAGS* 3), 
EFLAG SYN FLAGS (5) , 

SIGN SYN FLAGS *8), 
TYPEFLAG SYN FLAGS (10), 

FARRAYFLAG SYN FLAGS* 12), 



ERROR LOG ONLY; 



IMAGE LAG 
LAST SYN 
LOGICAL PARD; 
BYTE PROCFLAG SYN PARD; 

ARRAYFLAG SYN PARD CD; 
RECOROFLAG SYN PARD ( 2 ) ; 
DECLARFLAG SYN PARD* 3); 
132 BYTE INBUF; 
ARRAY 132 BYTE OUTPUT SYN INBUF; COMMENT USED FOR 
BYTE LINEHOLD, BEGINSET; COMMENT LISTING CONTROL; 
SHORT INTEGER NESTLEVEL; COMMENT BEGIN/END NESTING LEVEL; 
SYMBOLINDEX, IODIRINDEX, IDLISTINDEX; 
BLLIMIT, IDDIRLIMIT, IDLISTLIMIT; 

STACKINDEX; COMMENT POINTER TO TOP OF STACK TABLE; 
SCRATCHINDEX; COMMENT POINTER TO TOP OF SCRATCH TABLE; 
COMMENT FIELD CONTAINING TYPE INFO OF ID BEING 
PROCESSED; 
BLOCK NO; 

DIMCMTJ INTEGER FARRAYPNT; 
ERRORCOUNT, ERRORLIMIT; 



BYTE 

BYTE 

BYTE 

ARRAY 



SHORT 
SHORT 
SHORT 

SHORT 



INTEGER 
INTEGER 
INTEGER 
INTEGER 



LOGICAL TYPE; 



SNORT 
SHORT 
SHORT 
ARRAY 



INTEGER 

INTEGER 

INTEGER 
50 INTEGER ERRORS; 
INTEGER OUTCHAR,SAVEADD; 
SHORT INTEGER CARDCOUNT; 
I NTEGER CURBUFBA SE , ME XTBUF BAS E ; 
SHORT INTEGER RECORONO? 
ARRAY 2 LONG REAL FIRSTNO; 
INTEGER FIR5TN0I SYN FIRSTNO; 



REAL FIRSTNOR SYN FIRSTNO; 
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LONG REAL FIRSTNOLR SYN FIRSTNO; 
INTEGER NUMPOSf IMAGPOS; 
LONG REAL FC0N1, FC0N2; 

INTEGER FC0N1L0W SYN FC0N1 (45; 
LONG REAL REALPART, SAVERL ; 

INTEGER SAVE SYN SAVERL; 

INTEGER REALPARTR SYN REALPART; 

INTEGER REALPARTR1 SYN REALPART! 4); 
SHORT INTEGER SIMTYPEINFO; 
SHORT INTEGER RL I ST POINT; 
INTEGER CHAINfHCODE; 
ARRAY 160 SHORT INTEGER HASHID; 
ARRAY 66 LONG REAL SYMBUFFERS; 
ARRAY 66 LONG REAL SYMB0L8UFFERS SYN 87 1 

BYTE CURBUF SYN SYHBOLBUFFERS (4 > ; 

SHORT INTEGER CURBUF INT SYN CURBUF; 

SHORT INTEGER CURBUFTYPE SYN SYMBOL BUFFERS ; 

SHORT INTEGER CURBUFCOUNT SYN SYM80LBUFFERS! 2 > ; 

INTEGER CURBUF I SYN CURBUF; 

REAL CURBUFR SYN CURBUF; 

LONG REAL CURBUFLR SYN CURBUF{4); 

BYTE NEXTBUF SYN SYMBOL BU FFERSC4 ) I 

SHORT INTEGER NEXTBUFINT SYN NEXTBUF; 

SHORT INTEGER NEXTBUFTYPE SYN SYHBOLBUFFERS; 

SHORT INTEGER NEXT8UFC0UNT SYN SYHBOLBUFFERS? 2 ) 

INTEGER NEXTBUF I SYN NEXTBUF; 

REAL NEXTBUFR SYN NEXTBUF; 

LONG REAL NEXTBUFLR SYN NEXTBUF! 4); 
ARRAY 80 INTEGER STACK; 

SHORT INTEGER STACKLNG SYN STACK; COMMENT 

STACKING SYN STACK; COMMENT 

SYN #0000; 

SYN #0001 ; 

SYN #0002; 

SYN #0003; 



SHORT INTEGER 
BYTE PROGRAMME 
PR0GRAMM3 
PR0GRAMM2 
PR0GRAMM1 



LENGTH FIELD OF STACK; 
INDEX FILED TO SCRATCH TAB; 



BYTE 
BYTE 
BYTE 
BYTE 



PROGRAM SYN #0004; 



COMPILER COMMON FORMAT; 



DUMMY BASE Rll; COMMENT 
INTEGER COMMTIME; 

SHORT INTEGER COMMLINE, COMMPAGE; 
ARRAY 3 LOGICAL COHM FLAGS; 

BYTE NOGO SYN COMM FLAGS (0 ) ; 

BYTE TRACE SYN COMMFLAGS! 1 ) I 

BYTE CHECKFLAG SYN COMMFL AGS ( 2 } ; 

BYTE CARDFLAG SYN COMMFLAGSO ) I . 

ARRAY 2 LOGICAL TRACE3ITS SYN COMMFLAGS (41 ; 
SHORT INTEGER BLQCKL ISTSIZEt NAMETABL ES IZE ; 
INTEGER REFRECBASE, 100BASE, IDLBASE, INPOINT; 
INTEGER TREELINK, TREEBASE, TREETOP; 
ARRAY 512 INTEGER BLOCKLIST; 

ARRAY 512 SHORT INTEGER BLOCKLISTLNG 

ARRAY 512 SHORT INTEGER B LQCKLI STI NO 
COMMENT #** SIZE OF OTHER TABLES IS 
ARRAY 3 LOGICAL NAMETABLE; 
ARRAY 6 SHORT INTEGER SCRATCHNAMETABLE SYN NAMETABLE? 2) 

SHORT INTEGER SCRNAMETAB SYN SCRATCHNAMET ABLE ( 0) ; 

SHORT INTEGER SIMTYPEIN SYN SCRATCHNAMETABLE {41; 

INTEGER TYPE INFO SYN SCRATCHNAMETABLE! 6) ; 



SYN BLOCKLIST(O) 5 
SYN BLOCKLIST! 2); 
DYNAMIC ■*** ; 



H 
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11 


0130 


08 


0004 


11 


14 2 


4h r ,i 


O0C4 


11 


0142 


08 


0004 


11 


0148 
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17 5 

17 6 
0177 

0178 
0179 
0180 
0131 

018 2 
018 3 
0134 

018 5 
0186 
0137 
0183 
0139 
0190 
0191 
0192 

019 3 
019 4 
019 5 
019 6 
0197 
019 8 

019 9 

020 
0201 
0202 
0203 
020 4 

020 5 
02 6 
20 7 
0208 
0209 
0210 
0211 
0212 
0213 
0214 

021 5 
0216 
0217 
0218 
0219 
0220 
0221 
222 
223 
0224 

022 5 
022 6 
0227 

022 8 
2 29 

023 
231 
02 3 2 



SHORT INTEGER I LINOS C 
ARRAY 1 SHORT INTEGER 
ARRAY 2 SHORT INTEGER 
SHORT INTEGER IDOIRL 
SHORT INTEGER IODIRIND SYN 
ARRAY 1 BYTE IOLIST SYN B12 
CLOSE BASE; 



SYN SCRATCHNAMETAdLEC 10) ; 
REFRCDLIST SYN 81; 
IUOIR SYN B12; 
•IG SYN IDDIMO) J 
IDDIM2); 



FUNCTION NI (4, #9400) , 01(4, #9600), LTR ( 1 , # 1200) , XC(5,#D70Q) 

ARRAY 2 LOGICAL CHAININFO; COMMENT STORAGE CONTROL INFO; 

ARRAY 3072 SHORT INTEGER CHAINID SYN 811; 



SEGMENT BASE 
COMMENT ** 
ARR AY 
ARRAY 16 

= <"; ( ): = 
ARRAY 12 

=("D0GOI 
ARRAY 24 

=("ABSAN 
ARRAY 40 

=<"BITSC 
ARRAY 35 

= ("ARRAY 
ARRAY 18 

= ("RECQR 
ARRAY 28 

={ "BOOLE 
ARRAY 
ARRAY 18 

= (»»PROCF 
ARR AY 
ARRAY 16 

•=(#7009 

,#8301 , 
ARRAY 6 

= ( #9 301 
ARRAY 8 

= ( #8 DO 1 
ARRAY 10 

=<#080F 

,#7901 , 
ARR AY 7 

=<#6£13 
ARRAY 3 

=(#7514 
ARRAY 4 

=( «06oe 

ARRAY 
ARRAY 2 

=(#7115 
ARRAY 9 

=<_1 f 5 
COMMENT SP 
SHORT INTEG 

SIMPLETY 



R14; 
* THIS SEGMENT 
BYTE RESERVED; 
BYTE RESERVED! 

+-*/,<> 1 #""-.»•) ; 

BYTE RESERVED? 
FISDFOR"! ; 
BYTE RESERVED3 
DDIVENDFORREMSH 
BYTE RESERVED4 
ASEELSEGOTOLONG 
BYTE RESERVE05 
BEGINFALSESHORT 
BYTE RESERVED6 
ORE SULTST RING") 
BYTE RES ERV 1:07 
ANCGMPLEXINTEGE 
BYTE RESERVED8; 
BYTE RES ERV EDO 
OUREREFERENCE") 
SHORT INTEGER Z 
SHORT INTEGER C 
,#6A06 ,#6 707 , 
#6908 ,#8F01 ,# 
SHORT INTEGER 
,#FF01 ,#7801 , 
SHORT INTEGER C 
,#8601 ,#8401 , 
SHORT INTEGER C 
,#7801 , #7A01 , 
#8A01) ; 

SHORT INTEGER C 
,#9700 ,#8 301 , 
SHORT INTEGER 
,#7312 ,#0716); 
SHORT INTEGER C 
,#040E ,#010E , 
SHORT INTEGER C 
SHORT INTEGER C 
,#6810) ; 
SHORT INTEGER 

,7,9,6, 
ECIAL CODES; 
ER NEWCARDCODE= 
PE=#00,NOMBERCO 



IS READ-ONLY DATA *#* ; 



LSHR") ; 

NULLREALSTEPTHENTRUE") J 
UNTILVALUEWHILE") J 
» 

RLOGICAL") ; 



ODE 5 

0DE1 

#9904 ,#9001 ,#7E01 ,#7F01 ,#7405 

9101 ,#7601 ,#8E02 ,#8103 ,#8701); 

ODE 2 

#7001 f #7C01 ,#8001); 

ODE 3 

#6 FDD ,#9 BO A ,#8 501 ,#8 801 ,#8901); 

0DE4 

#9401 »#8CQ8 ,#8201 ,#020E ,#9C01 

ODE 5 

#9F01 ,#9001 ,#7211 ,#9E0i); 

0DE6 



00E7 
#06 OE) ; 
00E8; 
0DE9 



RESNO 



1 



COMMENT NO. OF RES. MRDS - lj 

l); 



#FE,SPECC0MMA=#66,SPECC0L0M=#6D, 
0E=#77,ASSIGNC0DE=#9A,EXP0NFNT=#8 8, 
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08 


0004 


11 


0150 


08 


0004 


il 


015 6 


08 


00 04 


11 


015E 


08 


OO 04 


11 


162 


08 


00 04 


11 


0164 


08 


0004 


11 


0166 


08 


0004 


11 


0166 


08 


00 4 


11 


1 6C 


08 


00 04 


11 


0172 


08 


0004. 


11 


0178 


G8 


00 04 


11 


017E 


08 


0004 


11 


0180 


08 


0004 


11 


02E5 


8 


0004 


11 


02E5 


08 


0004 


11 


02E5 


C8 


0004 


11 


2E5 


08 


000 4 


11 


2E5 


08 


0OC4 


11 


02 E5 


08 


0004 


11 


02 E 5 


08 


0004 


11 


02 E5 


8 


0004 


11 


02 E5 


C8 


0004 


11 


02E5 


08 


0004 


11 


02E5 


08 


00 04 


11 


02E8 


08 


€004 


11 


OIF 4 


08 


0004 


11 


3F4 


08 


0004 


11 


03F4 


08 


0004 


11 


03F4 


08 


0004 


11 


3F4 


G8 


0004 


11 


03F4 


08 


000 4 


11 


03F4 


08 


0004 


11 


03F4 


08 


00 04 


11 


03F4 


08 


0004 


11 


03 F 4 


08 


0004 


11 


03F6 


08 


CCC4 


11 


071C 


08 


0004 


11 


07 1C 


G8 


00 C 4 


11 


71 C 


08 


000 4 


11 


one 


08 


0004 


11 


071C 


08 


0004 


11 


07 1C 


08 


00 04 


11 


07 1C 


08 


0004 


11 


07 1C 


08 


0004 


11 


071 C 


08 


000 4 


11 


07 1C 


08 


0004 


11 


071C 


08 


0004 


11 


071C 


08 


000 4 


11 


071C 


08 


00 C4 


11 


071 C 


08 


0004 


11 


71C 


08 


0004 


11 


07 1C 


08 


0004 


11 


710 


08 


0004 


11 


71C 


08 


0004 


11 


071C 


08 


OC04 


11 


071C 


08 


00C4 


11 


071C 


08 


0004 


11 


07 1C 


08 


C0C4 


11 


•3 710 



0233 
023 4 
023 4 
023 6 
237 
023 8 

023 9 
0240 
0241 
24 2 
0243 
0244 
245 

024 6 
0247 
024 3 
0249 
0250 
0251 
2 52 
0253 
0254 
02 5 5 
02 56 
25 7 
0258 
2 59 
0260 
261 
0262 
0263 
26 4 
0265 
0266 
0267 
268 
0269 
270 
0271 
0272 
0273 
0274 
027 5 

027 6 
02 7 7 
0278 
279 
0280 
0231 

028 2 
9283 
0284 
^285 
0286 
02 87 
288 
0289 
0290 



I OCODL=# 65, ENDOF PROGRAM 

PLUSC0DE=#7E,MINUSC0DE= 

G0CODE=#FF,G0TOC0DE=#94 

SHORT INTEGER STRNGLENGTH= 



=#92,FILETYPE=#6B, 

#7F , LPA RENCODE=# 6 A , COMMACODE = #69 , 



1 «5 • 



ARRAY 2 
COMMENT 
ARP AY 3 



SHORT 
ARRAY 



BYTE TO =("T3") ; 

INSTRUCTIONS TO B 

3 SHORT INTEGER MO 

MOV 
MOV 
COM 
INTEGER 1 1 OL I ST INDEX 
357 BYTE IDLISTFIL 
( "MAIM", "WRXTEON", "REA 
"BIT STRING", "NUMBER", 
"LONGREALPART", "LONGIM 
"LONGLNLOGERR", "LONGLO 
"LONGCOMPLEXSQRT", "LON 
"I NT BASE. 16", "TIME", "I 
"PI", "MAXREAL", "INTOV 
"XCPNOTED" , "XCPL I MI T" , 
"ROUNDTOHEAL" , "EXPONE* 



EXECUTE INSTRUCTION; 

,#3000, #4000), 
#100 0, #2000) , 
#200 0, #3000), 



E USED WITH 

VE34=( #02.00 

E 12= (#0200, 

E23=(#D200, 

P23= ( #0500, #2000, #3000) ; 

=357S; 

L = 

DON", "READ 



»0D0« 



'•DECODE 13 , " 

AG PART", "L 

G", "LONGS I 

GB.ASE10", " 

NTFIELDSIZE 

FL«, "UNFL" 

"XC PACT I ON 
» 



CARD", "IOCONTROL", 
TRUNCATE", "ROUND", "ENTIER", 
ONGSQRTERR", "LOMGEXPERR", 
NCOSERR", "LONGCOS", "LONGARCTAN", 
L0NGBASE16", "INTBASE10", 
", "MAXINTEGER", "LONGEPSILGN", 
, "INTDIVZERO", "EXCEPTION", 
, "XCPMARK", "XCPMSG", 



FT 



) 



SHORT INTEGER IIODIRINOEX= 
ARRAY 134 SHORT INTEGER 
( 3,0, 4,4, 6,4, 3,11, 5, 
7, 58, 4,66 , 5,71 , 



268 S; 

IDOIRFILL = 
11, 7,17, 8 



3,54, 

3,105, 
5,1.2 2, 
9,186, 
6,263, 

7,126, 
7,349 



2,116, 
6 ,134, 
9,196, 

10,250 
8,145, 



1,126, 
6,141, 
8,206, 
■ 6,2 70, 
8,291, 



6, 

8, 

9 

7, 



7,81, 
138, 2,145, 
154 

2 



25, 2,34, 8,37, 
7,93, 11,77, 11,89, 
2,158, 5,165, 
10,175, 14,171, 



5,46, 5,52, 
3,93, 7,89, 



7,101, 6,112, 
5,190, 5,200, 
1,261, 



) 



154, 9,161, 10,175, 14,171, 5,190, 5,200 
215, 3,224, 11,223, 9,240, 6,254, 1,261, 
,281, 3,273, 3,277, 6,284, 6,105, 5,116, 
300, 7,308, 8,316, 6,325, 5,332, 10,338, 



SHORT 
ARRAY 



INTEGER I SYMBOL INDEX 
201 INTEGER NAMETF 



{ #00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#0000000 0, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000.000, 
#0000000 0, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 



#00000000, 
#00300100, 
#00000100, 
#00000200, 
#00000200, 
#00000200, 
#00000100, 
#00000001, 
#00000001, 
#00000008, 
#00000007, 
#00000001 , 
#00000002, 
#00000002, 
#00000002, 
#00000002, 
#00000003, 
#00000004, 
#00000004, 
#00000005, 
#00000005, 
#00000002, 
#00000003, 



=804 S; 

ILL = 

#03000000, 
#09000001, 
#09000002, 
#09000003, 
#09000004, 
#09000005, 
#09000006, 
#0 7060007, 
#07080008, 
#07010009, 
#0701000A, 
#07070008, 
#07010000, 
#07010000, 
#0701000E, 
#07010042, 
#07020041, 
#07 02 000 F, 
#07020010, 
#07030011, 
#07030012, 
#07040013, 
#07050014, 
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C8 0004 


11 


OTIC 


08 00 04 


11 


OTIC 


£ C8 00 04 


11 


OTIC 


3 00 04 


11 


OTIC 


08 0004 


1.1 


OTIC 


£ C3 0CC4 


11 


OTIC 


08 00 4 


11 


OTIC 


08 0004 


11 


OTIC 


£ 08 00 C 4 


11 


one 


08 0004 


11 


OTIC 


08 0004 


11 


OTIC 


£ C8 O0C4 


1.1 


OTIC 


08 0004 


11 


OTIC 


08 0004 


11 


OTIC 


£ 08 00 04 


11 


OTIC 


08 00 04 


11 


OTIC 


C8 0004 


11 


OTIC 


08 00C4 


11 


OTIC 


08 0004 


11 


OTIC 


08 0004 


11 


OTIC 


08 00 04 


11 


OTIC 


C8 0004 


11 


OTIC 


C8 00C4 


11 


OTIC 


9 oe ot:o4 


11 


OTIC 


08 0004 


11 


OTIC 


C8 0004 


11 


OTIC 


£ 08 0004 


11 


OTIC 


8 0004 


11 


OTIC 


08 00C4 


11 


OTIC 


08 00 04 


11 


OTIC 


08 00G4 


11 


OTIC 


08 0004 


11 


OTIC 


08 0004 


11 


OTIC 


08 00 C 4 


11 


OTIC 


08 C004 


11 


OTIC 


08 0004 


11 


OTIC 


00 00C4 


11 


OTIC 


08 000 4 


11 


OTIC 


£ G3 O0C4 


11 


OTIC 


08 000 4 


11 


OTIC 


08 0004 


11 


OTIC 


08 00 C 4 


11 


OTIC 


08 000 4 


11 


OTIC 


8 0004 


11 


OTIC 


£ C8 0004 


11 


OTIC 


08 0004 


11 


OTIC 


C8 00 04 


1.1 


081C 


08 00G4 


11 


081C 


08 0004 


11 


081C 


8 00 04 


11 


03 1C 


£ 08 0004 


11 


0822 


08 0004 


11 


0922 


08 00C4 


11 


0922 


£ 08 0004 


11 


0928 


08 0004 


11 


0A23 


08 0004 


11 


0A2E 


08 0004 


11 


0A34 


08 0004 


11 


0A68 
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0291 
29 2 
0293 
29 4 
0295 
0296 
029 7 

029 8 
0299 
0300 
0301 
0302 
303 
0304 

030 5 
30 6 

030 T 
0308 
0309 
0.310 
031.1 
0312 
3 1 3 
0314 
0315 
0316 
03 IT 

03 1 8 
0319 

032 
0321 
32 2 
32.3 
0324 
032 5 
032 6 
032 7 
0328 

032 9 
0330 

033 1 
0332 
0333 
334 
033 5 
0336 
0337 
033 8 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0.34 8 



#00000000 , #00000002, 
#0000000 , # 2 , 

# o o o o o o o o , # o o ; > 00002, 

#00000000, #00000002, 

#00000000, #00000002, 

#00000000 , #00000002, 
#00000000, #00000002, 
#00000000, #00000003, 
#00000000, #00000003, 
#00000000, #00000003, 
#00000000, #00000003 , 
#000000 , #00000003 » 
#0000000 0, #00000003 , 
#00000000, #00000003, 
#00000000, #00000004, 
#00000000, #00000005, 
#00000000, #00060001, 
#00000000, #00060001, 
#00000000, #00060002 , 
#00000000, #00060002 , 
#00000000, #00130003, 
#00000000, #00130003 , 
#00000000, #00000001, 
a A LG OL DA TAQRG ( # 1 DO ) , 
3 ALGOL DAT AORG < #1CC I , 
3 ALGOL DAT AORG ( #1 C8 ) , 
3ALG0LDATA0R& ( #1 BO } , 
3ALG0LDATA0RG* #1B8) , 
3ALGOLDATAORG(#1CO) , 
3ALG0LDATA0RG(#1D4) , 
a A LG GLOAT AORG ( # 108), 
3 ALGOLDA TAORG (#1 DC) , 
3ALGGLDATA0RG(#1E0) , 
3 ALGOLDA T AORG < # 1 E8 ) , 
3ALG0L DA TAORG i #1 EC ) 
aALGOLDATAORGt #1F0) 
3ALG0LDATA0RG(#1F4} 
3ALG0LDATA0RG( #1F8) 



#00000000, 
#00000001, 
#00000004, 
#00000008, 
#000 0000 2, 
#0000000 C, 

J; 

ARRAY 2 56 CHARACTER TRTBLANKS 



#00400 501, 

#00000001, 
#00000001, 
#00000001, 
#00000001 , 
#003F0001, 



#07020015, 
#07020016, 
#0 7020 017, 
#07020018, 
#0 7020019, 
#0702001A, 
#07020016, 
#0703001C, 
#07030010, 
#070300 IE, 
#0703001F, 
#07030020, 
#07030021, 
#07030022, 
#07040023, 
#07050024, 
#07070029, 
#0 707 002 A, 
#07070025, 
#07070026, 
, #07070027, 
, #0707002 8, 
, #07010028, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00000000, 
#00010001, 
#00010001, 
#00010001, 
#00010001, 
#0001000 1, 
#00010001, 
#00010001, 
#00010001, 
#00010001, 
#04000036, 
#05060030, 
#05010030, 
#0 5Q1Q03£» 
#05 060O3F, 
#05070040 



#00010020, 
#00010020, 

#0002002E t 

#0003 002 F, 
#00030030, 
#00030031, 
#00090032, 
#00090033, 
#00090034, 
#00090035, 
#00090036, 
#0009003 7, 
#0009003 8, 
#00090039, 
#0009003A, 



= { 64 ( #03 ) , #00 , 1 ( #03 ) , #04, 49 < #03 ) , 
#02,67(#03) ,9(#Q1) ,7(#03) , 
9(#O1),8(#O3),8{#O1),6{#03),1O{#Q2) , 
6 (#03) ); 
ARRAY 3 SHORT INTEGER SCANBLANKS =< #0000 , #8000 ,3TRTBLANKS ) ? 
ARRAY 2 56 CHARACTER TRTIDS = ( 193 ( #0 1 ) , 9 { #00 ) , 7 ( #0 1 ) , 9( #00 ) , 8 ( #01 ) , 

8( #00) , 6 { #01 ) , 1 I #00 ) ,6 ( #03 ) } ; 
ARRAY 3 SHORT INTEGER IDCHARS =< #0000 , #8000, 3TRT10S ) % 
ARRAY 256 CHARACTER TRTCOMHENT =( 94( #00 ) ,#0 1, 161 (#00) ) J 
ARRAY 3 SHORT INTEGER COMMNTCHARS =( #0000 ,#8000, 3TRTC0HMENT ) ; 
ARRAY 3 SHORT INTEGER MVCCHARS =( #0200, #4000, #8000) ; 
ARRAY 52 CHARACTER TRRESERVED1 =( 20 , 2 , 10 , 24, 12(255 ) , 14,4, 0, 30, 12, 

16,9(25 5) ,18, 2 (255), 22,1 U 255), 6, 
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ca ooc4 

C8 G0C4 
(38 000 4 



11 0A68 
11 0A63 
11 0A6A 



349 

035 



SHORT INTEGER STACKL IMIT=3 12 



03 51 CLOSE BASE; 



26,2(255) ,8,28) ; 
COMMENT MAXIMUM STACK 



INDEX; 



SEGMENT 11 NAME = SEG#11 



LENGTH 



0A6A BASE REG 



14 



08 


C0C4 


09 


0840 


08 


0004 


09 


0840 


08 


0C4 


09 


0840 


08 


00 3 


09 


840 


08 


0010 


09 


0840 


08 


0012 


09 


0840 


08 


0012 


09 


0840 


08 


0012 


09 


840 


08 


0012 


9 


0840 


08 


001 A 


09 


0840 


C8 


0024 


09 


0840 


08 


0026 


09 


0840 


08 


0026 


09 


0840 


C8 


002 6 


09 


084 


08 


0026 


09 


0840 


08 


002 E 


09 


0840 


C8 


00 3 8 


09 


0840 


08 


003A 


09 


0840 


08 


00 3 A 


09 


0840 


G8 


G03A 


09 


0840 


08 


003 A 


09 


0840 


08 


0046 


9 


0840 


08 


004E 


09 


0840 


08 


00 52 


09 


0840 


08 


006 


09 


0840 


C8 


0C6C 


09 


0340 


08 


0060 


09 


0840 


C3 


0062 


09 


0840 


08 


006 2 


09 


0340 


08 


0062 


09 


0840 


08 


CC62 


09 


0840 


CO 


0C72 


09 


0840 


08 


0C7A 


09 


0840 


08 


0084 


09 


0840 


08 


0C86 


09 


0840 


08 


0036 


09 


0840 


8 


CO 86 


09 


0840 


08 


00 86 


09 


0340 


08 


008E 


09 


0840 


08 


C09A 


09 


0840 


08 


00A6 


09 


840 


08 


OCAE 


09 


0840 


8 


0B6 


09 


0840 


08 


ooco 


09 


0840 


08 


000 


09 


0840 


8 


0004 


09 


0840 


08 


C0C6 


09 


08 40 


08 


00C6 


09 


0840 


€8 


00C6 


09 


0840 


08 


oocc 


09 


0840 


08 


oocc 


09 


0840 


C8 


oocc 


09 


840 



3 52 

0353 
0354 
035 5 
0356 
0357 
3 5 8 
359 
0360 
0381 
0362 
363 
3 64 
0365 
0366 
0367 
36 8 
0369 
03 70 
0371 
3 7 2 
03 73 
0374 
0375 
3 1 6 
03 77 
3 7 8 
0379 

038 
381 
0382 
38 3 
384 
38 5 
03 8 6 
0387 
0338 
0389 

039 
039 1 
0392 
039 3 
0394 
0395 
0396 
03 9 7 
039 8 
0399 
0400 
0401 
0402 
403 



P P. OC E DUR E UTC 00 E { R 1 II ; 

8EGIN COMMENT R.1 HAS CODE TO BE OUTPUT AS 1 BYTE; 
S TC<R1, PROGRAM { R6) ); P. 6 := R6 + 1; 

END; 

PROCEDURE 0UTC0DE2 < Rl 1 ) J 

BEGIN COMMENT R2 HAS CODE TO BE OUTPUT AS 2 BYTES; 
OUTCHAR := R2j Rl : = OPROGRAH { R6) ; 
MVC<l f 8itOUTCHAR(2)) ; R6 := R6 + 2; 

END; 

PROCEDURE 0UTC0DE4( Rl 1 ) ; 

BEGIN COMMENT R2 HAS CODE TO BE OUTPUT AS 4 BYTES; 
OUTCHAR : = R2 ; Rl : = aPRQGRAMC R6) ; 

MVC ! 3, 81, OUTCHAR ) ; R6 := R6 + 4; 
END; 

PROCEDURE SETTYPE(RIO) ; 

BEGIN COMMENT Rl HAS PARTIAL TYPE CODE; 

CLI(#01, PROCFLAG); IF = THEN Rl := Rl + #1000 ELSE 
BEGIN CLI(#01,REC0RDFLAG) ; 
IF = THEN 

BEGIN R2 := RECORDNO SHLL 16; Rl := Rl OR R2 + #5003 
END; 
END; 

END; 

PROC EDURE HASH {RID; 

BEGIN COMMENT R4 HAS LENGTH, Rl HAS FIRST CHARACTER IN LOW BYTE; 

Rl := Rl AND #F SHLL 4; IF R4 >= 15 THEN 

BEGIN SET! LAST); Rl := Rl OR 15; END ELSE 

BEGIN RESETCLAST); Rl := Rl OR R4; END; 
END; 

PR OC EDU RE E RROR { R 1 1 ) ; 

BEGIN COMMENT R4 HAS ERROR NUMBER; 
SAVERB := Rll; Ell := NTBASE; 
SETJNOGO); Rl := ERRORCOUNT + 5; 

IF Rl - ERRORLIMIT THEN R4 := 11; 
IF Rl <= ERRORLIMIT THEN 

BEGIN STC(R4,ERR0RSIR1)}; ERRORCOUNT := Rl; 
• R4 :■= SERRORSm + l); MVC ( 3, B4, INBUF) j 
END; 
Rll := SAVERB; 
END; 

PROCEDURE SOFTSTOP(Rll) J 
GOTO ENDPROGRAM; 

SEGMENT PROCEDURE FETCHCARDi Rl 1) ; 

BEGIN COMMENT PRINTS LAST LINE, READS NE« CARD, DETECTS OPTIONS, 
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12 


00 


09 


0340 


12 


0000 


09 


840 


12 


ocoo 


09 


0840 


12 


C0G4 


09 


0840 


12 


00 14 


09 


840 


12 


0C18 


09 


0840 


12 


00 23 


09 


0840 


12 


0028 


09 


8 40 


12 


00 3 6 


09 


0840 


12 


00 5 2 


09 


0840 


12 


00 5 C 


09 


0840 


12 


0068 


09 


0840 


12 


0C74 


09 


0840 


12 


0C74 


09 


08 40 


12 


0C7C 


09 


0840 


12 


00 84 


09 


0840 


12 


00 SE 


09 


0840 


12 


009 8 


09 


840 


12 


00A2 


09 


840 


12 


00 AC 


09 


0340 


12 


00B2 


09 


0840 


12 


00 3 2 


09 


0840 


12 


0086 


09 


08 40 


12 


OOBE 


09 


08 40 


12 


OOCC 


09 


0840 


12 


0006 


09 


0840 


12 


OODE 


09 


0840 


12 


00 06 


09 


084 


12 


00E6 


09 


0840 


12 


00 E6 


09 


0840 


12 


OOFO 


09 


0840 


12 


O0F8 


09 


0840 


12 


0102 


09 


0840 


12 


0102 


09 


0840 


12 


010C 


09 


0840 


12 


0114 


09 


0840 


12 


1 1 E 


09 


0840 


12 


0126 


09 


0840 


12 


0130 


09 


0840 


12 


013 8 


09 


0840 


12 


014 2 


09 


0840 


12 


014A 


09 


0840 


12 


015 2 


09 


0840 


12 


1 5 A 


09 


0840 


12 


01 5 A 


09 


0840 


12 


0166 


09 


0840 


12 


0176 


09 


0840 


12 


CI 84 


09 


840 


12 


018E 


09 


0840 


12 


0194 


09 


0340 


12 


019 8 


09 


0840 



40 4 
0405 
0406 
0407 
040 8 
0409 
0410 
411 
0412 
0413 
0414 
0415 
0416 
0417 
0413 
0419 
0420 
0421 
042 2 
423 
0424 

042 5 
0426 
0427 
0423 
0429 
0430 
431 
0432 
0433 
0434 
0435 

043 6 
0437 

043 8 
0439 
0440 
0441 
44 2 
0443 
0444 
0445 

044 6 
0447 

044 8 
0449 
0450 

045 1 
0452 
45 3 
0454 



L: 



N: 



R3 :; 
ERROR 1 



SETS R8 = ADDRESS OF NEXT CHARACTER, 

R9 = (NUMBER - 1) CHARACTERS ON CARD; 
STM(R1,R3,SAVE13) ; 
IF LISTFLAG AND LINE HOLD THEM 
BEGIN RESET{ LINEHOLD) ; 

RO := clINBUF; PRINT; 

END; 

RO : = 

BEGIN 

R3 : = 

BEGIN 

R9 
E ND ; 

CLI ("$",B8) ; IF = THEN 
BEGIN SAVER8 := Rll; Rli := NTBASE; 

CLC(4, "TRACE", B8( 1) ) ; IF = THEN 

BEGIN MVC(0,TRACEFLAG,B8(6) ) ; NIC #-0F,TP ACEFLAG) ; 
MVC i , T RACE , B8 (7 ) ) ; N I ( #0 F» TR ACE ) ; 



SINBUFC 13) 

R4 := 7; 
AGETCARD; BALR(R2,R3); COMMENT 

R8 :■= OINBUFi 80) ; MVH H ;*»»B8) 
:= 1; SET (EOF); GOTO XI T; 



RO; IF EOF THEN 
SOFTS TOP; END; 

READ; 



IF -,= THEN 
MVU";",88U) ) ; 



u 



n ' 



I- --); if = 

:= #FFFFFFFF; 



THEN 

Rl := RO; 



10S + Rl; 
SROLCRO,B2J5 

Rl OR TRACES ITS (4) 



IF = THEN 
HVI(#FF,TRACEBITSJ 

GOTO 



M 



CLC(1,B8(9) 

BEGIN RO 
END ELSE 
BEGIN 

IC(R1,B8(10 )); Rl := Rl AND #F; 
IC(K2f88(9) ); R2 := R2 AND #F * 
RO := #80000000; Rl : = Rl - Rl; 
RO := RO OR TRACES ITS! ) ; Rl : = 
END; 

STM{R0,R1,TRACEBITS); GOTO M? 
END; 

CLC(4, "STACK", B8( 1) ); 
BEGIN MVK3, TRACE) ; 

MVC(6 t TRACEBITS(l),TRACEBITS) 
END; 

CLC<3,"LIST M ,B8( 1)); 
BEGIN SET(LISTFLAG); 
CLCLS,"N0LIST",B8Q) ); 
BEGIN RESET (LISTFLAG); 
CLC(6,"N0CHECK* f B8(l ) ); 
BEGIN RESETCCHECKFLAG) 
CLC<5 f "SYNTAX", B8C1 J ); 
BEGIN SET(NQGO); GOTO 
Rll :■= SAVERB; GOTO N; 
Rll := SAVERB; GOTO L; 
E ND ; 

SET(NE«CARD) ; SET( L INEHOLO) ; RESET* BEGINSET) ; 
MVCU ,INBUF<5) , 5, ~- " ) ; R9 : = 71; Rl := CARDCOUNT + R5; 
CAROCOUNT := Rl J CVO( Rl , PKDEC) ; UNPK{ 3 ,7, 1NBUF, PKOEC ) ; 

MVC(7 f INBUF(93)t INBUFC85) )1 
»); 



I F = 
GOTO 
IF 



THEN 

m; end; 

= THEN 



GOTO Mj 
IF = THEM 
; GOTO MJ 
IF = THEN 

M; end; 



END: 



END; 



XIT: 

end; 



OIO'O", IN6UFL3) ) ; 
MVC<7»INBUF<85> , M 

LM(R1,R3,SAVE13) ; 



SEGMENT 12 NAME 



SEG#12 



LENGTH = 01 E8 BASE REG = 15 



C8 


COCC 


09 


0840 


08 


OOCC 


09 


0840 


08 


COCC 


09 


0840 


08 


00 D4 


09 


0840 



0455 
0456 
045 7 
045 3 



PROCEDURE MEXTCHAR(R3|; 

BEGIN R8 := R8 + R5J IF R8 > R9 THEN 
BEGIN FETCHCARD; RO := RO-RO; R9 



INBUF(84) 



END; 



PL 360 COMPILATION 



C8 


00E4 


09 


0840 


03 


C0E8 


09 


0840 


£ 08 


00 E A 


09 


8 40 


C8 


OCEA 


09 


08 40 


C8 


OOEA 


09 


0840 


% 08 


00 E A 


09 


840 


G8 


OCFA 


09 


0840 


C8 


OOFC 


09 


0840 


# 08 


00 FC 


09 


0840 


C8 


OOFC 


09 


0840 


08 


00 FC 


09 


0840 


• 08 


0104 


09 


0840 


3 


0114 


09 


9840 


8 


0120 


09 


0340 


• 08 


012C 


09 


0840 


08 


0136 


09 


0840 


08 


014 2 


09 


0840 


■': 08 


014 A 


09 


0840 


;; 08 


014E 


09 


0840 


^ ' 08 


015 2 


09 


0840 


6 


0154 


09 


0840 


1 08 


1 54 


09 


0840 


": 08 


015-4 


09 


0840 


# 3 


0154 


09 


840 


8 


0.1.64 


09 


0840 


08 


1 74 


09 


0840 


^ 08 


01 7 A 


09 


0840 


8 


0186 


09 


0840 


08 


0192 


09 


0840 


£ 03 


Q1A2 


09 


0840 


08 


01A6 


09 


0840 


08 


01AE 


09 


0840 


% 08 


018 2 


09 


0840 


08 


0102 


09 


08-4-0 


08 


01BE 


09 


0840 


08 


1 C A 


09 


08-40 


8 


01D6 


9 


0840 


08 


010E 


09 


0840 


• 08 


OiEA 


09 


0840 


08 


OIF 6 


09 


0840 


08 


0204 


09 


0840 


08 


020C 


09 


0340 


08 


0212 


09 


0840 


08 


21A 


09 


0840 


% 08 


021 E 


09 


0840 


08 


0222 


09 


0840 


08 


022 E 


09 


0840 


• 08 


0236 


09 


0840 


08 


0242 


09 


0840 


08 


024 A 


09 


0840 


• 08 


024 A 


09 


0840 


08 


02 56 


09 


0840 


08 


0258 


09 


0840 


■B -j 8 


025 8 


09 


0840 


08 


25 8 


09 


0840 


08 


025 8 


09 


8 40 


• 08 


0258 


09 


0840 


08 


02 £4 


09 


0840 
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045 9 

046 
04bl 
046 2 
0463 
0464 
046 5 
0466 
046 7 
046 8 
0469 
4 70 
471 
0472 
473 
0474 
04^5 
0476 
04 77 
-047 8 
0479 
043 
0431 
0482 
048 3 
0434 
0435 
043 6 
0437 
0438 

048 9 
0490 

049 1 
0492 
0493 
4 94 

049 5 
0496 
49 7 
0498 
0499 
0500 
0501 
50 2 
0503 
0504 
505 
0506 
■0507 
0508 

050 9 
0510 
0511 
0512 
0513 
0514 
0515 
0516 



IC(R0,88); 



END; 



PROCEDURE STOP CRD; 
BEGIN R4 := 12; 
END; 



ERROR.; S ET < NO P A S S T WO ) 



GOTO ENDPROGRAM; 






PROCEDURE INSYMBOL(Rli) ; 

BEGIN COMMENT R2 HAS ID NUMBER AT ENTRANCE? 
SAVERB s= RU; Rll := NTBASE; 

Rl -*= STACK! NOEX - 4.; RQ := STACKLNGfRl I * 12; 
STACKLNG(Rl) := RO; RO : = TYPE; Rl := SCRATCH! NDEX; 
IF Rl < SYMBOLINOEX THEN STOP; COMMENT NT OVERFLOW; 
R3 := R3-R3; SCRNAMETABC Rl ) .:= R3; SCRNAMETABCR1+2) := R3 J 



IDN0SCCR1) := R2i 

Rl := Rl - 12; 



TYPE INFO (Rl ) : = RO ; 
SIHTYPEINCRl) : = R3j 

SCRATCHINDEX := Rl; 
Rll 2= SAVERB; 
END; 



PROCEDURE IDSEARCHCR10) .; 

BEGIN COMMENT R2 RETURNS 10 NUMBER; 

R4 := CURBUFCOUNT; R3 := SCURBUF; ICCR1,B3); 
Rl := Rl SHLL 1; Rll := CHAIN; HCODE := Rl; 
WHILE Rl ■->= 00 
BEGIN Rl s= Rl SHLL 1; R2 := IDDIRINDCR1) + 

IF -LAST THEN EX C R4 , C0MP23 ) ELSE 

IF R4 = IDDIRLNG(Rl) THEN EX CR4,CQMP23 I ; 

IF - THEN GOTO FINISH; 

Rl := Rl SHRL lj Rl := CHAINIOIRD; 



R3 := SIM TYPE INFO; 






HASH; 

Rl :■= HASHIO(Rl); 

IDLISTBASES 



FINISH 



END 
COM 
Rl 
IF 
IF 
100 
RO 
I DO 
R4 
CHA 
:R2 
CLI 
BEG 



ME NT NOT IN TABLE; 

:= IDDIRINDEX + 4; R2 := IOLISTINDEX; 

Rl > I 00 I RL I MIT THEN STOP; 

R2 > IDLISTLIMIT THEN STOP; 



IRIND(Rl) 

:= R2 + R4 
IP, INDEX : = 
:= HCODE; 
IMIDCR3) := 
:= Rl SHRL 



= R21 IDDIRLNG(Rl) := R4 ; 
+ 1; IOLISTINDEX := RO; 
Rl; R2 := R2 + I DL I ST BASE 5 
R2 := HASH.IDCR4); R3 := Rl 
= R2; HASH IDC R4) s= R3J 
2; 

THEN 



EX(R4,M0VE23): 
SHRL l; 



(#01,DECLARFLAG) ; IF - 

IN CLIC #0.1, REFER FLAG); 

IF = THEN 

BEGIN Rl := RLISTPOINT + 2; RLISTPOINT := Rl; 

Rl := Rl + RFRCLISTBASE.; REFRCDLIST : = R2; 

IF Rl >= I0DIR3ASE THEN STOP; 
END ELSE INSYMBOL ; 



XIT; 



END: 
Rl : 
:ND; • 



IDCCDE-- 



OUTCOOE 



0UTC0DE2. 



PROCEDURE OUTSTRINGCR10); 

BEGIN COMMENT Rl HAS (NUMBER OF CHAR - 1) TO MOVE FROM BUF WITH BASE 
R7; 
R4 := 3SYMB0LBUFFER5C4) ; R3 := 3PR0GRAMCR6) ; EXC Rl , M0VE34) ; 
R6 := R6 + Rl + 1; 



**mir^'*™« m'm< m mm t mm i m m mi miMmto m mt mum tm m mimmi 
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08 


26A 


09 


0840 


08 


026C 


09 


0840 


8 


02 6C 


09 


840 


08 


26C 


09 


0840 


08 


026C 


09 


0340 


8 


02 7A 


09 


0840 


08 


028E 


09 


840 


08 


028 E 


09 


0840 


8 


2 9 A 


09 


0840 


8 


02 £2 


09 


0840 


03 


02A4 


09 


0840 


3 


02A4 


09 


0840 


08 


02A4 


09 


0840 


03 


02A4 


09 


0840 


08 


2 AC 


09 


3840 


8 


02 C4 


09 


0840 


8 


02 02 


09 


0840 


08 


20 2 


09 


0840 


08 


020E 


09 


0840 


03 


02DE 


09 


0340 


08 


02 E 6 


09 


0840 


08 


02 E A 


09 


0840 


08 


02F6 


09 


0340 


08 


02 FA 


09 


0840 


8 


02FA 


09 


0840 


08 


02FA 


09 


0840 


08 


02FA 


09 


0340 


08 


03 04 


09 


0840 


08 


0310 


09 


840 


08 


03 1C 


09 


0840 


08 


0320 


09 


0840 


08 


03 2 8 


09 


0340 


8 


0320 


09 


0840 


08 


0340 


09 


0840 


08 


034C 


09 


0840 


08 


0358 


09 


0840 


08 


03 56 


09 


0840 


08 


035 A 


09 


08 40 


08 


03 5C 


09 


0840 


08 


3 5C 


09 


0840 


08 


3 5C 


9 


840 


08 


03 5C 


09 


0840 


08 


03 50 


09 


0340 


08 


03 5 C 


09 


0840 


08 


035C 


09 


0840 


08 


0364 


09 


0840 


38 


0374 


09 


0840 


08 


3 7E 


09 


0840 


08 


0382 


09 


0840 


8 


03 8C 


09 


08 40 


08 


0390 


09 


0340 


8 


0390 


09 


08 40 


08 


03A2 


09 


0840 


08 


03 A 4 


09 


0840 


08 


3A4 


9 


0840 


08 


03 A 4 


09 


0840 


13 


00 00 


09 


0840 


13 


0000 


09 


0840 



0517 
0518 
05 1 9 
052 
0521 
522 
523 
524 
0525 
52 6 
05 27 

052 8 
0529 
058 
0531 
0532 
0533 
534 
0535 
05 36 

053 7 

053 8 
0539 
540 
0541 
542 
0543 
544 

054 5 
0546 
0547 
543 
549 

055 
5 5 1 
0552 
553 
0554 
055 5 
0556 
055 7 
0558 

055 9 
0560 
05ol 
0562 
0563 
564 

056 5 
0566 
056? 
0563 

056 9 
05 70 
571 
0572 

057 3 
574 
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PROCEDURE OPENBLOCKIRIO) ; 

BEGIN 

Rl : = BLOCK NO + R5; BLOCK NO ? = Rl; P. 2 := STACK INDEX; 

IF Rl > BLLIMIT OR R2 >= STACKLIMIT THEN STOP; 

COMMENT TOO MANY BLOCKS OR NESTING TOO DEEP; 

STACK (R2) := Rl; Rl := SCRATCH INDEX; STACMR2+4) := Rl; 

R2 := R2 + 8; STACK INDEX := R2; 
END; 

PROCEDURE CLOSEBLOCK(RIO) J 

BEGIN 

Rl : = STACK INDEX - 8 ; 

IF -.ENDDOT AND Rl = THEN RO : = 1 ELSE RQ := RO - ROj 

IF RO = 1 OR Rl < THEN 

BEGIN 

R4 := 4; ERROR; GOTO XITj 
END; 

SAVERS := Rll; Rll := IMTBASE; 
STACK INDEX := Rl j 

R3 := STACKCR1) SHLL 2; RO := STACKING? Rl+4) ; 
Rl := STACKINDUU+6) ; 
COMMENT RO HAS NO OF IDS * 12 

Rl HAS INDEX TO SCRATCH AND IDNOSCRATCH TABLES 
R3 HAS INDEX TO 8L0CKLIST (BLOCK NUMBER * 4); 
IF R0=0 THEN 6LCCKLI ST ( R3) := RO ELSE 
BEGIN R2 := SYMBGLINDEX; BLOCKLI ST< R3) := R2; 

8L0CKLISTLNG(R3I := RO; R3 := RO + R2; SYMBOL INDEX := R3j 

SCR AT CHI NO EX := Rl; 

R3 := 3NAMETABLECR2); R4 J= 3SCRATCHNAMETABLECR1 ) I 

FOR Rl:=12 STEP 12 UNTIL RO DO 

BEGIN R2 := R3 + 12; IF R2 >= R4 THEN STOP; 
MVCC11»B3,B4); R3 := R2; R4 i= R4 - 12; 

END; 
END; 

Rll := SAVERS; 
XI T: END; 

PROCEDURE MATCHSYM30UR10) ; 

BEGIN COMMENT SYMBOL IN CURBUF 

Rl RETURNS OUTPUT CODE 
R2 RETURNS CASE STATEMENT INDEX 
R3 = 1 IF SUCCESSFUL, =0 OTHERWISE; 
R2 := R2 - R2; Rl := R2; ICCR2, CURBUF ) ; 
IF R2 >= 76 AND R2 <= 127 THEN 

BEGIN TRiO, CURBUF, TRRESERVEDM_76) ); IC (Rl, CURBUF) 5 
STCIR2, CURBUF) ; 

IF Rl = 255 THEN R3 := R3 - R3 ELSE 

BEGIN IC( R2,C0DE1(R1 + 1) ) ; IC ( Rl , CODE If R 1 ) ) ; R3 : = lj 
END; 
END ELSE R3 s= R3 - R3; 
END; 

SEGMENT PROCEDURE NUMBERCOMVERT (Rll ) ; 
BEGIN 
PROCEDURE FLOAT! RIO); 

BEGIN FC0N1L3W := Rl; F01 := FC0N1 + OL; 
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13 
L3 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
L3 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 



OOIO 
0012 
0012 
0012 
00 26 
0036 
003E 
0C52 
00 5 A 
00 7 2 
0C72 
00 34 

ooac 

00A2 

00 A6 

OOAA 

C0B6 
COB 3 

cob a 

0OC4 

OODE 
00E6 
00F6 

01 02 
012A 
012E 
012E 
013C 
014 8 
014C 
014C 
014C 
0150 
0158 
0164 
0164 
0170 
0170 
01H4 
CISC 
0194 
0198 
01A4 
01B0 
0184 
01CO 

1C0 
01C4 
01C8 
01CE 

01 DA 
01E0 
01E2 
01 E 8 
01 EC 
01F2 
01F8 
01FC 



09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 



0840 
0840 
840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
840 
8 40 
0840 
08 40 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
C840 
0840 
0840 
0840 
340 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
840 
0840 
0840 
840 
0840 
840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 



0575 


0576 


57 7 


57 3 


057 9 


0530 


053 1 


53 2 


053 3 


0584 


0535 


53-6 


0587 


053 8 


0539 


059 


0591 


059 2 


593 


0594 


059 5 


596 


0597 


05 9 8 


0599 


060 


060 1 


0602 


0603 


0604 


0605 


060 6 


0607 


0608 


0609 


0610 


0611 


0612 


0613 


0614 


0615 


0616 


06 17 


0618 


0619 


062 


0621 


062 2 


0623 


0624 


0625 


0626 


062 7 


06 28 


0629 


0630 


0631 


063 2 



END; 
PRQC FOUR E S CAL EF ACTUR < R 10 } ; 

begin comment adds to the scalefactor in r2; 
nextchar; if ro - "-" then 

begin set(exposign); nextchar; 

end else reset1exp0sign); 
if ro = '« + " then nextchar; 
if ro < "0" then 

begin r4 := 2; error; rl := 0; goto xit; 
end; 

Rl := RO AND #F; NEXTCHAR; 

while ro >= "0" do 

begin ro := ro and #f; rl : = rl * 10s + ro; nextchar; 

end; 

TEST (EXPO SIGN); 

IF = THEN R2 := R2 - Rl ELSE R2 := R2 + Rl; 
XIT: END; 

PROCEDURE CONVERT (Rl 1 ) ; 

BEGIN SAVERB1 := Rl 1 ; IF RO >= "0" THEN 

BEGIN Rl := RO AND #F; R2 := 0; NEXTCHAR; MVI ( It TYPEFLAG) ; 
WHILE RO >= "0" DO 
BEGIN IF R2 > 7 THEN IF Rl >= 214748364 THEN 

BEGIN IF = THEM IF RO <= «*?» THEM GOTO OKI 

R4 := 2; ERROR; WHILE RO >= "0'» DO NEXTCHAR; 
GOTO FL; 
END; 
OK: RO := RO AND #F; Rl := Rl * 10S + RO; R2 := R2 + lj 

NEXTCHAR; 
EN D ; 

COMMENT INTEGER IN Rl , NEXT CHARACTER IN RO; 
FL: ?,2.i= 0; COMMENT R2 IS THE DECIMAL SCALE FACTOR; 

IF RO = *»«" THEN 

BEGIN WK 2, TYPEFLAG); FLOAT; SCALEFACTOR; 
END ELSE 

IF RO = "." THEN 
BEGIN COMMENT PROCESS FRACTION; 

FLOAT; NEXTCHAR; MV H 2 , TYPEFLAG ) ; 
WHILE RO >= "0" DO 
BEGIN RO :=R0 AND #F SHLL 4; 
STC<R0,FCON2(4) ); 
F01 := F01 * 10L + FC0N2 ; 
NEXTCHAR; 
END; 
IF RO = "»" THEN SCALEFACTOR; 

end; 

CLIU, TYPEFLAG); 

IF- > THEN 

BEGIN IF R2 -.= THEN 

BEGIN F2 3 := 10L.S F45 := 1L; 

IF R2 < THEN 
8EGIN R2 := A8S R2; 
WHILE R2 -.= 00 
BEGIN F23 := F23 * F45; 

SRDL(R2,1); LTRCR3,R3); 
IF < THEM F01 := F01 / F2 3; 
END; 
END ELSE 



R2 := R2 - 15 



F67 := 1L! 



F45 



F23; 
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13 


OlFC 


09 


0840 


13 


020 6 


09 


03 40 


13 


2 0A 


09 


0840 


13 


0210 


09 


0840 


13 


0216 


9 


0840 


13 


02 1A 


09 


0340 


13 


021 A 


09 


0840 


13 


G21A 


09 


0840 


13 


02 1A 


09 


840 


13 


02 IE 


09 


0840 


13 


0220 


09 


0840 


13 


02 20 


09 


0840 


13 


023 A 


09 


0840 


13 


0242 


09 


0340 


13 


024 8 


09 


0840 


13 


02 50 


09 


0340 


13 


02 56 


09 


0840 


13 


025A 


09 


0840 


13 


262 


09 


0840 


13 


026A 


09 


0340 


13 


O202 


09 


03 40 


13 


02 82 


09 


0840 


13 


02 8 A 


09 


0840 


13 


02A2 


09 


08 40 


13 


02 Ad 


09 


0840 


13 


02A6 


09 


840 


13 


02B0 


09 


0840 


13 


02 B 8 


09 


0840 


13 


02BC 


(19 


0340 


13 


2 DC 


09 


0840 


13 


02BC 


09 


0840 


13 


02C8 


09 


0840 


13 


0200 


09 


0840 


13 


2D8 


09 


0340 


13 


02 E 6 


09 


08 40 


13 


C2E6 


09 


0840 


13 


02F0 


09 


0840 


13 


02F4 


09 


0840 


13 


02 F4 


09 


0840 


13 


C3CC 


09 


0840 


13 


3 16 


09 


840 



633 
0634 
068 5 
06 3 6 
0637 
0638 

063 9 
0640 
0641 
0642 

064 3 
644 
0645 
646 

064 7 
06 4 8 
0649 

065 
0651 
0652 
0653 
0654 
65 5 
0656 
0657 

065 8 
06 5 9 

066 
0661 
0662 
0663 
0664 
66 5 
0666 
0667 
066 8 
0669 
06 7 
0671 
6 72 
0673 



RESET! SIGN); 
Rll; R9 := aiNBUF(84); 

END; 

END? 



WHILE R2 -.= DO 

BEGIN F2 3 := F23 * F45 ; F45 := F2 3; 
SR DL < R2 , 1 ) ; L TR { R 3 , R 3 ) ; 
IF < THEN FOi := F01 * F23; 
END; 
END; 
END? 
EN D ; 

Rll := SAVERB1; 
E ND ; 

RESET { IMAGFLAG) ; PE SET ( EXPOSI GN) ; 
RO := RO-RO; IC(R0,88); SAVEM : = 
IF RO = ". " THEN 

BEGIN RO := "0"; R3 := R8 - RS; 
IF RO = »»'» THEN 

BEGIN RO := "1 H ; R3 := R8 - R5; 
CONVERT; 

IF RO = «I" THEN 
BEGIN SET< IMAGFLAG) J CL H 1 ,TYPEFLAG ) ; 

IF = THEN FLOAT; NEXTCHAR; HV I( 2 , TYPEFLAG) ; 
END; 

IF RO = «L M THEN 
BEGIN CLItl, TYPEFLAG); IF = THEN FLOAT; NEXTCHAR; 

HV I (3, TYPEFLAG) ; 
END; 

R2 := R2 - R2; IC <R2, TYPEFLAG) ; TEST* IMAGFLAG) 5 
IF = THEN R2 J= R2 + 2; 
NEXTBUFCOUNT : = R2; 
CASE R2 OF 
BEGIN 

NEXTBOFI := Rl; 

NEXTBUFR : = F0| 

NEXTBUFLR := FOI; 

BEGIN F2 := F2 - F2; NEXTBUFR := F2 ; NEXTBUFM4J s= FO ; 

END; 

BEGIN F23 ?= F23 - F23; NEXTBUFLR := F23; 

NEXTBUFLR* 8) := FOI; 
END; 
END; 

R9 := 3INBUFL84) - R3; Rll : = SAVEN; 
END; 



SEGMENT 13 NAME = SEG#13 



LENGTH = 03 70 BASE REG = 1 5 



08 


3A4 


09 


0340 


08 


03 A4 


09 


0840 


08 


03A4 


09 


0840 


14 


0000 


09 


0840 


14 


ococ 


09 


0840 


14 


ooio 


09 


0840 


14 


0024 


09 


0840 


14 


0034 


09 


0840 


14 


0034 


09 


0840 


14 


0036 


09 


0840 


14 


0O3E 


09 


0840 


14 


00 AC 


09 


0340 


14 


004C 


09 


0840 


14 


00 5 8 


09 


0340 



0674 

0675 
0676 
0677 
067 8 
067 9 
0680 
0681 
0632 
0633 
0684 
0635 
0636 
0687 



SEGMENT 

BEGI 



LI: 



PRO 
N C 

AVER 

EGIN 

OU 

no; 
2 : = 
X { R9 
EGIN 

ND; 
8 : = 



CEDURE ADVANCESYHBOLJRIO) ; 

OMrlENT FILL NEXTBUF WITH NEXT SYMBOL 

R7 MUST HAVE BASE ADDRESS OF NEXTBUF; 
4 := R4; SAVER 10 s= RIO; TF ST( NEWCARD I ; IF = THEN 

Rl := NEWCARDCODE; OUTCODE; R2 := CARDCOUNT; 
TCDDE2 ; RESET* NEWCARD ) ; 



R2. - R2; 
jSCANBLANKS) ; IF = THEN 

fetchcard; goto Ll; 



Rl; R9 := 51INBUF(84) 
R2 OF 



R8; NEXTBUFTYPE:= R2; 



■ ™'il| B,M |||| , i|fmii ffl lffl 
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14 

14 
14 

14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
L4 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 



OC5 8 

OO 60 
0C64 
00 6C 
00 74 
CC7C 
00 82 
0090 
0C9O 
009 8 
■00A6 
00A6 
00 BO 
OOBA 
OOBC 
00 C 4 
OQCA 
00D4 

00 EC 
OOF 4 
00F6 
0102 
010A 
0114 
0114 

one 

012A 
0136 
0140 
0154 
0154 
0154 
0154 
016 
016A 
0174 
017C 
018A 

01 $2 
0102 
0102 
01*5 2 
019E 
01A8 
0186 
018E 
01C8 
01C8 
01C8 
C1C3 
01CC 
0106 
01D6 
010A 
0.1 E 2 
01EC 
01F0 



09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 



0340 
08 40 
08 40 
840 
0840 
0840 
840 
0840 
0840 
84 
0840 
0840 
0840 
0840 
840 
0840 
0840 
0340 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
O840 
0840 
840 
0840 
08 40 
0840 
0840 
0840 
0840 
0840 
0840 
0340 
0840 
08 40 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 
0840 



068 8 
6 8 9 
06 90 
0691 
692 
0693 
0694 
06 95 
0696 
0697 
0698 
0699 
0700 
701 
070 2 
0703 
070 4 
0705 
070 6 
0707 
070 8 
070 9 
0710 
7 1 1 
712 
713 
714 
0715 
0716 
0717 
0710 
0719 
072 
0721 
072 2 

072 3 
0724 
72 5 
726 
0727 
07,2 8 
0729 
0730 
0731 
0732 
0733 
0734 
0735 
0736 

073 7 
073 8 
073 9 
0740 
0741 
0742 
0743 
0744 
745 



R3 := 2 57; 



R8; R3 := R3 + R2J 



BEGIN 

BEGIN COMMENT LETTER; 

R2 := R2 - R2; R3 := R2 ; 
L2: EX(R9, IDCHARS) ; IF = THEN 

BEGIN R4 := 3NEXTBUF { R3) ; R3 := R3 + R9 + R5; 
IF R3 > 256 THEN 
BEGIN R2 := 3NEXT BUF{ 255 ) - R4; 

IF R2 >= THEN EX ( R2 , MVCCHARS ) ; 
END ELSE 
EX {R9, MVCCHARS) ; 

fetchcard; goto L2; 

END ELSE 

IF Rl -.= R8 THEN 

BEGIN R4 := aNEXTBUF(R3) ; R2 := Rl ~ 
R2 : = R2 - R5; 
IF R3 > 256 THEN 
BEGIN R2 :.= SNEXTBUFt 2 55 ) ~R4; 

IF R2 >= THEN EX { R2, MVCCHARS I I 

R3 := 256; R2 := Rl; LA<R4,1.8); ERROR; Rl ;= R2 ; 
END ELSE EXCR2, MVCCHARS) ; 
END; R3 := R3 - R5; 

R8 := Rl; R9 := 3INBUFC84) - R8 ; NEXTBUFCOUNT s= R3; 
IF R3 = 6 THEN 

BEGIN CLC<6, NEXT 8UF, "COMMENT"); IF = THEN 
BEGIN 
L3J EX(R9»C0MMNTCHARSJ ; IF = THEN 

BEGIN FETCHCARD; GOTO L3; 
END ELSE IF EOF THEN GOTO LI ELSE 
BEGIN R3 := Rl + R5; R9 := 3INBUF184) - R8 ; 
IF R9 < THEN FETCHCARD; GOTO LI; 

END; 
end; 

END ELSE 

IF R3 = 4 THEN 

BEGIN CLC(4, NEXTBUF, "BEGIN") ; IF = THEN 

BEGIN Rl := NESTLEVEL + R5 ; NESTLEVEL := Rl; 
IF iB EG INSET THEN 
BEGIN SET(BEGINSET); RO := 0; Rl := ABS Rl/10; 

STC(RO f INBUF(5) ); OH w 0», INBUFC5) ) ; 
END; 
END; 
END ELSE 
IF R3 = 2 THEM 
BEGIN CLC<2»NEXTBUF, W EN0»}; IF = THEN 

BEGIN RO := 0; Rl := ABS NESTLEVEL / 10; 
STCIRC, INBUF(6) }; I { "0", INBUF< 6 ) ) ; 
Rl := NESTLEVEL - R5; NESTLEVEL i= Rl; 
END; 
END; 
END; 
BEGIN COMMENT DIGIT, • ; 

NUMB ERGON VERT; 
END; 
BEGIN COMMENT SYMBOL; 

CLI {«#», B8); IF = THEN 

BEGIN MVG(0,NEXTBUF,B8) ; R9 := 3INBUFL84); 
Rl :.= Rl - Rl; RO := Rl; 
L4: NEXTCHAR; 



n^> mim*mmm t mmM * miim) mi m n 
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14 


OlFC 


09 


0840 


14 


0210 


9 


0840 


14 


C228 


09 


0840 


14 


0236 


9 


0840 


14 


C23A 


09 


0840 


14 


23A 


09 


0840 


14 


0244 


09 


08 40 


14 


0244 


09 


0840 


14 


02 5 


09 


0840 


14 


0260 


09 


0840 


14 


0268 


09 


0840 


14 


02 68 


09 


0340 


14 


26 8 


09 


0840 


14 


G2 6C 


09 


0840 


14 


02 7C 


09 


0840 


14 


0283 


09 


0840 


14 


02 8 3 


09 


840 


14 


02 8 E 


09 


0840 


14 


0296 


09 


0840 


14 


2A0 


09 


0840 


14 


02A6 


09 


0840 


14 


02 B a 


09 


0840 


14 


02C8 


09 


0840 


14 


02 C 8 


09 


0840 


14 


02 D 4 


09 


0840 


14 


2 CO 


09 


0840 


14 


02 EC) 


09 


0840 


14 


02E0 


09 


0840 


14 


02F4 


09 


0840 


14 


C3CC 


09 


0840 



0746 IF RO >= "A" AND RO <= "F" THEN P.O := RO - #-87 ELSE 

0747 IF RO <= "9" AND RO >= "0" THEN RO := RO AMD #F ELSE 

0748 BEGIN K9 j= ojINBUFI84) - R8; NEXTBUFCOUNT := Rl; 

0749 GOTO XIT; 

0750 END; 

0751 Rl := Rl + R5; STCC RO,NEXTBUF(R 1) ) ; GOTO L4; 

0752 END; 

0753 Rl := Rl - Rl; NEXTBUFCOUNT : = Rl; MVC{ 0, NEXTBUFtBS) I 

0754 IF R9 = THEM FETCHCARD ELSE 

0755 BEGIN R8 := R3 + R5| R9 := R9 - R5; 

0756 END; 

075 7 XIT: END; 

0758 BEGIN COMMENT . ; 

0759 IF R9 = THEN FETCHCARD ELSE 

760 BEGIN R8 := R8 + R5 ; R9 := 3INBUF(84) -R8; 

0761 END; 

076 2 RO : = RO - RO J IC(R0*B8); 
076 3 IF RO >= "0" THEN 

0764 BEGIN R8 := R3 - R5; SAVEAOD := R8; mU».»,S8)i 

0765 R9 := 3INBUFC84) - R8 ; 

0766 • Rl := 2; NEXTBUFTYPE : = Rl; NUM8ERC0NVERT; 

0767 Rl := alNBUF<12)5 IF Rl = SAVEAOD THEM MVK" »|B1){ 

0768 END ELSE 

076 9 BEGIN Rl := 3; NEXTBUFTYPE := Rl; 

0770 Rl := 0; NEXTBUFCOUNT := Rl; MVH "." f NEXTBUF) I 

0771 END; 

0772 END; 

077 3 END; 

774 R7 := CURRUF3ASE; R4 := SAVER4; RIO := SAVER 10; 

0775 END; 



SEGMENT 14 NAME = S£G#14 



LENGTH = 03 50 BASE REG = .15 



08 


03A4 


09 


0840 


08 


03 A 4 


09 


0840 


08 


03A4 


09 


0840 


08 


03A4 


09 


0840 


08 


03A4 


09 


0840 


08 


03 A 4 


09 


0840 


08 


03A4 


09 


0840 


08 


03 A 4 


09 


840 


08 


03 B4 


09 


08^-0 


08 


03 C4 


09 


0840 


08 


03D2 


09 


0840 


08 


03DE 


09 


0840 


3 


03E2 


09 


0840 


08 


03EA 


09 


0840 


08 


03 EE 


09 


0840 


08 


03F8 


09 


0840 


08 


404 


09 


840 


08 


040C 


09 


€ 840 


OS 


4 I A 


09 


0840 


08 


0426 


09 


0840 


08 


42E 


09 


0840 


08 


0432 


09 


0840 


03 


043A 


09 


0840 


08 


0442 


09 


840 


08 


0442 


09 


8 4 



0776 
0777 
77 8 
0779 

078 

078 1 
073 2 
0783 
0734 
073 5 
0786 
0737 
0788 
073 9 
07 9 
0791 
0792 
0793 
0794 
0795 
79 6 
0797 

079 3 
0799 
0800 



PROCEDURE MATCHRESERVEO(RIO) ; 
BEGIN 

COMMENT MATCH ALPHANUMERIC IN CUR8UF 
IF SUCCESSFUL R3=0 ELSE R3=l 
Rl RETURNS OUTPUT CODE 
R2 RETURNS CASE STATEMENT INDEX; 
Rll := CURBUFCOUNT; IF R1K1 THEN 
IF Rll >= 9 THEN R3 := 1 ELSE 

Rl := Rll SHLL 2; R3 := RESADDRCR1J; 
:= SCURBUF; RO := C0DEADDRCR1 ) ; Rl f- 
R4:=0 STEP 1 UNTIL RESNO(Rl) DO 
EX(R11,CDMP23) ; 



WITH RESERVE WORDS 



R3 := 1 ELSE 



MO ■ 
L: 



BEGIN 
R2 



Rl SHRL I; 



FOR 
BEGIN 
IF 



IF 



THEN GOTO L 
< THEN GOTO 



ELSE 

NO ELSE R3 := R3 *• Rll + 1 



END; 
R3 r 
R4 r 



l; GOTO D; 

R4 SHLL i; R3 := RO + R4 ; Rl := 
IC<R1,B3); IC<R2,B3{1)); R3 := 0; 

IF Rl = GOCODE THEN 
BEGIN R7 : = NEXT8UFBASE; 

IF R5 i= NEXTBUFCOUNT THEN 

BEGIN R3 := 1; R7 : = CURBUFBASE; 

END ELSE 

BEGIN CLC ( 1 f N EXT 8UF, TO } ; 



R2 := Rl; 



'Wr^WMW^^PIWBIWI 
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cs 


C 44C 


09 


0840 


08 


0450 


0° 


0840 


08 


0462 


09 


0840 


08 


046E 


09 


84 


08 


046E 


09 


0840 


8 


04 7 A 


09 


0840 


08 


047A 


09 


0840 


08 


04 7 A 


09 


0840 


08 


04 7 A 


09 


840 


08 


04 7 A 


09 


0340 


08 


04 7 C 


09 


0340 


08 


04 7C 


09 


0840 


08 


047C 


09 


0840 


8 


0488 


09 


840 


03 


0498 


09 


0840 


08 


04A4 


09 


08 40 


08 


044E 


09 


0840 


08 


04BA 


09 


0340 


08 


04C2 


09 


0840 


08 


C400 


09 


0840 


8 


4E4 


09 


0340 


08 


04 E4 


09 


840 


08 


04 EE 


09 


0840 


C8 


04F2 


09 


0840 


08 


04FE 


09 


0840 


08 


0506 


09 


840 


08 


50C 


09 


0840 


08 


050C 


09 


0840 


03 


514 


09 


0840 


03 


514 


09 


0340 


08 


05 1C 


09 


0840 


OS 


5 26 


09 


084 


8 


52 6 


09 


0840 


08 


G536 


09 


0840 


03 


0544 


09 


0840 


08 


544 


09 


0840 


08 


C 546 


09 


0340 


00 


0546 


09 


840 


08 


546 


09 


0840 


15 


00 CO 


09 


0840 


15 


coco 


09 


0840 


15 


00 C E 


09 


840 


15 


001 A 


09 


0840 


15 


001 A 


09 


0840 


15 


0026 


09 


0340 


15 


0026 


09 


0840 


15 


00 2A 


09 


0840 


15 


u 2 C 


09 


0840 


15 


00 2C 


09 


340 


15 


00 2C 


09 


0840 


15 


0036 


09 


0340 


15 


04 2 


09 


840 


15 


0042 


09 


0840 


15 


004 E 


09 


0840 


15 


004E 


09 


0840 


15 


0052 


09 


0340 


15 


CC54 


09 


0840 


15 


00 54 


09 


0840 



0801 
30 2 
303 
0304 
0305 
0306 
307 
80 8 
0809 
0310 
0311 
0312 
0813 
3 1 4 
0315 
0316 
0317 
0318 
0319 
820 
08 21 
822 
0823 
032 4 
0325 
0826 
0327 
0328 
0329 
0330 
0831 
083 2 
0833 
0334 
33 5 
0336 
0837 
08 3 8 
0839 
0840 
0341 
034 2 
0843 
0344 
0845 
0846 
034 7 
0848 
0849 
0350 
0851 
0852 
0853 
0354 
385 5 
0856 
0857 
85 8 



IF = THEN 

BEGIN SAVE : = RIO; ADVANCESYMBOL; RIO := SAVE; 

Rl : = GUTOCOOE; R2 := 1; R3 := 0; 
END ELSE 

BEGIN R3 := 1; R7 := CURBUFBASE; 
END; 



END; 



D: 



END; 

end; 
end; 



PROC EDURE F ETCHSVMBOL ( R4 ) ; 
BEGIN R7 := NEXTBUFBASE; 
CLI ( M " M «tNEXTBUF); IF 



R2 := _lj Rl := NEXTBUFTYPE; 
= AND Rl = 3 THEM 
BEGIN R7 := CURBUFBASE; Rl := NEXTBUFBASE; R9 := aiNBUF{84); 
NEXTBUFBASE := R7; CURBUFBASE : = Rl; RO := RO-RO; IC(R0tB8); 
QUOTE: WHILE RO -»= """*' DO 

BEGIN IF R2 >= 2 55 THEN 

BEGIN RO := R4; LA<R4,8); ERROR; R4 := RO; R0:=R0-RO; 

WHILE RO -,- «""« DO MEXTCHAR; GOTO XI T; 
END; 

R2 := R2 + R5; STCCR0»NEXTBUF(R2 ) ) ; MEXTCHAR; 
END; 
XIT: MEXTCHAR; If RO = ■•»"" THEN 

BEGIN IF R2 < 25 6 THEN 

BEGIN R.2 := R2 + R5; STC(RO t NEXT8UF (R2H ; 
END; 

mextchar; goto quote; 
end; 

nextbufcount : = r2; nextbuftype := r5; 
r7 := curbufbase; r9 := 3inbufc84} - r8 ; 

END ELSE 

BEGIN R7 : = CURBUFBASE; Rl := NEXTBUFBASE; 

CURBUFBASE := Rl; ADVANCESYMBOL; 
END; 
END; 

SEGMENT PROCEDURE MUMBEROPT <R1 1 ) ; 

BEGIN COMMENT Rl CONTAINS TYPE OF NUMBER AT ENTRY AND EXIT; 
P RO C £ OUR E C ON V £R T 1 ( R 3 ) ; 

BEGIN RO := FIRSTNOI; IF RO < THEN 
BEGIN RO := NEG RO; FC0N1L0W := RO; 
END ELSE 

BEGIN FC0N1L0M : = RO ; F01 : = FCDN1; 
END; 

F0.1 := F01 + OLI 
END; 



NEXTBUFBASE 3= R7; 



F01 := MEG FCONlj 



PROC EDURE C ON VERT 2 ( R 3 } ; 

BEGIN RO := CURBUFI; IF RO < THEN 

BEGIN RO := NEG RO; FC ONI LOW := RO; 

END ELSE 

BEGIN FCQN1L0W : = RO ; F01 := FC0N1; 

END; 

F01 := F01 + OL; 
END; 

R2 := Rl; RO := RO-RO; IC<RO f PR0GRAMMUR6}) ; 



F01 : = NEG FCONlj 
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15 


O0 5C 


09 


0840 


15 


06 4 


09 


0340 


15 


C06E 


09 


0840 


15 


0C7A 


09 


0840 


15 


8 6 


09 


840 


15 


0C86 


09 


0840 


15 


0C86 


09 


0840 


15 


0093 


09 


(?840 


15 


CGA6 


09 


0840 


15 


00 B 4 


G9 


0840 


15 


0OC2 


09 


0840 


15 


OODO 


9 


340 


15 


00E3 


09 


0840 


15 


00 FO 


09 


08 40 


15 


OOFO 


09 


0840 


15 


00 FO 


09 


0840 


15 


OOFO 


09 


840 


15 


01 CO 


09 


0340 


15 


01 A 


09 


840 


15 


0122 


09 


0840 


15 


012A 


09 


0840 


15 


0132 


09 


0840 


15 


0146 


09 


0340 


15 


C150 


09 


0840 


15 


0168 


09 


0840 


15 


016C 


09 


0840 


15 


0178 


09 


0840 


15 


01 7E 


09 


0840 


15 


017E 


09 


0840 


15 


017E 


09 


08 40 


15 


C188 


09 


0840 


15 


ciaa 


09 


0340 


15 


1 8 3 


09 


08 40 


15 


0190 


09 


0840 


15 


0190 


09 


0840 


15 


0190 


09 


0840 


15 


01AO 


09 


0840 


15 


01A4 


09 


0340 


15 


1 A4 


09 


08 40 


15 


01 BO 


09 


0840 


15 


0164 


09 


0840 


15 


01B4 


09 


0840 


15 


01CC 


09 


0840 


15 


1C4 


09 


0840 


15 


01 04 


09 


0840 


15 


0100 


09 


0340 


15 


01CC 


09 


840 


15 


01F4 


09 


0840 


15 


Q1F4 


09 


0840 


15 


1 F 8 


09 


0840 


15 


OIF 8 


09 


0840 


15 


OIF 8 


09 


0340 


15 


0203 


09 


0340 


15 


G21Q 


09 


0840 


15 


€210 


09 


0340 


15 


02 I C 


09 


0840 


15 


0220 


09 


0840 


15 


0220 


09 


0340 



085 9 
36 
0861 
0362 
9 3 3 
0864 
0865 

086 6 
86 7 
036 8 

086 9 
0870 
371 

087 2 
0873 
0874 
37 5 
0876 
0377 
378 
0879 
0880 

038 1 
0382 
0883 
0834 
083 5 
0886 
0887 
0338 
0389 
089 
089 1 

039 2 
893 
0894 
089 5 
0396 
0897 

089 8 
399 
0900 
0901 
0902 
0903 
0904 

090 5 
0906 
0907 
0908 
0909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 



IF RO = MINUS CODE THEN 

BEGIN R7 := NEXTBUFBASE; R3 := R3-R3; IC ( R3, NEXTBUF ) J 
R7 := CURBUFBASE; IF R3 -v= «*« THEM 

BEGIN R3 := 3PR0GRAMM3 < R6) ; CLK#FE,B3)J IF -.= THEN 
BEGIN CASE 82 OF 
BEGIN 

BEGIN RO := NEG CURBUFI; CURBUFI := RO; END; 
BEGIN FO := NEG CURBUFR; CURSUFR := FO; END; 
BEGIN F01 := NEG CURBUFLR; CURBUFLR '= F01; END; 
BEGIN FO := NEC CURBUFR(4); CURBUFR {4) := FO; END; 
BEGIN F01 := NEG CURBUFLRJ8}; CURBUFLR* 8) i- FOli END? 
END; 

RO : = PLUSCOD E; STC i RO , PROGRAMM 1 ( R6 )) ; 
END; 
END; 
E ND ; 

IF R6 = I MACROS AND RO = PLUSCODE THEN 

B EG I N R2 : = NU M POS ; R 3 : = R 3 - R 3 ; I C ( R 3 , PR OCR AMM 1 1 R2) ) I 
IF R3 = LPARENCOQE OR R3 = ASSIGNCODE OR R3 = PLUSCODE OR 

R3 = COMMACODE THEN 
BEGIN R7 := NEXTBUFBASE; RO := NEXTBUFTYPE; 

IF RO = 1 AND Rl = 1 THEN R7 := CURBUFBASE ELSE 
BEGIN RO := RO - RO ; I C( RO, NEXTBUF ) ; 

IF ro = «•*»» OR RO = "/" OR RO = **-." THEM R7 := CURBUFBASE 
ELSE 
BEGIN R6 z- R2; R2 := R2 - R2; IC (R 2, PROGRAM* R6+ 1) ) 5 
R3 := Rl; R7 := CURBUFBASE; 
COMMENT R2 HAS TYPE OF PREVIOUS NUMBER 

R3 HAS TYPE OF NUMBER IN CURBUF; 
R4 := o)PROGRAH{R6+2) ; MVC( 15 , F IRSTNO, B4 ) ; 
CASE R2 OF 
BEGIN 

BEGIN COMMENT FIRST NUMBER IS INTEGER; 
CASE R3 OF 
BEGIN 

BEGIN RO := FIRSTNOI + CURBUFI; 

CURBUFI := RO; 
END; 
BEGIN CONVERT!; FO := FO + CURBUFR; 

CURBUFR := FO; 
END; 
BEGIN CONVERTl; F01 : = F01 + CURBUFLR; 

CURBUFLR := F01; 
END; 

BEGIN CONVERTl; CURBUFR : = FO; END; 
BEGIN CONVERTl; CURBUFLR : = FOlj END; 
E ND ; 
END; 

BEGIN COMMENT FIRST IS REAL; 
CASE R3 OF 
BEGIN 
BEGIN C0MVERT2; FO := FO + FlRSTNOR; 

CURBUFR :■= FO ; Rl := 2; 
END; 
BEGIN FO := FlRSTNOR + CURBUFR; 

CURBUFR := FO; 
END; 
BEGIN F01 := CURBUFLR; FO := FO + FlRSTNOR; 



tmmmmtmmmmmimmmmm 
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15 


022C 


09 


0840 


15 


0234 


09 


0840 


15 


02 34 


09 


0840 


15 


240 


09 


0340 


15 


024 


09 


8 40 


15 


02 54 


09 


0840 


15 


0258 


09 


0340 


15 


02 5 3 


09 


840 


15 


02 70 


09 


8 40 


15 


027C 


09 


034-0 


15 


0274 


09 


0840 


15 


0274 


09 


0340 


15 


2 74 


09 


0840 


15 


0284 


09 


0840 


15 


28C 


09 


340 


15 


02 8C 


09 


0340 


15 


C2 9 8 


09 


0840 


15 


02 9C 


09 


0840 


15 


02 9 C 


09 


08 40 


15 


02A8 


09 


0840 


15 


02AC 


09 


0840 


15 


2 AC 


09 


0840 


15 


0288 


09 


0840 


15 


2C4 


09 


340 


15 


02 DC 


09 


0840 


15 


02 DC 


09 


0840 


15 


O2E0 


09 


840 


15 


02E0 


09 


0840 


15 


02E0 


09 


0840 


15 


02F0 


09 


0840 


15 


02 F 8 


09 


0840 


15 


03 CO 


09 


0840 


15 


300 


09 


0840 


15 


C310 


09 


0840 


15 


3 IC 


09 


0840 


15 


031C 


09 


0340 


15 


032 8 


09 


0840 


15 


033 


09 


0340 


15 


033 8 


09 


0840 


15 


0338 


09 


0340 


15 


0348 


09 


840 


15 


0354 


09 


0340 


15 


0354 


09 


08 40 


15 


0360 


09 


0840 


15 


0363 


09 


0840 


15 


0370 


09 


0840 


15 


0374 


09 


0840 


15 


03 74 


go 


0840 


15 


3 8C 


09 


0340 


15 


03 8C 


09 


0840 


15 


3 90 


09 


0840 


15 


030 


0^ 


8 40 


15 


039 


09 


0840 


15 


O3A0 


09 


0840 


15 


C3A3 


09 


0840 


15 


3 80 


09 


0840 


15 


0360 


09 


0840 


15 


03BC 


09 


0340 



0917 
9 1 8 
919 

92 
0921 
092 2 
0923 
924 
9 2 5 
92 6 
0927 
92 8 
0929 
0930 
0931 
0<J32 
09 33 
0934 
0935 
0936 
0937 
193 8 
939 
0940 
0941 

094 2 
0943 
0944 
0945 
0946 
0947 
0948 
949 
09 50 
0*951 
09 52 
0^53 
09 54 

095 5 
0956 
0957 
95 8 
0959 
0960 
0961 
0962 
09 6 3 
0964 

096 5 
966 
0967 

096 8 
0969 
0970 

097 1 
0972 
9 73 
09 7 4 



CURBUFR := FO; Rl := 2; 
END; 

BEGIN FO := FIRSTNOR; CURBUFR := FO; END; 
BEGIN FO := FIRSTNOR; CURBUFR := FO; 

F01 := CURBUFLR* 8); CURBUFR (4) := FO; 

Rl := 4; 
end; 
end; 
end; 

BEGIN COMMENT FIRST NUMBER IS LONG REAL; 
CASE R3 OF 
BEGIN 

BEGIN C0NVERT2; F01 := FO 1 + FIRSTNOLR; 
CURBUFLR :■= F01; Rl := 3; 

end; 

BEGIN F01 := FIRSTNOLR; FO := FO + CURBUFR; 

CURBUFR := FO; 
END; 
BEGIN F01 := CURBUFLR + FIRSTNOLR; 

CURBUFLR := FOU 
END; 

BEGIN F01 := FIRSTNOLR; CURBUFR := FO ; END; 
BEGIN F01 := FIRSTNOLR; CURBUFLR -i- FOU END; 
END; 
END; 

BEGIN COMMENT FIRST NUMBER IS COMPLEX; 
CASE R3 OF 
BEGIN 

BEGIN C0NVERT2; FO := FO + FIRSTNOR; 
CURBUFR := FO; FO := FIRSTNGMM ; 
CURBUFRC4) := FO; Rl := 4; 
END; 
BEGIN FO := FIRSTNOR + CURBUFR; CURBUFR := F0| 

FO := FIRSTN0RC4); CURBUFR! 4) := FO; Rl := 4; 
END; 

BEGIN F01 := CURBUFLR; FO : = FO + FIRSTNOR; 
CURBUFR := FO; FO := FIRSTN0R(4); 
CUR8UFRJ4) := FO ; Rl := 4; 
E NO ; 
BEGIN FO : = CURBUFR + FIRSTNOR; CURBUFR := FO; 

FO := CURBUFM4) + FIRSTN0R(4); CURBUFRi 4) : =F0; 
END; 

BEGIN F01 := CURBUFLR; FO := FO + FIRSTNOR; 
CURBUFR := FO; F01 := CURBUFLR (8) J 
FO := FO + FIRSTN0RI4J; CURBUFRI4) := FO; 
Rl := 4; 
END; 
END; 
END; 

BEGIN COMMENT FIRST NUMBER IS LONG COMPLEX; 
CASE R3 OF 
BEGIN 

BEGIN C0NVERT2; F01 := FO 1 + FIRSTNOLR; 
CURBUFLR s= F01; F01 := F IRSTNOLRC 8) % 
CURBUFLR (8) := F01; Rl : = 5% 
END; 

BEGIN F01 := FIRSTNOLR; FO := FO + CURBUFR; 
CURBUFR ',■■= FO; 



9 w M n m n mu w 
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15 


03CO 


09 


0840 


15 


03 CC 


09 


0340 


15 


03CC 


09 


0840 


15 


C3D9 


09 


8 40 


15 


03 EC 


09 


0840 


15 


03E3 


09 


840 


15 


03 E 8 


09 


0840 


15 


03F4 


09 


0340 


15 


03F8 


09 


340 


15 


4C0 


09 


0840 


15 


0404 


09 


0840 


15 


C4C4 


09 


0840 


15 


0410 


09 


0840 


15 


€414 


09 


0840 


15 


041C 


09 


0840 


15 


0420 


09 


0840 


15 


C4 2 


09 


0840 


15 


43 8 


09 


0840 


L5 


43 3 


09 


0840 


15 


G450 


09 


0340 


15 


0450 


09 


0840 


15 


0450 


09 


8 40 


15 


045 


09 


0340 


15 


45 


09 


0840 



097 5 
976 
977 

097 8 
0979 

098 
0981 

098 2 
0983 
0934 
0935 
0986 
0987 
0938 
0989 
990 
099 1 
0992 
0993 
0994 

099 5 
0996 
099 7 
0993 



69.325 a 23:49 
CURBUFR {4} := FO; Ri := 4J 
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F01 := FIRSTNOLR? 8) ; 
E ND J 
BEGIN FOl :■= FIRSTNOLR +■ CURBUFLR; 

CURBUFLR : = FOl; FOl := FIRSTNOLR! 8) ; 

CURBUFLR* 8) := FOl; Rl s= 5; 
END; 
BEGIN FOl := FIRSTNOLR; FO : = FO + CURBUFR; 

CURBUFR := FO; 

FOl := FIRSTNDLRI8) ; FO := FO + CURBUFRC4) J 

CURBUFR (4) := FO J 
END; 
BEGIN FOl := CURBUFLR + FIRSTNOLR; 

CURBUFLR := FOl; 

FOl := CURBUFLR! 8) + FI RSTN0LRC81 ; 

CURBUFLR (8) := FOl; 
END; 
END; 
end; 

END; 

END; 
end; 
END; 
end; 
end; 



SEGMENT 15 NAME = SEG#15 



LENGTH = 0470 BASE REG = 15 



G8 


546 


09 


340 


08 


546 


09 


0840 


08 


0546 


09 


840 


08 


54A 


09 


0840 


08 


0550 


09 


0840 


08 


055A 


09 


840 


08 


C55C 


09 


0340 


08 


0560 


09 


0840 


C8 


0566 


09 


0840 


08 


514 


09 


0840 


08 


5 74 


09 


08 40 




0576 


09 


0840 


08 


5 76 


09 


0340 


08 


576 


09 


0840 


16 


0000 


09 


0840 


16 


00 oc 


09 


0840 


16 


0016 


09 


0840 


16 


C022 


09 


0840 


16 


002E 


09 


340 


16 


036 


09 


0840 


16 


003C 


09 


0840 


16 


0044 


09 


0840 


L6 


004C 


09 


840 


16 


0C6 


09 


0840 


16 


006 3 


09 


084 


16 


0C72 


09 


0840 


16 


C086 


09 


0840 


16 


CCSA 


09 


0840 


16 


00 9 A 


09 


0840 


16 


009E 


09 


0840 


16 


00 A A 


09 


0840 



0999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1.016 
1017 
1018 
1019 
1020 
1 02 1 
1022 
1023 
1024 
1025 
1026 
1027 
102 8 
102 9 



PROCEDURE MOVETABLE(RIO); 
BEGIN RO :-= 256; 

WHILE R3 >= RO DO 

BEGIN MVC(255 f Bl*B2); Rl s= Rl + RO ; R2 := R2 + RO ; 
R3 := R3 - RO; 

END; 

IF R3 •-■= THEN 

BEGIN R3 := R3 - 1; EX (R3,M0VE12) ; Rl := Rl + R3 + lj 

END; 
END; 

SEGMENT PROCEDURE I NI T I AL I ZE < R9) j 
BEGIN 

RO := 6144; Rl := RO; R3 := AGETMAIN; BALR(R2tR3); COMMENT GETMAIN3 
CHAIN := RO; STM( R0,R1 ,CHAININFO) ; RO :* RO-RO; 

R7 := SSYNBUFFERS; CURBUFBASE := R7; MVI (#0O,CUR8UF) ; 

CUR8UFTYPE := RO ; R7 := 5)67(264); NEXTBUFBASE := R75 

MVI(#00,NEXT8UF) ; NEXT8UFTYPE := RO; 

LM(RO f Rl»C0MMLIMJ; Rll J= RO; COMMENT OBTAIN COMMON LIMITS; 

R6 := Rl - RO + 1; COMMENT COMMON SIZE; 

Rl := Rl - 20; PROGUMIT *= Rl ; 

RO := ISYMBOLINDEX-12 SHLL 16 OR 12; BLOCKLISTCO) r= RO; 

R3 := 511; BLLIMIT '= R3; 

R7 := 3NAHETABLE; R2 := SNAMETFILL; Rl := R7; 

R3 := ISYM80LINDEX; SYMBOL INDEX := R3; MOVETABLE; 

FOR R5 s= 540 STEP 12 UNTIL 703 DO 

begin ro .:= nametablec r5) and #fff or #00000; 

nametable(rs) ; = ro ; 
end; 
r6 := 3b1kr6) - r7; if r6 > #2aaa8 then r6 := #2aaa8; 
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16 


00 BC 


09 


0340 


16 


OOBC 


09 


0840 


16 


OOCC 


09 


08 40 


16 


0006 


09 


0840 


16 


C0L4 


09 


0840 


16 


00 FO 


09 


840 


16 


OOF 3 


09 


0840 


16 


0102 


09 


0840 


16 


0118 


09 


0840 


16 


120 


09 


0940 


16 


012 8 


09 


0840 


16 


012E 


09 


0840 


16 


0142 


09 


0840 


16 


014 8 


09 


0840 


16 


015 8 


0*3 


0840 


16 


0164 


09 


0840 


L6 


16 E 


09 


0340 


16 


C17E 


09 


0840 


16 


018E 


09 


0840 


16 


019E 


09 


0840 


16 


01AA 


09 


0840 


16 


01B2 


09 


0840 


16 


oi e a 


09 


0840 


16 


QIC 2 


09 


0840 


16 


01CA 


09 


840 


16 


01D6 


09 


0840 


16 


01E2 


09 


0840 


16 


1 E E 


09 


0840 


16 


01FE 


9 


0340 


16 


02 OE 


09 


0840 


16 


212 


09 


0840 


16 


02 1C 


09 


840 


16 


0228 


09 


0840 


16 


0232 


09 


0840 


16 


C236 


09 


0840 


16 


0246 


09 


840 


16 


025E 


09 


0840 


16 


026A 


09 


840 


16 


026 E 


09 


840 


16 


02 7A 


09 


0840 


16 


0282 


09 


0840 



1030 
1 03 1 

108 2 
1033 
1034 
103 5 
103 6 
103 7 

103 8 
1039 
1G40 

104 1 
104 2 
1043 
1044 
1045 
1046 

1 04 7 
1048 
1049 

105 
1051 
105 2 
1053 
1054 
1053 
1056 
105 7 

105 8 
1059 
1060 

106 1 
1062 
1063 
106 4 
10 6 5 
106 6 
1067 
106 8 
106 9 
1070 



COMMENT R6 HAS SIZE OF DYNAMICALLY ALLOCATED COMMON; 
R5 :'= R6 SHRL 4 * 3S AMO #FFFFF8; R7 := R7 + R5J 
RO := R5 - 16; SCRATCH INDEX := RO ; 
RFFREC8ASE := R7 ; RFRCLIST8ASE : = R7; XC{ 1, 37, 87) .; 



R5 := R6 SHRL 

IDDBASE := R7 

Rl := R7 

RO := R3 

R 5 : = R 5 

I DL I ST BASE : = 

Rl := R7; R2 



5 AND #FFFFFC 



07 



R7 + R5: 



IDOIRBASE := 

; R2 := aiODIRFILL; 

- 4; 



R5; 



p. 7; 

P. 3 := I IDDIRINDEX; 
IDDIRINDEX := RO ; MOVETABLE; 

IDDIRLIMIT := R5; R7 := R7 + R5; 
R7; I0L3ASE :- R7; 

= sioltstfill; 

R3 := IIDLISTINOEXJ IOLISTINDEX s= R3; MOVETABLE; 

R5 := R5 + R5; I DL I STL I HIT := R5; 

R7 := 3B7{R5+48); INPOINT : = R7; R7 : = R7 - 4; PRBASE := R7; 

RESET (NOGO); RESET { TRACE ) ; SET CCHECKFLAG) ; 

SEHCARDFLAG); XC (7 ,TR ACEBITS , TRACE8ITS ) ; 

XC < 1 5, FL AGS , FLAG S ) ; XC ( 3, PARC), PARD) I SET < LI STFL AG) ; 

RO : = _5S; ERRORCOOMT := RO; RO := 195; ERRORLIMIT := RO; 

RO := 0; STACKINDEX s = RO; 8L0CKN0 := RO ; CARDCOUNT := RO; 

RLISTPOINT := RO; IMC NT := RO; TYPE := RO; 

NESTLEVEL := RO; RESET tL INEHOLDJ ; 

= 1; RECORDNO := RO; 

:= #4E00OO00OOO0O00OL; FC0N1 := F01; 

: = #47OOOOOOOO00000OL; FC0N2 := F01; 



# 
# 



RO 

F01 

F01 

RO 

R3 

R6 

RO 

R4 



3RESERVED2; 

aRESERVED5; 
3RESERVE08; 
53CODL2; Rl 
it)C0DE6j R5 



R2 

R5 



:= 3RESERVE04; 

:= 3RESERVED7; 



:= 3RESERVED3J 

:= aRESERVED6; 
:= 3RESERVED9; STM{R0,R7, RESAD0RC4) }; 
0DE3; R2 := 3C0DE4; R3 := 3CODE5 5 

R7 := 3C0DE9; 



Rl 
R4 
R7 

= act 

= aC0DE7; R6 := iCOOESi 
STM(R0,R7,CQ0EADDR(4) ); 

MVK" », INBUF); MVC( 130, INBUF 1 1 ) » INBUF ) ; 
XC(159,HASHIDf HASHIDJi HVC U59,HASHI0{ 160),HASHI01 ; 

R7 := CURBUFBASE; R12 := IDOIRBASE; R3 i= R3-R3; 

FOR R2 :■= 4 STEP 4 UNTIL IDDIRINDEX DO 

BEGIN R4 := I DOIRLNGJ R2 ) ; Rl :- IDDIRINDIR2) + IOLISTSASEJ 



IC(R1,81); HASH; 
Rll := CHAIN; R4 
HASHID(Rl) : = R3; 

END; 

r6 := prbase; r5 := 1; 
end; 



R3 := R3 + 2| 
:= HASHIDCR1) J 



Rl s= Rl SHLL l; 
CHAINIDCR3) : = R4J 



SEGMENT 16 NAME = SEG#16 



LENGTH = 0208 BASE REG = 15 



08 


0576 


09 


0840 


08 


576 


09 


0840 


08 


576 


09 


0840 


17 


0000 


09 


0840 


17 


0010 


09 


840 


17 


0014 


09 


0840 


17 


0024 


■ 09 


0840 


17 


0024 


09 


08 40 


17 


002C 


09 


0840 


17 


003 2 


09 


0840 


17 


004E 


09 


0840 


17 


005 2 


09 


0840 


17 


O056 


09 


0840 


17 


0060 


09 


0840 



1071 

1072 SEGMENT PROCEDURE CLEANUP <R9 ) ; 

107 3 BEGIN 

1074 IF LISTFLAG AND LINEHOLO THEN 

1075 BEGIN RESET(LINEHOLD) ; 

1076 RO := aiNBUF; PRINT; 

1077 END; 

1078 SETtENDDOTJi Rl := STACKINDEX; 

1079 WHILE Rl > DO 

1080 BEGIN CLOSEBLOCK; R4 := 3; ERROR; COMMENT 

1081 Rl := STACKINDEX; 

108 2 END; 

1083 MVK" ".OUTPUT); MVC <130 f OUTPUT! 1) , OUTPUT ) ; 

1084 Rl := 0; Rll := NTBASEj IF Rl <= ERRORCOUNT THEN 



ERROR NO 3; 
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17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 

17 



0070 
00 7 A 
00 84 
0038 
C "5 3 
00 9 8 
CC98 
00 A 6 
00 30 
OOP- A 
Q0C4 
OOCE 
00D8 
G0E2 
00 EC 
OOF 6 
0100 
010A 
0114 
i 1 E 
0156 
0166 
0170 
017 
017C 
0184 
0106 
0106 
01A2 
01AE 
01C2 
01CA 
01E6 
01FE 
0202 
0216 
02 26 
0226 
0244 
0250 
25C 
0266 
02 7A 
027A 
0284 
0203 



09 

09 
09 
09 
09 

09 
09 
09 
0« 

09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 



0840 

0840 

0840 

0840 

0840 

0340 

0840 

840 

8 40 

G840 

0340 

C840 

840 

340 

840 

0840 

0840 

840 

840 

0840 

084-0- 

0840 

0840 

0840 

0840 

0840 

0840 

0840 

840 

0840 

0840 

0840 

0840 

0840 

0840 

0840 

840 

0840 

0840 

0840 

0840 

0840 

0840 

0840 

0840 

0840 



103 5 
108 6 
1087 

108 8 
1089 
1090 
1091 
1092 

109 3 
1094 
1095 
10<?6 
1097 

109 8 
1099 
1100 
1101 
1102 
1103 

110 4 
110 5 
110 6 
110 7 
1108 

110 9 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 

1 1 1 9 
1120 
1121 

112 2 
1123 
1124 
1125 
112 6 
1127 
1128 
1129 
1130 



BEGIN R4 := TERRORS; 
MVI ("1", CARRCONT) ; 
FOR R4 := R4 STEP 
BEGIN Rl : = Rl-Rl 
CASE Rl OF 
BEGIN 

MVC( 17, OUTPUTJ 20) ."INCORRECT 
MVCU7 .OUTPUT ( 20) ."INCORRECT 



R3 := R4 + ERRORCOUNT; 
M VC ( 1 7 1 UT P U T , "C A R D NO . 
UNTIL R3 DO 
IC(R1,B4); MVC(3tOUTPUT(10) 



') J Rl := 0? 



B41D) 



SPECIFTN") 
CONSTANT") 



MVC (17, OUTPUT { 20) , "MI SS I NO 
MVC< 17,0UTPUT( 20) ."MISSING 
MVC { 1 7 , OU T PUT < 2 ) , " MISS I N G 
MVC (17, OUT PUT { 20 ) , » I L LEGAL 
HVC< 17, OUTPUT (20) 



END 
BEGIN 
) 

CHARACTER 
FINAL . 



"); 
"); 

")5 

"); 
") ; 



."MISSING 

HVC(17,OUTPUT<20) , "STRING LNGTH ERROR") 
MVC{ 17, OUTPUT! 20) ."BITS LENGTH ERROR ") 

."MISSING i 
,"T00 MANY ERRORS 



MVCt 17, OUTPUT (20) 
MVC( 17, OUTPUT (20) 

MVCt 17, OUTPUT! 20) , "TABLE OVERFLOW 



MVC( 17, OUTPUT (20) 

END; 

RO := aOUTPUT; PRINT; 
END; 
END ELSF 

IF -. CHECKFLAG THEN 
BEGIN RO := OOUTPUT 



ID LENGTH > 256 



,. ) . 

") I 

"); 



OH"C", CARRCONT) ; 

OPTION SPECIFIED") 



PRINT 



MVC ( 2 3 .OUTPUT , "NOCHE CK 

END; 

BLOCKNO SHLL 2; 8L0CKLISTS IZE s= R3 ; 
SYMBOLINDEX - 12; NAMETABLE SI Z6 :■= R3; 
3NAMETABLE *■ SYMBOLINDEX + 19 AND #FFFFF8; R2 

+ 2; REFREC8ASE := Rl; MOVETABLE; 

#FFFFFC; R2 := 100BASE; 

+ 4; IDD8ASE := Rl; MOVETABLE; 



R3 

R3 
Rl 
R3 
Rl 
R3 
R2 
R3 
Rl 



REFREC8ASE; 



RLISTPOINT 

Rl + 3 AMD 
1DDIRIN0EX 
IOLBASE; 

IDLISTINDEX; IDLBASE : = Rl; MOVETABLE; 
Rl + 3 AMD #FFFFFC + 48 ; ' R2 := INPOIMT; 
COMMENT PASS 2 LITERALS START 48 BYTES BEFORE PASS 
R3 := R6 + 11 AND #FFFFF8 - INPOINT; INPOIMT := Rl; 
Rl := Rl «- 7 AND #FFFFF8; TREEBASE := Rl; 
IC(R5,TRACEFLAG) ; IF P. 5 = 8 THEN 

Rl := TREEBASE - RO; 
DUMP; R14 := SAVE14; 



1 OUTPUT! 
MOVETABLE; 



BEGIN RO := INPOINT; 
MVI ("1", CARRCONT) ; 
END; 

L M ( RO f Rl f CH A I N I N FO ) ; 
TE ST < NOP ASS TWO); IF 
END; 



R3 := AFREEMAIN; 
= THEN RO := 1 



BALR(R2,R3); 
ELSE RO := Qi 



SEGMENT 17 NAME = SEG#17 



LENGTH = 03F0 BASE REG =15 



08 


576 


09 


840 


08 


576 


09 


0840 


08 


576 


09 


0841 


08 


05 76 


09 


0841 


00 


05 83 


09 


841 


08 


059A 


09 


0841 


08 


59 A 


09 


0841 


•%j Q 


05 9 A 


09 


0841 


08 


59 A 


09 


84 1 



1131 
1132 
1133 
1134 
113 5 
1136 
1137 
1138 
1139 L: FETCHSYMBOL; R3 := CURBUFTYPE; 



BYTE SEGMENTENO; COMMENT *** LAST DECLARATION IN SEGMENT *** 5 

SAVE14 := R14; RETADDR := RIO; INITIALIZE; 
R9 := _1; FETCHCARD; FETCHSYMBOL; 

COMMENT BEGIN MAIN ROUTINE; 
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08 


05A2 


09 


0841 


08 


05AE 


09 


0841 


08 


05AE 


09 


841 


08 


5BA 


09 


0841 


08 


05 CO 


09 


0841 


08 


05C8 


09 


0841 


8 


C5C3 


09 


0841 


8 


C5C3 


09 


0841 


08 


C5CC 


09 


08 41 


08 


05E2 


09 


0341 


08 


05F2 


09 


0841 


8 


5F2 


09 


0841 


08 


5 F 2 


09 


841 


G8 


C6C2 


09 


841 


8 


06CE 


09 


0841 


08 


061 A 


09 


841 


08 


6 22 


09 


0841 


08 


6 2 2 


09 


0841 


08 


0636 


09 


0841 


08 


0636 


09 


0841 


08 


G63E 


09 


0841 


08 


0656 


09 


0841 


08 


G656 


09 


0341 


08 


66E 


09 


0841 


08 


067A 


09 


0841 


08 


06 7 A 


09 


0841 


08 


067E 


09 


0841 


08 


068 8 


09 


0841 


08 


0604 


09' 


0841 


08 


0694 


09 


0841 


8 


0694 


09 


0841 


8 


C6A4 


09 


0841 


8 


06 A 4 


09 


0841 


00 


06A4 


09 


0841 


08 


0680 


09 


0841 


8 


06B4 


09 


0841 


08 


06C2 


09 


0841 


08 


0600 


09 


0841 


C8 


06 08 


09 


841 


8 


06EC 


09 


0841 


08 


06E4 


09 


0841 


08 


G6F2 


09 


0841 


08 


06FC 


09 


841 


8 


06FC 


09 


0841 


08 


070C 


09 


0841 


08 


C7CQ 


09 


0841 


08 


0704 


09 


0841 


8 


C710 


09 


341 


08 


0718 


09 


841 


8 


C726 


09 


0841 


08 


726 


09 


0841 


08 


738 


09 


08 41 


8 


C73 3 


09 


08 41 


08 


07 3C 


09 


0341 


08 


0744 


09 


0841 


8 


74 8 


09 


0841 


08 


075A 


09 


0841 


08 


07 5 A 


09 


0841 



1140 
114.1 
1142 
1143 
1144 

114 5 
1146 
1147 
1.143 
1149 

115 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1 164 
1165 
1166 
1167 
1168 

116 9 
1170 
1171 
1172 
1173 
1174 

1 17 5 
1176 
117 7 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1137 
1138 
1139 
1190 
1191 
1192 
119 3 
1194 
.119 5 
1196 
1.197 



LI 



IF R6 >= PROGLIHJT THEN STOP; COMMENT PROGRAM TOO LONG? 
CASE R3 OF BEGIN 
BEGIN MATCHRESERVED; 

IF R5=R3 THEM 

BEGIN IDSEARCH; GOTO L; 

END? 

end; 

BEGIN 

Rl := CURBUFCOUNTJ NUMBEROPT; CURBUFCOUNT : = Rlj NUMPOS := R6J 
Rl := NUMBEP.CDDE; OUTCODE; Rl := CURBUFCOUNT; OUTCODE; 

CASE Rl- OF 
BEGIN 

BEGIN R2 := CURBUFI; 0UTC0DE4; END; 

BEGIN R2 := CURBUFI; OUTGO DE4; END; 

BEGIN R2 := CURBUFI (4); 0UTC0.DE4; 
R2 := CURBUFI (8); 0UTC0DE4; 

END; 

BEGIN R2 := CURBUFI; 0UTC0DE4; R2 := CURBUFII4); 0UTCQ.DE4; 

END; 

BEGIN FOR R3 := 4 STEP 4 UNTIL 16 DO 

BEG I N R2 : = C URBUF I ( R3 ) ; 0UTC0DE4 ; END; 

EN ; 
E NO ; 
R2 := R6 *■ 93; IMAGPOS := R2; GOTO L; 

EMU; 

BEGIN 

MATCH SYMBOL; IF R3 -•= R5 THEN 

BEGIN «4 := 6; ERROR; GOTO L; 

END; 
END; 

end; 

CASE R2 OF 

BEGIN 

GUTCOOE; COMMENT SYMBOLS NEEDING NO PROCESSING; 1 

BEGIN COMMENT BITS SIGN # ; 2 

OUTCODE; Rl := CURBUFCOUNT; RO := 0; R2 ?= ROS 

IF Rl = OR Rl > 8 THEN 

begin r4 := 9; error; end else 
begin icir2, curbufi 1)} ; 

for r3 := 2 step 1 until rl do 

begin ic( ro, curbufi r3> 5; r2 := r2 shll 4 or ro; 

end; 
end; 

OUTCODE 4; 

END; 

BEGIN COMMENT STRING QUOTE « ; 3 

R7 := NEXTBUFBASE; OUTCODE; Rl := NEXTBUFCOUNT; 

IF Rl = _1 THEN 

BEGIN R4 := 8; ERROR; Rl := Rl - Rl; NEXTBUFCOUNT := Rlj 

END; 

OUTCODE; OUTSTRING; AOVANCESYMBOL; 
END ; 
BEGIN COMMENT : ; 4 

R7 := NEXTBUFBASE; CL I( *»=" , NEXTBUF ) ; 

IF = THEN 

BEGIN Rl := ASSIGNCODE; OUTCODE; AOVANCESYMBOL; 

END ELSE 

BEGIN CLH":"f NEXTBUF); 
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8 


0762 


G« 


08 41 


ca 


0766 


09 


0841 


08 


0778 


09 


0841 


3 


0773 


09 


0341 


3 


0783 


09 


0841 


08 


0790 


OQ 


0841 


8 


07 9C 


09 


08 41 


3 


07A4 


09 


0341 


CO 


7 80 


09 


0341 


3 


07 BO 


09 


0841 


8 


07B0 


09 


341 


08 


07 HO 


09 


0841 


08 


C7BC 


09 


341 


3 3 


0704 


09 


0341 


08 


C7GC 


09 


0841 


08 


G7C0 


09 


0341 


08 


07D2 


09 


841 


08 


07D2 


09 


0841 


08 


070E 


09 


0841 


08 


07E6 


09 


0841 


8 


C7F2 


09 


0841 


03 


07F2 


09 


0841 


08 


07F2 


09 


0841 


08 


C7F6 


09 


0841 


03 


7FA 


09 


0841 


08 


7FE 


09 


0841 


8 


08G6 


09 


0841 


08 


812 


09 


0341 


08 


0812 


09 


0841 


08 


816 


09 


341 


08 


816 


09 


08 41 


8 


G81A 


09 


0841 


08 


8 IE 


09 


0841 


08 


826 


09 


0841 


08 


8 2A 


09 


0341 


08 


32E 


09 


0841 


08 


093A 


09 


0841 


08 


OS 40 


09 


0841 


08 


84 3 


09 


0841 


03 


554 


09 


841 


08 


C8 54 


09 


0841 


08 


C860 


09 


0841 


8 


0S64 


09 


0841 


08 


0868 


09 


0341 


03 


086 8 


09 


841 


08 


08 74 


09 


0841 


08 


8 7C 


09 


0841 


08 


0884 


09 


0841 




0888 


09 


341 


08 


0890 


09 


0841 


08 


08A4 


09 


0841 


08 


8AA 


09 


0841 


08 


08AA 


09 


841 


08 


08 B6 


09 


0841 


08 


8B6 


09 


0841 


8 


8 36 


09 


0841 


08 


C8B6 


09 


0341 


3 


8B6 


09 


0841 



1198 
1199 
1200 
1201 
120 2 
1203 
1204 
120 5 
1206 
12 07 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
121<5 

1220 
1221 
122 2 
122 3 
1224 
1225 
1226 
122 7 
122 8 

122 9 
1230 
1231 

123 2 
1233 
1234 
123 5 
1236 
123 7 

123 8 
1239 
1240 
1241 
1242 
1243 
1244 

124 5 
1246 
1247 
124 8 
1249 
1250 
1251 
1252 
1253 
1254 
1255 



SPECCOLONJ OUTCOOE; ADVANCESYMBOL; 
■■ ; I C ( R 1 , PR0GRAMM3 < R6-1 ) ) ; 



IF = THEN 

BEGIN Rl : = 

END ELSE 

BEGIN OUTCOOE; Rl 

IF Rl = IOCODE THEN 

BEGIN Rl := #100; TYPE := Rl; Rl :* 0; 

SIMTYPEINFO := Rl; IC (R2, PR0GRAMM31 R6H ; 
P.2 := R2 SHLL 8; ICC R2, PR0GRAMM2I R6) ) ; INSYMBOL; 
END; 

end; 
end; 
end; 
begin comment * ; 

R7 := NEXTBUFBASE; CL l{ «*» ,NEXTBUF) ; 

IF = THEN 

BEGIN Rl := EXPONENT; OUTCOOE; ADVANCESYMBOL; 

END ELSE 

BEGIN OUTCODEJ R7 := CURBUF8ASE; 
CLK#01,FARRAYFLAG); IF = THEN 
BEGIN Rl := DIMCNT + 1; DIMCNT := Rl; END; 

END; 
end; 

BEGIN COMMENT ( ; 

CLI i #01, ARRAY FLAG) ; 
IF = THEN 
BEGIN RESET(ARRAYFLAG); RESET ( DECLARFLAG) ; 

CLI(#01,PROCFLAG) ; IF = THEN MV I ( #0 1, FARR AYFLAG) I 
END; 

UUTCODEj 
END; 

BEGIN COMMENT ); 

OUTCOOE; 

IF R5 <= PARI) THEN 
BEGIN CLI<#OltREFERFLAG); 
IF = THEN 

BEGIN RESET CREFERFLAG); Rl := RLISTPOINT + 2; 
RLISTPOIMT : = Rl; R2 := R2-R2 ; 
Rl •:= Rl + RFRCLISTBASE; REFRCDLLST := R2; 
IF Rl >= IDDIRBASE THEN STOP; 
END ELSE 

BEGIN CLI (#01f RECOROFLAGI; IF = THEN 
BEGIN RESET (RECORDFL AG) ; 

RESET{ DECLARFLAG); 
END ELSE 
BEGIN CLI (#01 ,PROCFLAG) ; IF = THEN 

BEGIN CLH #01,FARRAYFLAG) ; IF = THEN 

BEGIN RESETLFARRAYFLAG) ; Rl := DIMCNT; 
Rll := NTBASE; 

FOR R2 := SCRATCHINDEX + 12 STEP 12 UNTIL 
FARRAYPNT DO STC (Rl ,TYPEINF0(R2*t ) ) I 
Rl := Rl - Rl; DIMCNT := Rl; 
END ELSE 

BEGIN CLOSE8L0CK; RESET (PROCFLAG! ? 
END; 
END; 

END; 
END.; 

END; 
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C3 


8B-6 


09 


0841 


08 


8B6 


09 


0841 


8 


88 A 


09 


0841 


08 


08C6 


09 


08 41 


OB 


cacA 


09 


08 41 


08 


G3CA 


09 


0841 


8 


C8CE 


09 


08 41 


08 


08DE 


09 


841 


08 


08EA 


09 


0341 


8 


C8FA 


09 


0341 


08 


8 F A 


09 


341 


08 


C8FE 


09 


841 


08 


O9 0A 


09 


0841 


08 


0912 


09 


08 41 


08 


09 IF 


09 


0341 


08 


092E 


09 


0841 


8 


C93E 


09 


0841 


08 


093F 


09 


0341 


08 


09 3 E 


09 


0841 


8 


0946 


09 


0841 


08 


0*546 


09 


0841 


08 


094 A 


09 


841 


8 


0956 


09 


0841 


08 


09 56 


9 


0841 


08 


09 56 


09 


0841 


08 


966 


09 


08 41 


08 


OS 70 


09 


0841 


08 


09 7C 


09 


341 


08 


09 8E 


09 


0341 


8 


C98E 


09 


0841 


08 


099A 


09 


0841 


08 


09 A 4 


09 


0841 


08 


09 80 


09 


08 41 


8 


9C2 


09 


0841 


08 


C9C2 


09 


0841 


08 


09C2 


09 


841 


08 


9C6 


09- 


0841 


08 


09C6 


09 


841 


08 


09CE 


09 


0841 


08 


09 06 


09 


841 


08 


09 £6 


09 


0341 


8 


09 E A 


09 


0841 


08 


09EA 


09 


841 


08 


09EE 


09 


841 


08 


9F6 


09 


0841 


08 


C3 9F6 


09 


0841 


08 


09 FA 


09 


0841 


08 


09 FE 


09 


0841 


08 


OA0 2 


09 


841 


08 


OAOA 


09 


0841 


08 


0A16 


09 


0841 


8 


0A24 


09 


0841 


08 


0A24 


09 


08 41 


08 


0A24 


09 


0841 


08 


OA30 


09 


0841 


08 


0A44 


09 


0841 


C8 


0A44 


09 


0341 


08 


0A54 


09 


0841 



1236 
1257 
1253 
1259 
1260 
126 1 
126 2 
1263 
1264 
1265 
1266 
1287 

126 8 
1269 
1270 
1271 

127 2 
1273 
1274 
1275 
1276 
1277 

127 8 
1279 

128 
1201 
1282 
1283 
1234 
1285 

128 6 
1287 
1288 
1289 
1290 
1291 
1292 
12 9? 
1294 

129 5 
129 6 
1297 
1298 

129 9 
1300 
1301 

130 2 
1303 
1304 
130 5 
130 6 
130 7 
130 8 
1309 
1310 
1311 
1312 
1313 



SPECCOMMA; 



END 5 

BEGIN COMMENT , ; 

CLI (#01,0ECLARFLAG>; IF = THENR1 

OUTCODE; 

end; 

BEGIN COMMENT SEMICOLON; 9 

OUTCODE; IF K5<=PARD THEN RESET< DECLAP.FLAG) ; 
RCSET(REFERFLAG); RESET ( ARRAYFLAG ) ; RESET ( FAR P. AYFL AG ) J 
Rl := OJ SIMTYPEINFO := Rl; SETTYPE; TYPE := Rl; 

END; 

BEGIN COMMENT FOR; 10 

OUTCODE; OPENBLOCK; R7 := NEXTBUFBASE; 
IF R5 = NEXTBUFTYPE THEN 
BEGIN MATCHRESERVED; IF R3 = 1 THEN 

BEGIN IDSEARCH; R3 := #601; TYPE := R3; INSYMBOL; 

ADVANCESYMBOL; R3 := R3 - R3 ; TYPE := R3| 
END; 
END; 
CLOSEBLOCK; R7 := CURRUFBASE; 

end; 

BEGIN COMMENT LONG ; 11 

R7 := NEXTBUFBASE; R3 := NEXTBUFCOUNT; R4 := NEXTBUFTYPE; 
CASE R4 OF 
BEGIN 
BEGIN IF R3 = 3 THEN 

BEGIN CLC<3|NEXTBUF,«REAL W ) ; IF = THEN 

BEGIN MVI(#01 fDECLARFLAG) ; Rl := 3; SETTYPE; 

TYPE := Rl; ADVANCESYMBOL; Rl :* SIMPLETYPE; 
END; 
END ELSE IF R3 = 6 THEN 
BEGIN CLCC 6, NEXTBUF, "COMPLEX") ; IF = THEN 

BEGIN MV I UC1 fDECLARFLAG); Rl := 5; SETTYPE; 

TYPE := Rl; ADVANCESYMBOL; Rl s= SIMPLETYPE; 
END; 
END; 
OUTCODE; 

end; 

OUTCODE; 

OUTCODE; 

END ; 

R7 := CURBUF8ASE; 
END; 
BEGIN COMMENT BEGIN ; 12 

OUTCODE; OPENBLOCK; 
END; 
BEGIN COMMENT END; 13 

OUTCODE; 

R7 := NEXTBUFBASE; 

IF R5 = NEXTBUFTYPE THEN 

BEGIN MATCHRESERVED; IF R3 = 1 THEN 

BEGIN ADVANCESYMBOL; R7 := NEXTBUFBASE; 
END; 

END; 

Rl := NEXTBUFTYPE; IF Rl = 3 THEN 

BEGIN CLir, 'SNEXT8UF); IF = THEN SET { EFLAG) ELSE RESET* EFLAG ) I 

END; 

IF EOF OR EFLAG THEN 

BEGIN SET(ENDDOT); CLOSEBLOCK; 



• 
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08 


0A5C 


09 


08 41 


08 


0A64 


09 


08 41 


08 


0A6C 


09 


0841 


08 


0A6C 


09 


0841 


38 


A 70 


09 


0841 


08 


0A7 


09 


0841 


08 


0*70 


09 


0841 


08 


0A78 


09 


0841 


08 


0A7C 


09 


0841 


08 


0A7C 


09 


84.1 


08 


CA8 


09 


0841 


8 


0A8C 


09 


0841 


08 


0A94 


09 


0841 


C8 


OAAC 


09 


08 41 


08 


OAAO 


09 


841 


08 


A A4 


09 


0841 


08 


0A8 


09 


08 41 


08 


0A88 


09 


841 


08 


0AC4 


09 


0841 


08 


OAOC 


09 


0841 


08 


0AD4 


09 


0841 


08 


OAEO 


09 


841 


08 


0AE8 


09 


0841 


08 


OAFO 


09 


0841 


08 


OAFO 


09 


0341 


08 


OAF A 


09 


0841 


08 


0300 


09 


0841 


08 


OB 14 


09 


0841 


08 


322 


09 


841 


8 


0S22 


09 


0841 


08 


0B38 


09 


0841 


08 


0B38 


09 


08 41 


08 


083 C 


09 


0841 


08 


0B3C 


09 


0841 


08 


83C 


09 


38 41 


08 


OB 40 


09 


0841 


08 


8 54 


09 


0341 


08 


0360 


09 


0841 


08 


0B6C 


09 


84 1 


8 


0B7C 


09 


0841 


8 


03 7 E 


09 


0841 


08 


CB7E 


09 


0841 


08 


0B3A 


09 


0841 


08 


0B8A 


09 


0841 


08 


OB 9 2 


09 


0841 


08 


0B9 2 


09 


08 41 


08 


OB 96 


09 


0841 


08 


03 A 6 


09 


0841 


08 


0BA6 


09 


0841 


08 


08 A A 


09 


0841 


08 


OBBA 


09 


0841 


08 


OBDA 


09 


0841 


08 


OBBE 


09 


0841 


08 


0BC6 


09 


08 41 


08 


OBCE 


09 


0841 


08 


0B06 


09 


0341 


08 


0BE2 


09 


0841 


08 


0BE2 


09 


0841 



1314 

1 3 1 5 
1316 
1317 
1318 
1319 
132 
1321 
1322 
1323 
1324 
132 5 
1326 
132 7 

132 8 
132<? 
1330 
1331 
1332 
1333 
1334 

133 5 
1336 
133 7 

133 8 
1339 
1340 
1341 
1342 
1343 
1344 

134 5 
1346 
134 7 

134 8 
1349 
1350 
135.1 

135 2 
135 3 
1354 
1355 
135b 
13.57 
13 5 8 

135 9 
13 60 
1361 
1362 
1363 
1364 
1385 
1 3 6 6 

136 7 
136 3 
136 9 
13 70 
1371 



OUTGO DE; 
TYPE := Rl; 



IF -.EFLAG THEN 

BEGIN R4 : = 7; ERROR; 

end; 

goto endprograh; 

END; 

CLOSEBLOCK; R7 := CURBUFBASE; 
END; 

BEGIN COMMENT INTEGER , REAL , COMPLEX, LOGICAL ; 
COMMENT Rl CONTAINS CODE FOR TYPE; 
MVI (#01, DECLARFLAG); 
IF R5<PARD THEN SETTYPE; 
RO := 0; S1MTYPEINF0 := RO J 
TYPE J= Rl; Rl := SIMPLETYPE; 
END; 
BEGIN COMMENT BITS; 

MVH #01, DECLARFLAG); SETTYPE; 

Rl := SIMPLETYPE; OUTCODE; 

R7 := NEXT8UFBASE; Rl := NEXTBUFTYPE; CLI (" («, NEXTBUF) ; 

IF = AND Rl = 3 THEN 

BEGIN R7 := CURBUFBASE; 

FETCHSYMBOL; FIT := NEXTBUFBASE; R2 := 32; 

IF R2 -= NEXT8UFI THEN 

BEGIN R4 := 1; ERROR; 

END ; 

RO := RO - RO; R9 := 3INBUFC84); IC?RG,B8); 

WHILE RO = « " DO NEXTCHAR; R9 := R9 - R8; 

IF RO = ")« THEM 

BEGIN R8 := R8 +R5; R9 := R9 - R5; ADVANCESYM80L ; 

END ELSE 

BEGIN R4 := 5; ERROR; ADVANCESYMBOL; 

END; 

R7 : = CURBUFBASE; 
END; 

end; 

BEGIN COMMENT REFERENCE; 

OUTCODE; Rl := RLISTP0IMT + 2 ; SIMTYPEINFO *.- Rl; Rl := 9; 

IF R5 < PARD THEM SETTYPE; 

TYPE := Rl; R7 s= NEXTBUFBASE; CL I CM", NEXTBUF) ; 

IF = THEN 

BEGIN ADVANCESYMBOL; MVI { #01 , REFERFLAG) ; 

END ELSE 

BEGIN R4 := 10; ERROR; 

END; 

R7 := CURBUFBASE; MVH #01, DECLARFLAG) ; 
END; 
BEGIN COMMENT VALUE; 

OUTCODE; Rl s= #1000000 OR TYPE; TYPE := Rl; 

end; 

BEGIN COMMENT RESULT; 

OUTCODE; Rl := #200 0000 OR TYPE; TYPF :•= Rl; 
END; 

BEGIN COMMENT ARRAY; 

OUTCODE; MV I { #01 , ARRAYFLAG ) ; 

CLH#01,PROCFLAG) ; IF = THEN 

BEGIN R2 := SCRATCH INDEX; FARRAYPNT := R2; END; 
Rl := #000200 OR TYPE; TYPE '.= Rl; 
END; 
BEGIN COMMENT RECORD; 



14 



15 



16 



17 



18 



19 



20 
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oa 


0BE6 


09 


0841 


08 


06 F 6 


09 


0341 


08 


OC06 


09 


0341 


OB 


OCOA 


09 


841 


08 


OCOA 


09 


841 


08 


OCOE 


09 


08 41 


08 


0C16 


09 


841 


08 


0C1A 


09 


0341 


08 


0C.1E 


09 


0841 


08 


0C2A 


09 


841 


8 


0C2A 


09 


0841 


08 


0C3E 


09 


0841 


08 


0C46 


09 


34 1 


08 


OC52 


09 


0841 


08 


0C5A 


09 


0841 


03 


0C6 8 


09 


0841 


08 


0C74 


09 


0841 


08 


0C74 


09 


0841 


8 


OC 74 


09 


0841 


03 


0C08 


09 


841 


3 8 


0C<34 


09 


08 41 


08 


OCAO 


09 


0841 


08 


OCAC 


09 


841 


08 


OCBO 


09 


0841 


08 


ocec 


09 


084 1 


8 


0C8C 


09 


0841 


03 


0CB4 


09 


0841 


08 


0C84 


09 


0841 


8 


0CB4 


09 


0841 


8 


0CB8 


09 


0841 


08 


OCBC 


09 


08 41 


03 


OCC 8 


09 


841 


08 


occc 


09 


08 41 


08 


0CD4 


09 


0841 


08 


OCDC 


09 


0841 


08 


OCEO 


09 


0841 


03 


OCEE 


09 


0841 


08 


0CF6 


09 


0841 


08 


ODOA 


09 


0841 


08 


GDI 2 


09 


0841 


08 


0012 


09 


0341 


08 


0D12 


09 


0841 


08 


001 A 


09 


0841 


8 


0D2C 


09 


0841 


08 


0D3A 


09 


0841 


00 


00 46 


09 


0841 


08 


0D46 


09 


0841 


8 


0052 


09 


0841 


08 


0DS2 


09 


0341 


08 


CD 56 


09 


0841 


08 


0D56 


09 


0841 


08 


0D82 


09 


0341 


08 


0C86 


09 


0841 


08 


00 B 6 


09 


0841 


08 


ODCC 


09 


0841 



1372 OUT CODE; Rl := RECORDNO + 1; RECORDNO := Rl; 

1373 Rl := Rl SHLL 16 ++ #400; TYPE := Rl ; MVI ( #01 , R ECOROFLAG) ; 

1 3 74 MVI ( #01 , DEC LARFLAG ) ; 

13 75 END; 

1376 BEGIN COMMENT PROCEDURE; 21 

1377 OUTCODE; MVI ( #01 , DECLARFLAC ) ; 

1378 CLI (#01, PROCFLAG) ; 

1379 IF = THEN 

1380 BEGIN Rl := #1300 OR TYPE; TYPE := Rl ; 

1331 END ELSE 

1332 BEGIN Rl := #300 OR TYPE; TYPE := Rl; R7 := NEXTBUFBASE; 
1383 IF R5 = NEXTBUFTYPE THEN 

1334 BEGIN R7 : = CURBUF8ASE; FETCHSYMBOLJ R7 := NEXTBUFBASE; 

1385 CLIPM"iN£XT8UF); IF -= THEM 

1386 BEGIN R7 := CUR8UFBASE; MATCHRESERVEO; IF R5 = R3 THEM 

1387 BEGIN 0PEN3L0CK; CLOSEBLOCK; IOSEARCH; 

138 3 END ELSE GOTO LI; 

1389 END ELSE 

1390 BEGIN Rl := BLOCK NO + 1 SHLL 16 OR TYPE; 

1391 TYPE := Rl; R7 := CUR3UFBASE; MATCHRESERVEO; 

1392 IF R3 = 1 THEN IOSEARCH ELSE GOTO LI; 

1393 Rl :*.= 0; TYPE := Rl; OPENBLOCK; 

1394 MVI (#01, PROCFLAG); 

139 5 END; 

1396 END; 

1397 R7 t- CURBOFBASE; 

139 8 END; 
139Q END; 

1400 BEGIN COMMENT STRING; 22 

1401 MVH#01,DECLARFLAG); 

1402 IF R5 < PARD THEN SETTYPE; 

1403 TYPE s= Rl; 

1404 Rl := SIMPLETYPE; OUTCODE; 

1405 R7 := NEXTBUFBASE; CLI ( "< " ,NFXTBUF) ; 

140 6 IF = THEM 

1497 BEGIN ADVANC ESYMBOL i R7 z- NEXTBUFBASE; 

1408 CL 1(2, NEXTBUFTYPE (1) 3 ; IF = THEN 

1409 BEGIN Rl := NEXT8UFI - R5; IF Rl < 256 AND Rl >= THEN 

1410 BEGIN SIMTYPEINFO := Rl ; GOTO PAREN; 

1411 END; 

1412 END; 

.1413 R4 := 1; ERROR; 

1414 PAREN: ADVANCESYMBOL; R7 := NEXTBUFBASE; CL I( " ) ",NEXTBUF ) J 

1415 IF = THEN ADVANCESYMBOL ELSE 

1416 BEGIN R4 := 5; ERROR; END; 

1417 END ELSE 

1413 BEGIN Rl := STRNGLENGTH; SIMTYPEINFO := Rl; 

1419 end; 

1420 R7 := CURBUFBASE; 

1421 END; 

1422 END; 

1423 GOTO L; 

1424 ENDPROGRAM: 

1425 Rl := ENDOFPROGRAM; OUTCODE; CLEANUP; RIO := RETAOOR; 

1426 END; COMMENT END OF PASS lj 
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00 A4 


07 


013C 


C6 


CQA4 


07 


013C 


£ 06 


O0A4 


07 


013C 


06 


00 A 4 


07 


01 3 C 


06 


O0A4 


07 


013C 


£ 06 


COM 


07 


013C 


06 


00A4 


07 


0130 


06 


00A4 


07 


01 3C 


# C6 


00 A4 


07 


01 3C 


C6 


00A4 


07 


013C 


06 


OCA 4 


07 


01 3C 


$ 06 


00A4 


07 


013C 


06 


00A4 


07 


015 


06 


00 A 4 


07 


0150 


06 


00 A 4 


07 


152 


G6 


00A4 


07 


0154 


06 


00A4 


07 


0156 


f 06 


00 A4 


07 


0158 


u6 


00 A 4 


07 


01 5 A 


06 


0OA4 


07 


015C 


• 06 


C0A4 


07 


1 5 E 


06 


00A4 


07 


0160 


06 


00 A 4 


07 


0161 


• 06 


0OA4 


07 


016 2 


06 


00 A 4 


07 


0164 


06 


00 A4 


07 


0166 


£ 06 


00 A 4 


07 


0167 


06 


00A4 


07 


0168 


06 


00 A4 


07 


016 A 


£ 06 


00A4 


07 


1 60 


06 


00 A4 


07 


016E 


06 


00A4 


07 


018 2 


• €6 


00A4 


07 


0582 


06 


00 A4 


07 


0984 


06 


00A4 


07 


0984 


£ 06 


00A4 


07 


0984 


06 


C0A4 


07 


0084 


06 


00 A 4 


07 


00 34 


° 6 


00 A 4 


07 


0084 


06 


0CA4 


07 


0084 


C6 


00A4 


37 


OD8 8 


<§ 06 


00 A 4 


07 


0D8A 


06 


0QA4 


.37 


008C 


06 


00A4 


07 


008 E 


06 


00 A4 


07 


0090 


06 


C0A4 


07 


0094 


06 


00 A 4 


07 


ODAC 


• 06 


00A4 


07 


ODBC 


06 


00A4 


07 


09 BE 


06 


00 A 4 


07 


0DC4 


• 06 


0CA4 


07 


0E48 


06 


00A4 


07 


0E48 


06 


00 A4 


18 


00 00 


9 06 


00A4 


18 


0004 


C6 


QQA4 


18 


0404 


06 


00 A 4 


' 18 


404 


$ C6 


00A4 


18 


0404 


06 


00A4 


18 


0404 



1427 

142 8 

142 9 
1430 
1431 
1432 

143 3 
143 4 
143 5 
1436 
14 3 7 
143 8 
14 39 
1440 
1441 
1442 
1443 
1444 
1445 
1 446 
1447 
1448 
1449 
1450 
1451 
1452 
145 3 
14 54 
1455 
1456 
1 4 5 7 
145 8 

145 9 
1460 
1 46 1 
1462 
1463 

146 4 
1465 
1466 
1467 
1.468 
1469 
14 70 
1471 
1472 
1473 
1474 
1475 
14 76 

147 7 
1.47 8 
1479 
1480 
1481 
1432 
1483 
1484 
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# * 5 



INTEGER SAVE14 SYN 6 AS ESAVE ( 16 ) , 

METABASE SYN BASESAVEC ) ; 
INTEGER CGMMONBASE SYN XFERVECTOMO) 5 

INTEGER COMMONLIMIT SYN XFERVECTORI 4) 
LONG REAL DEC SYN PKOEC; COMMENT 
INTEGER HEX SYN PKDEC; COMMENT 
FU MC T I ON I ( 4 , # 960 ) ; 



COMMENT DATA BASE ADDRESSES; 

COMMENT COMMON BASE ADDRESS; 
; COMMENT HIGH COMMON ADDRESS; 
USED FOR DECIMAL OUTPUT; 
USED FOR HEX I DEC OUTPUT; 



ARRAY 2 LONG REAL MUMVALUE 
INTEGER NUMVALUE4 SYN NUM 



drelad; COM 
VARORIGIN; C 
CARDNUMBtRj 



SHORT INTEGER BN? COMMENT 

SHORT INTEGER BNC ; COMMEN 

SHORT INTEGER SN; COMMENT 

SHORT INTEGER SNCj COMMEN 

SHORT INTEGER HM ; COMMENT 

SHORT INTEGER 

SHORT INTEGER 

SHORT INTEGER 

BYTE SIMTYPEJ 

BYTE STRINGLENGTH; 

SHORT INTEGER VALUE; 

SHORT INTEGER FLAG *, 

BYTE COMMONFLAG; COMMENT 

BYTE UNDECLFLAG; 

SHORT INTEGER TRKELENGTHJ 

SHORT INTEGER RULENUMBER; 

SHORT INTEGER OREL POINT; 

ARRAY 10 SHORT INTEGER DRELSAVEJ 

ARRAY 512 SHORT INTEGER BL0CKLIST2; 

ARRAY 256 INTEGER SNLIST; 

SHORT INTEGER STATU NK SY 

SHORT INTEGER OUTPOINT SY 
ARRAY 256 INTEGER CONSPO 

SHORT INTEGER CTPO INTER S 

SHORT INTEGER LITPGINTER 
ARRAY 2000 BYTE LITERALTA 
INTEGER LITBASES 



VALUE; 

BLOCK NUMBER; 
T CURRENT BLOCK NUMBER; 

SEGMENT NUMBER; 
T CURRENT SEGMENT NUMBER; 

HIERARCHY NUMBER; 
MENT DATA RELATIVE ADDRESS; 
OMMENT VARIABLE ORIGIN IN DATA 



SEGMENT; 



SET IF COMMON OVERFLOWS; 



COMMENT CONTAINS PRODUCT ION NUMBER; 



COMMENT STATIC LINKS; 



CTPNTJ 


CO 


LITPNT; 


CO 


CTORG; 




LITORG; 





N SNLIST; 

N SNLIST! 2) ; 

INT ERST ACK ; 

YN CONSPOINTERSTACKJ 

SYN CON S PO I NTER STAC K { 2 ) ; 
3LE SYN 83; 

MMENT POINTER TO CONSTANTTABLE; 
MMENT POINTER TO L I TERALTABL E; 



SHORT INTEGER 

SHORT INTEGER 

SHORT INTEGER 

SHORT INTEGER 

INTEGER LITINITIAL; 

INTEGER R1S AVE ,R2SAV E , R3SA 

ARRAY 16 BYTE TRANSTABLE; 

SHORT INTEGER OUTBASEj 

INTEGER RETCODE; COMMENT RETURN CODE FOR PHASE; 

ARRAY 132 BYTE BUFFER; 



VE,R4SAVE,R5SAVE,R6SAVE; 
COMMENT TRANSLATION OF HEX DIGITS 



DUMMY BASE R12; COMMENT ALLOCATED FROM WORK 
INTEGER LABELADDR; COMMENT MUST DIRECTLY 

ARRAY 256 INTEGER CONSTANTTABLE; 

SHORT INTEGER CINFO SYN CONSTANTTABLE; 

BYTE CLENGTH SYN CONSTANTTABLE; 

BYTE CTYPE SYN CONSTANTTABLE ( i J 5 

SHORT INTEGER CADDR SYN CONST ANTTA8L E(2 ) ; 



SPACE; 

PRECEDE 



CONSTANTTABLE! 
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06 


C0A4 


18 


0404 




06 


00 A 4 


18 


464 




| 06 


Q0.A4 


18 


04C4 




06 


OCA 4 


18 


7C8 




06 


CO. A 4 


18 


07 08 




| 06 


00A4 


18 


07C8 




06 


COM 


18 


07 C 8 




06 


00 A 4 


18 


07C8 




| 06 


0GA4 


18 


70 8 




G6 


00A4 


18 


0708 




G6 


00A4 


18 


07C8 




| 06 


00 A4 


18 


07C8 




06 


00A4 


18 


0703 




06 


C0A4 


18 


070 C 




| 06 


00A4 


18 


07D0 




06 


00A4 


18 


704 




06 


00 A 4 


18 


0704 




| 06 


00A4 


18 


07 04 




06 


O0A4 


18 


7D4 


1 


06 


00 A 4 


07 


0E48 


IJ_. J 


| 06 


00A4 


07 


0E48 


■-■ 


06 


00A8 


19 


0000 




06 


00 A a 


19 


0000 


6 fl 


I 06 


00A3 


19 


0770 




06 


COAtt 


19 


0770 




06 


ooAa 


19 


0770 




| 06 


00 A 8 


19 


0770 




06 


00A8 


19 


770 




06 


00 A 8 


16 


0770 




| 06 


OCAB 


19 


0770 




06 


00A8 


19 


0770 




06 


O0A8 


19 


0770 




| 06 


00A8 


19 


770 




06 


00A8 


19 


0770 




C6 


C0A8 


19 


770 




| 06 


0A8 


19 


770 




06 


00 A 8 


19 


0770 




06 


0A8 


19 


0770 




| 06 


00 A 8 


1 Q 


0770 




06 


00 A S 


19 


0770 




06 


00A8 


19 


0770 




} 06 


O0A8 


16 


0770 




06 


00 A 8 


19 


0770 




06 


0CA3 


19 


770 




) 06 


00A8 


19 


0770 




06 


00A8 


19 


0770 




06 


00A3 


19 


0770 




) 06 


00 A 8 


19 


0770 




06 


00A8 


19 


0770 




06 


00A8 


19 


07 70 




) 06 


00 A3 


19 


0770 




06 


C0A3 


19 


0770 




06 


O0A8 


1.9 


0770 




) 06 


00A8 


19 


0770 




06 


00A8 


19 


0770 




06 


00 A 8 


19 


0770 




1 06 


O0A8 


19 


0770 



148 5 

148 6 
1487 
1488 
1489 

149 
1491 
149 2 
149 3 
149 4 
149 5 
1496 
149 7 

149 8 
1499 

150 
1501 
1 50 2 
1503 
150 4 
150 5 
150 6 
150 7 
1 50 8 
150 9 
1510 
1511 
1512 
1513 
1514 
1315 
1516 
1517 
1518 
1519 
152 
1 5 2 1 
152 2 
152 3 
1.524 
152 5 
152 6 
152 7 
152 8 

152 9 
15 30 

1 53 1 
153 2 
153 3 
1534 
153 5 
1 53 6 
1537 
15 3 8 
1539 
1540 
1541 
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ARRAY 

ARRAY 

ARRAY 

INTE 

SHOP. 

SHOR 

BYTE 

BYTE 

SHOR 

BYTE 

BYTE 

SHOR 

IMTEGE 

ARRAY 

ARRAY 

BYTE 

BYTE 

SHOR 

CLOSE 



96 BYTE S; 
96 BYTE S2; 
96 LONG REAL 
GER VI 2 SYN V; 



COMMENT PARSING STACK; 

COMMENT STACK OF RELATIONS? 
V; COMMENT INTERPRETATION STACK J 



INTEGER 
INTEGER 
V21 SYN 
yz2 SYN 
INTEGER 
V3 SYN 



VI S 
V2 
V(2) 
V ( 3 ) 

V34 
V<4) ; 



V4 SYN V<5J; 
T INTEGER V5 
R PLIMIT; ( 

LONG REAL PA 

1 LOGICAL P; 
OP SYN P; 

CONV SYN PU ); 
T INTEGER POINTER SYN PC 2) 
BASE; 



YN V; 
SYN V(2); 
; COMMENT 

; COMMENT 

SYN V< 4); 
COMMENT 
COMMENT 
SYH V(6)J 

QMMENT MAXIMUM P INDEX; 
LIGNS COMMENT ALIGN P; 

COMMENT OUTPUT WORK AREA, 



COMMENT BOTH TYPE FIELDS; 
TYPE FIELD; 
SIMPLE TYPE FIELD; 
COMMENT BOTH REGISTER FIELDS: 
GENERAL REGISTER FIELD; 
FLOATING REGISTER FIELD; 
COMMENT OUTPUT POINTER 



field; 



SIZE IS DYNAMIC; 



SEGMENT 
ARRAY 

XT VAR 
»<T FLO 
"<SI VAR 
t'KFILE 



BASE 
1904 



RIO I 
BYTE 



COMMENT TABLE 
MET AT ABLE 



OF SYNTACTIC SYMBOLS; 



CL ID> "i 



ID> <LABEL ID> <T ARRAY IDXT FUNC ID> <RC 

I0> <COM I0> <ST FUNC IOXFILE ID> <ST PROC 

DO <SI VAR DOXSI TYPE > <REF TYPE> <FIL6 DO 
HD**> <FILE HD*-> < FI L E HD*> <FILE DESO <ARRAY DO 



IDX, 



h 



,"<ARRAY HO> <BMD LST HDXPROC DECL> <T PR BDDY> <T PR HFAD> 



R HEAD* 
D LIST> 
HGA0*> 
T VAR> 
XP> 
E CL> 
ACT> 
T PAR> 
ST> 

SS ST> 

LI ST> 

T DES> 



XT P 

XFBN 

"<PX 

XSI 

XT E 

"<CAS 

"<T F 

H <LEF 

"<SI 

"<T A 

M <FOR 

XUNI 
it 

SI 

"<I0> 

"END 

"THEN 

"/ 

"** OR SHL 

""A8S 



"BEGIN 
"STEP 

CLG< 



XPROCEOURE> 

<FBND HEAD> 
<RECORO> 
<T FLO m> 
<T EXP*> 

<si t exp> 

<T SEC0N> 
<RC DES HD> 
<BLOCK> 

<TRUE PART> 
<F0R> 
<UNIT HO> 



<FPAR HEAD> <FPAR HEAO*XFPAR HEAD->»», 
<F ARRAY HDXRC CL DO <RC HEAO> «, 
<T VAR> <STR SEL HDXLENGTH> », 

<T ARRAY HDXT FUNC DESXAPAR HEAD> «, 



<IF CL> 
<SI T EXP*> 
<T PRIM> 
<PR0GRAM> 
<BLOCKBODY> 
<CAS£ SEQ> 
<STEPUNTIL> 
<SI T EXP**> 



<TRUE EXP> 
<T TERM> 
<REL OP> 
<STATEMENT> 
<BLOCKH£AD> 
<F0R CL> 
< WHILE CL> 



<CASE HEAD> "» 
<T TERM*> ", 

<EQL 0P> »», 

< STATEMENTS", 
<LABEL D.EF> '», 
<FOR HEAD> *♦, 
<ST PROC HD>«, 



J 


) 


REFERENCE 


» 


<I/0 DEV> 


FILE 


• • 


ARRAY 


» 


PROCEDURE 


VALUE 


RESULT 


RECORD 


1 


<T NUMBER> 


IF 


ELSE 


CASE 


OF 


IS 


- 


OR 


<STRING> 


NULL 


01 V 


REM 


AND 


-» 


SHR 


TRUE 


FALSE 


LONG 


<BIT SEQ> 


< 


= 


> 


DO 


GOTO 


ON 


OFF 


PARALLEL 


: 


• ■_ 


FOR 


UNTIL 


WHILE 


SHORT 


»); 



BASE; 
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4 


1 C6 


ooab 


7 


0E4 8 


t 


06 


oo Aa 


07 


0E4 3 




06 


OOAC 


20 


000 




| 06 


OOAC 


20 


("000 




06 


OOAC 


20 


0364 




06 


OOAC 


20 


03 84 




| 06 


OOAC 


20 


03 84 




C6 


OOAC 


20 


0384 




06 


OOAC 


20 


38 4 




| 06 


OOAC 


20 


384 




G6 


COAC 


20 


0384 




06 


OOAC 


20 


384 




) 06 


OOAC 


20 


384 




06 


OOAC 


20 


384 




06 


OOAC 


20 


0384 




| 06 


OOAC 


20 


0384 


. ( . 


06 


OOAC 


20 


0384 


1 '■'-. 


06 


OOAC 


20 


0384 


1 ■■; ™ 


| 06 


00 AC 


20 


0384 




C6 


OOAC 


20 


0386 


R 


06 


OOAC 


20 


388 


o I 


| 06 


OOAC 


20 


038 A 




06 


OOAC 


20 


03 8C 




06 


OOAC 


20 


038E 




| 06 


OOAC 


20 


0390 




06 


OOAC 


20 


0392 




06 


OOAC 


20 


0394 


4 


| 06 


OOAC 


20 


0396 




06 


OOAC 


20 


39 8 




C6 


OOAC 


20 


039 A 




| 06 


OOAC 


20 


039C 




06 


OOAC 


20 


039E 




06 


OOAC 


20 


03A0 




| 06 


OOAC 


20 


03A2 




06 


OOAC 


20 


03A4 




Co 


OOAC 


20 


03A6 




| 06 


OOAC 


20 


03 A 8 




06 


COAC 


20 


03AA 




06 


OOAC 


20 


03AC 




| . 06 


OOAC 


20 


03AE 




06 


OOAC 


20 


03 BO 




06 


OOAC 


20 


38 2 




■ 06 


OOAC 


20 


03 84 




06 


OOAC 


20 


0386 




06 


OOAC 


20 


03D8 




) 06 


OOAC 


20 


03 B A 




06 


OOAC 


20 


038C 




06 


OOAC 


20 


038C 




) 06 


OOAC 


20 


038E 




06 


OOAC 


20 


03C0 




06 


OOAC 


20 


3C 2 




P v6 


OOAC 


20 


03 C4 




06 


OOAC 


20 


03C4 




06 


OOAC 


20 


03 DO 


1 


| 06 


OOAC 


20 


0306 




06 


OOAC 


20 


03DC 



1542 

1543 
1 544 

154 5 
1546 
1547 
1548 
1549 

155 
15 51 
1552 
15 53 
1554 
1555 
1556 
1557 
155 3 

155 
1560 
1561 
1562 

156 3 
1564 
1565 
156 6 
1567 

156 8 
1569 
1570 
1571 
1572 

157 3 
1574 
15 75 
1576 
1577 
1573 
1579 
1 58 
1531 
1532 
1583 
1534 
1585 
1586 

158 7 
1538 
1589 
1590 
1 59 1 
1592 
1593 
1 59 4 
1595 

159 6 
1 59 7 



SEGMENT BASE R14; COMMENT READ-ONLY CONSTANTS; 
ARRAY 900 BYTE OPTABL 



( 



it 



,"S: = 
,»<= 

,"S:=; 

,"IFEXP 

, "SUBSTRINj 

,"8 I TOR 

,»UJIFEXP 

, "WHILEOP 

f M BIT-i 

,"CASE 

,"LA8ELID 

,"RCCLDC 

,"NULLST 

) ; 

SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHOP, T 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
SHORT 
ARRAY 



+ 

> 

R:=2 



LOGAND 
UJ 
WHILE ST 

ON 

ARRAY ID 
SEG 
ARRAY DC 



F: = 
>= 



AP, 

BITANO 
CL 
IF J 

OFF 

FUNCIO 

BIT 

AR* 



* 



UAR 

Rt 

FOR ST 
IFST 
U - 

GOTO 

BEGIN 

RCCLIO 

STRING 



/ 
STEP 



UNTIDIV 



DAR 
AR, 
FORS 

• • 

ABS 



T2 



AP) 

BB 

AR) 

FORLIST 

IS 



L: = 
REM 
L:=2 
IN OX 

END 

R) 

FORCL 



FILEIMDX, 

LOG-. 



Ai = 

< » 

A : = 2 '» 

REFX " 

PCL " 

LOGOR " 

END FORI. I" 



: STACKADD CARD 

PARBEGININUMBER NUMBER TO 

FIELDID CONID FILEID PROCDC 

TRUE FALSE WHILE NULL 

STFUNCIOSTPROCID IF 



M 



H 

n 



INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
3 SHORT 



SITYPECODE 

BNDLSTHD 

TPROCBDY 

TPROCHD 

PROCNT 

TFUNCOES 

APARHEAD 



= #od; 
= 316; 

=#18; 
= #19; 
= #1B; 
= 32C; 
= #2D; 



CASEHEADCODE=.#32; 



BLOCKCODE 

BBCOOE 

BHCODE 

CASESEQCODE 

FORCLCODE 

FQRHEAD 

FORLISTCODE 

FORNT 



= #43; 
= #44 ; 
= #45; 
= #49; 
= #4A ; 
= #46; 
= #4C; 
=#4D; 



WHILECLCODE 

I OCODE 

LPARENCQDE 

EN OCODE 

SCOLCODE 

NUMB ERC ODE 

STRIMGCODE 

BITCODE 

ENDFILE 

GOT OCODE 

BEG INC ODE 

FGRCODE 

FIRSTTERMINAL SYN IDCODE; 

LSS=l; 

GTR =2; 

EQL =3; 

PROCEDURETYPE =3; 

INTEGER COMMENT 

COMP ARE={ #05005, 3B3{1),3B4), 
ERRMOVE= ( #D200S» 3BUFFER ( 27) ,381 ) , 
ERRMOV E9 1 = [ #D2Q0 S, OBUFF ER { 91 ) , 86 1 1 
MOVE 3 1={ #0200 S, 3 83,381) , 



=#4F; 
= #65 ; 
=•#6 A; 
= #6F; 
= #70; 
= #77 J 

= #81; 
= #8E; 
= #92; 
= #94 ; 

= #97; 
= #9B; 



INSTRUCTIONS TO BE EXECUTED! 
MOVE=(#D200S,aBUFFER(75),aBl) f 



^ -n m ^mi t m m ^um iw 



PL360 CCMPILATIOf 



ALGOL W COMPILER 



PASS 1 a 2 
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06 


OOAC 


20 


3E2 


06 


OOAC 


20 


03 EE 


06 


OOAC 


20 


03FA 


06 


OOAC 


20 


406 


Oo 


OOAC 


2 


040 S 


C6 


OOAC 


20 


0412 


C6 


OOAC 


20 


434 


06 


OOAC 


20 


0434 


C6 


OOAC 


20 


0434 


06 


CO AC 


20 


44 8 


06 


OOAC 


20 


044 8 


06 


OOAC 


20 


0450 


06 


OOAC 


20 


045 3 


C6 


OOAC 


20 


045 3 


06 


OOAC 


20 


04A6 


06 


OOAC 


20 


04A6 


06 


OOAC 


20 


04E6 


06 


OOAC 


20 


04E6 


06 


OOAC 


2 


04E6 


06 


OOAC 


20 


57C 


06 


OOAC 


20 


057C 


06 


OOAC 


20 


57C 


06 


OOAC 


20 


57C 


06 


OOAC 


20 


057C 


06 


OOAC 


20 


057C 


C6 


OOAC 


20 


057C 


06 


OOAC 


20 


057C 


06 


OOAC 


20 


57C 


06 


OOAC 


20 


57C 


C6 


OOAC 


20 


057C 


06 


OOAC 


20 


05 7C 


06 


OOAC 


20 


057C 


Oo 


OOAC 


20 


05F4 


06 


OOAC 


20 


5F4 


06 


OOAC 


20 


05F4 


06 


OOAC 


20 


5F4 


06 


OOAC 


20 


5F4 


06 


COAC 


20 


5F4 


C6 


OOAC 


20 


5F4 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


06 


OCAC 


20 


734 


06 


OOAC 


20 


0734 


C6 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


C6 


OOAC 


20 


734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


0734 


06 


OOAC 


20 


734 


C6 


OOAC 


20 


7 34 


06 


OOAC 


' 20 


0734 



1598 

159 3 

1600 
1601 

160 2 
1603 
1604 
1605 
1606 
1607 
160 8 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
162 2 
162 3 
1624 
1625 
1626 
1627 
1628 

162 9 
1630 
1631 
1632 

163 3 
1634 
1635 
1636 
1637 
163 8 

163 9 
1640 
1641 
1642 
1643 

164 4 
1645 
1646 
1647 
16 4 8 
1649 
1650 
1651 
1652 
1.653 
1654 
1655 



C0MPARE24=(#D500SiaB2t3B4)f 

TREEX0P=(#D700S,aB4,3B4), 
MOVENUMBER=( #D200S , 3IMUMVALUE , 3B5) 5 



1 ) 



TYPE SIMTYPE 



VR 



I D» ) 



RCCLNO 



(HEX)") 



M0VE14=UD2 00Sf<3Blt3B4) , 
TREEMOVE= ( #D200S , 3B2 ( 4) ,3B4 ) , 
MGVE24=( #0200 S, 382,384) , 
SHORT INTEGER NQ.MORERULES = #FF; 

APRAY 10 BYTE LENGTHTABLE =(0,4,4,8,8,16,1,0,4,4); 
ARRAY 17 SHORT INTEGER B ITT ABLE = 
( #0, # 1 , #2 , #4 , # 8 , # 10 , #20 , #-40 ,#80, #100 , #200 , #400 , #8 00 , 
#1000, #2000, #4000, #8000); 
ARRAY 10 SHORT INTEGER INCREASE = 

(Oi li #100, #100, #200, #200, 1, 
LONG REAL M ASK=#4020202020204040; 
LONG REAL MASK2 =#4020202021214040 J 
ARRAY 7 8 BYTE HEADER 2 

=< M LOG IDL0C1 IDLQC2 

i^SIMTYPEINFO TYPEINFO 

ARRAY 64 BYTE HEADERS = ( 

" (HEX) HN SEC 

ARRAY 7 5 SHORT INTEGER ERTB 
= ( #100 , # 265 , 0, #3 65 , , #345 , 
, #20D, #27 1,#26B, #100, #269, #267,0 
, #3<»9 , , #267 , # 269 , # 265 , , # 385 , 
, #265 , #365 , ,#365, # 100, #2 70, #269, 
,#374, #265,0, #36 5, #265,0, #245,0 
, #270,0, #265, #20D,0, #360, #270, #290,0 
, #270, #267, 0,0, #265, #26 A, 
,#365, #400, 0,0, 0,0 
,#29 3,0, #332,0, #349,0, #326,0 
, #343, #33A, #270,0, #265, #370,0) ; 
BYTE CODE SYN ERTB; 
BYTE NODE SYN ERTB(l) ; 
ARRAY 60 SHORT INTEGER EMT 8 

={#5E COMMENT NONTERMINAL RULES START AT #5E; 
,0 , #36 ,#5E ,6 , #5E,# E, #16, # 6, # IC»2 
,#5E,#5E,2,#6C,#6C,#20,2, #28,#5E,#2C 
,#5E,#5E,#2C,#32,#2C,#66,2,2,#36,#5£ 
,2,2,2,#66,2,#3C,#66,#5E, #5E,#42 
,#42 ,# 5E ,2 ,2 , 2, #43 ,#4C ,6,6,6 
,#50, #50, #56, 2, 2, #42, 2, 2) J 
ARRAY 160 SHORT INTEGER MTB = 

(0,1, 6, 7, 17, 2 7, 3 7, 43, 48, 58, 63, 69, 70, 81, 99, 11 1,1 12, 119, 132, 143, 
156,157,169,186,187, 188,203,209,220,221,237,286,296,309,321,3 22, 
3 39 ,346 , 354 ,371 ,3 79 , 380 ,390,397, 422 , 431 , 466 , 476, 48 1 , 508, 509, 522 , 
5 33,5 38,579,5 84,619,624,641,646,647,648,655,668,669,670,675,685, 

690.7 24,759,760,765, 766,789,801,817,829,836,837,849,862,867,874, 

879.8 80,881,882,883,884,885 ,886,887,888,889,890,891,892,893,894, 
8 95,896,942,943,944,950,951,1004, 1005,1011,1012,1013,1014,1015, 
1021,1022,1023,1024,1030,1036,1041, 1048,1049,1054,1061,1062,1063, 
1069, 1075,10 76,1081,1086,1087,1088,1089,1090,1101,1102,1103,1108, 
1113,1119,112 5,1130, 1140,1145,1155,1162,1163,1169,1170,1171,1181, 
1182,1183,1184,1190, 1197 , 1202, 1208 ) ; 



• 

• 



# 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
SHORT 



PLUS 
MINUS 
T I ME S 
DIVIDE 
EX PON 
LCOLONEQ 
INTEGER 



SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
LASSIGN 



3 

4 



• 
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06 

06 
06 

06 
06 
06 
G6 
06 
06 
06 
06 
06 
06 
C6 
06 
06 
06 
06 
06 
Co 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
Ob 
06 
06 
06 
06 
06 
C6 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 



CCAC 
AC 
OCAC 
CO AC 
00 AC 
00 AC 
COAC 
G1AC 
00 AC 
00 AC 
00 AC 
OOAC 
00 AC 
CCAC 
OOAC 
COAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
COAC 
OOAC 
OOAC 
OOAC 
OOAC 
COAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
€CAC 
OOAC 
COAC 
OOAC 
COAC 
COAC 
OOAC 
OCAC 
OOAC 
COAC 
OOAC 
OOAC 



20 
20 
2 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
2 A 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



0736 
736 
07 3 H 
73 8 
073A 
073 A 
73C 
073C 
07 3C 
73C 
073C 
073C 
073C 
073C 
073C 
73C 
073C 
073C 
73C 
73 C 
73C 
73C 
73C 
073C 
073C 
073C 
073C 
073C 
073C 
073C 
73C 
73C 
73C 
073C 
073C 
73C 
73C 
73C 
073C 
73C 
073C 
073C 
73C 
073C 
73C 
073C 
073C 
73C 
73C 
073C 
73C 
073C 
73C 
073C 
073C 
073C 
073C 
73C 



1656 


BYTE 


ACOLONEQ 


SYN 


7 ; 


1637 


SHORT INTEGER AAS 


SIGN 


= 7; 


165 8 


BYTE 


SCOLONEQ 


SYN 


8 J 


16 5 9 


SHOP 


T INTEGER SAS 


S I GN 


= 8; 


166 


BYTE 


RCOLONEQ 


SYN 


9; 


1661 


SHOP 


T INTEGER RASSIGN 


= 9; 


166 2 


BYTE 


FCOLONEQ 


SYN 


10 ; 


166 3 


BYTE 


STEPUNTIL 


SYN 


12; 


1664 


BYTE 


DIV 


SYN 


13; 


166 5 


BYTE 


REM 


SYN 


14; 


166 6 


BYTE 


LESS 


SYN 


15; 


1667 


BYTE 


LESSEQ 


SYN 


16; 


166 8 


BYTE 


GREATER 


SYN 


17; 


166 9 


BYTE 


GTEQ 


SYN 


18; 


1670 


BVTE 


EQUAL 


SYN 


19; 


1671 


BYTE 


UNEQ 


SYN 


20; 


1672 


BYTE 


LC0L0NEQ2 


SYN 


22; 


167 3 


BYTE 


AC0L0NEQ2 


SYN 


23; 


1674 


BYTE 


SC0L0NEQ2 


SYN 


24; 


167 5 


BYTE 


RCOLONEQ 2 


SYN 


25; 


167 6 


BYTE 


APPAREN 


SYN 


29; 


1677 


BYTE 


INDX 


SYN 


30; 


167 8 


BYTE 


REFX 


SYN 


31 J 


1679 


BYTE 


IF EXP 


SYN 


32; 


168 


BYTE 


SHL 


SYN 


35 J 


168 1 


BYTE 


SHR 


SYN 


36; 


1682 


BY TE 


BBS 


SYN 


37; 


163 3 


BYTE 


ENOD 


SYN 


38; 


1634 


BYTE 


PCL 


SYN 


39 ; 


1685 


BYTE 


SUBSTRING 


SYN 


40; 


1686 


BYTE 


BAR 


SYN 


41; 


168 7 


BYTE 


A PC MM A 


SYN 


42; 


168 8 


BYTE 


RCOMMA 


SYN 


43; 


168 9 


BYTE 


ARCOMMA 


SYN 


44; 


1690 


BYTE 


ARPAKEN 


SYN 


45; 


1691 


BYTE 


R PAR EN 


SYN 


46; 


1692 


BYTE 


LOGOR 


SYN 


47; 


1693 


BYTE- 


8 1 TOR 


SYN 


48 ; 


1694 


BYTE 


LOG AND 


SYN 


49 ; 


169 5 


BYTE 


BI TANO 


SYN 


5 ; 


1696 


BYTE 


I TER ST 


SYN 


51; 


1697 


BYTE 


IT ERST 2 


SYN 


52; 


169 8 


BYTE 


FORLIST 


SYN 


53; 


1699 


BYTE 


FORCL 


SYN 


54; 


1700 


BYTE 


ENDFORLIST 


SYN 


55; 


1701 


BYTE 


UJIFEXP 


SYN 


56; 


1702 


BYTE 


UJ 


SYN 


57; 


170 3 


BYTE 


CLL 


SYN 


58; 


1704 


BVTE 


IFST 


SYN 


59; 


170 5 


BYTE 


COLON 


SYN 


60; 


1706 


BYTE 


IS 


SYN 


61 J 


1707 


BYTE 


FILE INDX 


SYN 


62; 


1708 


BYTE 


COMMA 


SYN 


63; 


170 9 


BYTE 


WHILEOP 


SYN 


64 ; 


1710 


BYTE 


WHILEST 


SYN 


65; 


1711 


BYTE 


IFJ 


SYN 


66; 


1712 








COMMENT 


1713 


BYTE 


UN INUS 


SYN 


67; 



UNARY OPERATORS! 
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00 AC 


20 


073C 


C6 


OOAC 


20 


73 C 


06 


OOAC 


20 


7 30 


06 


OOAC 


20 


73C 


C6 


OOAC 


20 


73C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


073 C 


06 


OOAC 


20 


073C 


06 


on ac 


20 


73C 


G6 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073C 


G6 


OGAC 


20 


73C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073 C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


06 


OGAC 


20 


73C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


C6 


OOAC 


20 


073C 


C6 


OOAC 


20 


73C 


06 


00 fiC 


20 


73C 


06 


OOAC 


20 


073C 


Ofe 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


73C 


C6 


OOAC 


20 


073C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


73C 


G6 


OOAC 


20 


073C 


06 


00 4 C 


20 


73C 


06 


OOAC 


20 


073C 


G6 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


73C 


36 


OOAC 


20 


073C 


06 


OOAC 


20 


07 3 C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


73C 


C6 


OOAC 


20 


073C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


073C 


06 


OOAC 


20 


73C 


06 


OOAC 


20 


73C 


06 


OOAC 




073C 


06 


OOAC 


2.0 


073C 


06 


OOAC 


20 


73C 





ALOOL 


W COMPILER - PASS 


X *A c. 


1714 


BYTE 


ABSS 


SYN 


68; 


1715 


BYTE 


LOGNOT 


SYN 


71; 


1716 


BYTE 


B I TNOT 


SYN 


72; 


1 7 1 7 


BYTE 


OH 


SYN 


73; 


1718 


BYTE 


OFF 


SYN 


74; 


1719 


BYTE 


GO TOO 


SYN 


75; 


1720 


BYTE 


LA3ELCGLUN SYN 


76; 


1721 


BYTE 


STACKADOR SYN 


77 ; 


1722 


BYTE 


CARD 


SYN 


79; 


1723 


BYTE 


CASEE 


SYN 


80 ; 


172 4 








COMMENT TERMINAL 


172 5 


BYTE 


BEG INN 


SYN 


83; 


172 6 


BYTE 


PARBEGIN 


SYN 


84 ; 


172 7 


BY TE 


I NUMBER 


SYN 


85; 


172 8 


3YTE 


NUMBER, 


SYN 


86; 


1729 


BYTE 


10 


SYN 


87; 


173 


BYTE 


LABEL ID 


SYN 


88 ; 


17 31 


BYTE 


ARRAY! D 


SYN 


89; 


1732 


BYTE 


FUNCID 


SYN 


90 ; 


1733 


BYTE 


RCCLID 


SYN 


91 ; 


1734 


BYTE 


FIELDID 


SYN 


92; 


1735 


BYTE 


CON 10 


SYN 


^3 ; 


1736 


BYTE 


FILEID 


SYN 


94; 


173 7 


BYTE 


PROC0G 


SYN 


95 ; 


1738 


BYTE 


RCCLOC 


SYN 


96 ; 


1739 


BYTE 


SEG 


SYN 


97; 


1740 


BYTE 


BITT 


SYN 


98 ; 


1741 


BYTE 


STRIN6G 


SYN 


99 ; 


1742 


BYTE 


TRUE 


SYN 


loo; 


1 743 


BYTE 


FALSE 


SYN 


101 ; 


1744 


BYTE 


WHILEE 


SYN 


102; 


1745 


BYTE 


NUL 


SYN 


103 ; 


1746 


BYTE 


NULL ST 


SYN 


104; 


1747 


BYTE- 


ARRAYDC 


SYN 


10 5; 


1748 


BYTE 


ARSTAR 


SYN 


106; 


1749 


BYTE 


STFUNCIO 


SYN 


107; 


1750 


BYTE 


STPROCID 


SYN 


108; 


1751 


BYTE 


IFF 


SYN 


111; 


1752 










175 3 


SHORT 


INTEGER 


MULTDEF 


SYN 1; 


1754 


SHORT 


INTEGER 


UNDECL 


SY N 2 ; 


175 5 


SHORT 


INTEGER 


SYNTAXERROR SYN 3; 


1756 


SHORT 


INTEGER 


RCCLERROR 


S YN 4 ; 


1757 


SHORT 


INTEGER 


TYPE3ERR0 


R SYN 5; 


1758 


SHORT 


INTEGER 


APARERROR 


SYN 6; 


1759 


SHORT 


INTEGER 


ARRAY ERROR SYN 7; 


1760 


SHORT 


INTEGER 


DATAERRGR 


SYN 8; 


176 1 


SHORT 


INTEGER 


FIELOERROR 


SYN 9 ; 


176 2 


SHORT 


INTEGER 


LENGTHERKOR SYN 10; 


176 3 


SHORT 


INTEGER 


RE F ERROR 


SY N u ; 


1764 


SHORT 


INTEGER 


H1ERARCHYERR0R SYN 12? 


176 5 


SHORT 


INTEGER 


FILEERROR 


SYN 13; 


176 6 


SHORT 


INTEGER 


REFREC ERROR SYN 14; 


1.767 


SHORT 


INTEGER 


PROC ERROR 


SYN 15| 


1768 


SHORT 


INTEGER 


TYPEERROR 


SYN 16; 


1769 


SHORT 


INTEGER 


RESULT ERROR SYN 17; 


177 


SHORT 


INTEGER 


PPROC ERROR SYN 18; 


1771 


SHORT 


INTEGER 


RELATIONERROR SYN 19; 
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06 
36 

06 
06 
G6 
06 
06 
06 
06 
06 
C6 
C6 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 

f* it 

'■-} i? 

06 

06 
06 
06 
06 
06 



oo/sc 

00 AC 
00AC 
OOAC 

00 AC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
CO AC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OCAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 
OOAC 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 

4- U 

20 
20 
20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



73C 
73 C 
73C 
073C 
73C 
07 DC 
07DC 
07DC 
07DC 
7 DC 
070C 
70C 
07 DO 
03 7C 
37C 
087C 
387C 
87C 
087C 
087C 
0D3A 
003 A 
CD3A 
03 A 
0D3A 
03 A 
0D3A 
0D3A 
0D3A 
0D3A 
0D3A 
03 A 
0D3A 
0D3A 
0D3A 
0D3A 
0D3A 
0D3A 
0D3A 
03 A 
0D3A 
0D3A 
0D3A 
00 3 A 
093A 
0D3A 
0D3A 
0D3A 
0D3A 
003A 
0D3A 
003A 
003 A 
03 A 
00 3 A 
03 A 
0D3A 
003A 



1772 

177 3 
1774. 
177 5 
17 76 
1777 

177 8 
1779 

178 
1781 
178 2 
1783 
173 4 
178 5 
178 6 
1787 
178 8 

178 9 
1790 
1791 
1702 
1793 
1 794 

179 5 
1 796 
1797 
1798 

179 9 
1800 
1301 
1302 
1303 
1804 
1805 
1806 
1807 
1308 
1809 
1310 
1811 
1812 
1313 
1814 
1815 
1316 
1317 
1818 
1819 
182 
1321 
182 2 
1823 
1824 
1825 
1826 
1327 
1328 
1829 



SHORT 
SHORT 
SHORT 
SHORT 
ARRAY 



ARRAY 



ARRAY 
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06 


OOAC 


20 


01.) 3 A 


06 


00 AC 


20 


0D3A 


C6 


OOAC 


20 


003 A 


06 


OOAC 


20 


003 A 


06 


OOAC 


20 


03 A 


06 


OOAC 


20 


00 3 A 


06 


OOAC 


20 


003 A 


06 


OOAC 


20 


0D3A 


06 


OOAC 


20 


003 A 


06 


OOAC 


20 


0D3A 


G6 


OOAC 


20 


03 A 


06 


OOAC 


20 


0D3A 


06 


OOAC 


20 


0D3A 


06 


OOAC 


20 


03 A 


06 


OOAC 


20 


0D3A 


06 


OOAC 


20 


03 A 


06 


OOAC 


20 


003 A 


06 


OOAC 


20 


0D3A 


06 


COAC 


20 


0O3A 


06 


CO AC 


20 


00 3 A 


■06 


OOAC 


20 


0D3A 


06 


OOAC 


20 


003 A 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


2 0F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


OCAC 


20 


20F4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20F4 


C6 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


COAC 


20 


2 OF 4 


06 


OOAC 


20 


2 OF 4 


06 


OOAC 


20 


20F4 


G6 


OOAC 


20 


2 OF 4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


G6 


OOAC 


20 


20F4 


06 


OOAC 


20 


20 F 4 


€6 


OOAC 


20 


20F4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


2 r 


20F4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20.F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


2 OF 4 


06 


OOAC 


20 


20 F4 


06 


OOAC 


20 


2 OF 4 


06 


COAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


2 Of 4 


06 


OOAC 


20 


20 F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 



13 30 
1B3L 

1332 
1833 
133 4 
103 5 
1336 
1837 
183 8 
1839 
1040 
1341 
1842 
1343 
1344 
1345 
1846 
1 847 
1848 
1340 
1350 
1351 
1352 
1353 
1354 
135 5 

135 6 
1357 
1858 
1359 
1360 
1861 
1 86 2 
1863 

136 4 
1365 
1366 
136 7 

136 8 
1 36 9 
1370 
1371 
1372 
1 373 
1374 
1375 
1376 
13 77 

137 8 
1879 
188 
1881 
1382 
1333 
1834 
1835 
1386 

138 7 



73, 64 , 1 12, 73,1 86, 1,7 3,1 12 ,7 3, 187, 2 55, 1,74, 147,65,152,2,74, 147,65, 

6 5,153,2 55,2, 75,73,46,74,188,0,7 5,74,18 9,1,75,105,76,192, 255, 1, 
76, 46 ,74,190, 2, 76, 46 ,10 5, 76 , 1 93 , 255 , 2, 77 , 1 54 » 47,75 , 1 91 ,2 ( 255 ) , 1 , 
79,147,65,154,2,79,147,65,6 5,15 5,2 55,2,80,46,103,66,166,2,80,46, 
105,8 0,199,25 5,0,31, 38,72,255,2,82,46,103,81,200,2 55,0,83,52,100, 
13 (25 5), 0,10 1, 1,1,0, 101,2,2,0,101,3,3,0,101,4,4,0,101,5,5,0,101, 
6,6,0,101,7,7,0,101,3,8,0,101,9,9,0,101,10, 10,1,101,153,70,180, 
3(255), 1,104, 101, 14, 15,2(25 5) ,2,106,13,101,29,42,3,106,13,114, 
101,29,43,3,106,13,1 15,101,29,44,4,106, 13,114,115,101,29,45,3, 
106 , 1 3 , 1 13 , 10 1 , 2 9 , 45 , 2 , 1 06 , 1 1 3 , 10 1 , 2 9 , 47 , 3 , 106, 1 3 , 1 1 , 101 , 33 , 60, 
0,106,61,145,2(2 55), 1,108,101,19,2 3,5(255), 1,113,101,27,38, 
4(255), 1,1 17, 10 1,37, 68, 255, 1,118, 119,40,74,255,0,119,5 8,137,255, 
2, 120, 46, 12 1,48, 95, 2 (25 5), 0,1 22, 72, 184, 255, 2, 123, 46, 124, 5 1,99, 

3 (255), 1,126, 54, 53, 1 06, 255, 1, 127 , 54, 53, 107, 2 ( 255 ) ,0, 1 29,53 , 113, 
2 55, 0,130, 53, 114,5 (2 55), 1,1 35, 56, 56, 12 3, 1,1 35, 144, 60, 144, 3(255), 
0,138,5 8,131,255,0,139,5 3,132,2 55,1,140,58,5 8,134,255,1,141,58, 
58,136,255,0,142,58, 138,255,0,143,59,139,1, 143,144,59, 140,255,0, 
144,60,143,2 55,0,1^5,59,141,1,145,144,59,142,255,2,146,67, 146,63, 
149, 2 (2 55), 1,148, 2,6 6, 165, 3 (255) ,0,151,69,173,1,151,152,69,174, 
4 (255), 1,15 5, 10 1,77, 194,255,2,156,46,157,78, 195,2 55,0,157,78,196, 
2 55,1 , 158, 46 ,79, 197 , 255 , 1 ,1 59 , 5 8 ,5 8 , 135 , 255 1 ; 
ARRAY 5050 BYTE MATRIX = 

(77 ( ), 2, 11 ( ),2,6 (0 ),2, 3(0 ),3C 2), 0,0, 2, 2, 0,0,2,2, 0,7(21,0,2, 
3(0), 3(2), 37(0) ,2,2,3(0.) ,2,2,5(0) ,2, 28(0), 2, 11(0) ,2,6(0), 2,3(0), 
2,2,3,0,0,2,2,0,0,2, 2, 0,7(2 ),0, 2, 3(0), 3(2), 14(0), 2, 11(0), 2, 6(0), 
2,3(0) ,2,2,3,0,0,2,2,0,0,2,2,0,7(2) ,0,2,4(0 ),2, 2, 14(01 ,2,11(0), 2, 
6(0), 2, 3(0) ,2,2,3,0,0,2,2,3(0) ,2,0,2,2,0,2,0,2,2,0,2,4(0) ,2,2, 
39(0) ,3, 38(0), 2, 11(0 ), 2, 6(0), 2, 3(0), 2, 2, 3(0) ,2,2,0,0,2,2,0,7(2), 
0,2,4(0) ,2, 2, 43 (01,3, 56(0), 3,6(0), 2 ,55(0 1,3, 5 (01,3, 0,0, 3, 3, 54(01, 
3,3,28(0), 1,9,1, 1,9{ 31,3,1,1, 0,7(1) ,8(0) ,1, 1,3(0) ,1,8(0) ,1,0,1,0, 
1,43(0), 3, 3, 61(0), 3, 0,0, 3, 67(0), 2, 22(0), 1,0, 3(1), 410), 3, 3(0), 
3(1), 0,7(1), 0,0, 3, 1,1, 0,1, 0,1, 1,3(0), 1,3(0), 2, 4(0), 1,0, 1,0,1, 
5(0), 1,17(0 ), 3, 1,25( 0), 1,3(0) ,2,57(0) ,3, 62(0), 3, 2,5(0) ,3,29(0) ,3, 
1 , 33 ( 0} , 3 , 56 ( ) , 2 , 5 { ) , 3 , 66 ( ) , 3 , 53 ( ) , 3, 3 , 5 ( 0) , 3 ,29( ) ,3 , 1 , 
67(0) ,2,11(0) ,2,6(0) ,2,3(0) ,2,2,3(0), 2, 2, 0,0,2, 2,0,7(2), 0,2,3(0), 
3,2,2,0,0,1,0,1, 1,9(0) ,3, 1,1,0, 7( ].),8(0) ,1,1,3(0) ,1,6(0), 3, 0,1,0, 
1,0,1,13(0) ,1,0,3(1) ,8(0) ,3,1, 1,0,7(1 ) , , 3, 3 ( 1 ) ,0, 1,0, 1,1,0,3,3, 
1,8 (01,1,0, 1,0, 1,5(0), 1,19(0) ,3,22(0) ,3, 3,3(0), 3, 2,3(0), 1,0,3, 

7 (0 ) , 2 , 5 ( ) , 3 , 14 (0 ) , 2, 18 ( ) , 2 , 3( ) , 2 , 2, 3( ) , 2, 2 , 3( ) , 2 ,0, 2 , 7( ) , 
2,4(0) ,2,2,0,0,1,0,3(1) ,8(0), 3(1), 3, 7(1), 0,0,3, 1,1,0, 1,0, 1,1,0, 2, 
2, 1,0, 0,2,2, 4(0), 3(1), 0,1,5(0) ,1,7(0) ,1,0,1,1,10(0) ,3,1,0,7(1), 
8(0) ,1,1,3(0), 1,8(0) ,1,0, 1,0, 1,50(0), 3, 18(0), 3, 19(0), 2, 11(0), 3, 
6(0) ,2,3(0) ,2,2,3(0) ,2,2,3(0) ,2, 0,2,3, 0,1, 0,1, 1,0, 2, 4(0), 2, 2, 
14(0) ,2,11(0) ,2,6(0) ,2,3(0) ,2, 2, 3(0), 2, 2, 3(0), 2,0,2, 2, 0,2, 0,2, 2, 
0,2,4(0) ,2, 2, 14(0 ),2, 11(0), 2, 6(0), 2, 3(0) ,2,2,3(0) ,2,2,0,0,3,2,0, 
2,2,3,2, 0, 2, 2,0,2,4( 0) ,2,2, 14(0), 2, 11(0) ,2,6(0) ,2,3(0) ,2,2,3(0), 
2, 2,0, 0,2, 2, 0,4(2 1,0,2,2,0, 2, 4(0), 2, 2, 14(0 1,2,11(0), 2, 6(0), 2, 
3(0) ,2,2,3(0) ,2, 2, 0,0, 2, 2, 0,4 (2), 3, 2,2, 0,2, 4(0), 2,2, 0,0, 1,0,1, 1, 
14(0) ,6(1), 8( 0) ,3, 1,3(0), 1,3(0) ,1,0,1,0,1,48(0) ,3, 3,3(0), 3, 3, 
57(0) ,2,2,3(0) ,2, 2,57(0,2,2,3(0), 2, 2, 5(0) ,3, 51(0), 2, 2, 3(0), 2,2, 
5(0), 2, 6(0) ,3,9(0) ,1 ,0,3(1) ,8(0) ,3, 1,1,0,7(1 ),0, 3,3 (11,3, 1,0, 1,1, 
3(0 3,1,0, 0,3, 3,4(0), 1,0,1,0,1,5(0) ,1,7(0), 2, 0,3(2 ), 3,3(1) ,4(0), 
3(21,0,7(2) ,0,6 (2 1,0,2, 2,3(0,2,0,0,2,2, 1,3(0), 2,0, 2,0, 2, 5(0), 2, 
7(01,2,0,3(2) ,8(0) ,3(2) , 0,7(2), 0,6 (21,0,2,2,3 (0) ,2,0,0,2,2,4(0), 
2, 0,2, 0,2, 5(0), 2,7(0 ), 1,3(0 1,1,10(0), 1,10(0), 3, 1,1, 0,1, 0,0, 1,0, 2, 
2, 3(0), 2,2, 14(0), 1,7 (0 ), 1,3(0) , 1,10(0), 1,9(0 ),3, 3(1 ), 0,1, 0,0,1, 
6(01,3,3, 14(01 , 1,62( 01,3,39(0) ,3,4(0) ,3, 18(0), 2, 4(0) ,1,1,61(01,3, 
16(0) ,2,11 (0) ,2,6(0 ), 2,3(0) ,2, 2, 3(0), 2, 2,0, 0,2,2, 0,7(2), 0,2, 3(0), 
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06 


CGAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


00 AC 


20 


2QF4 


C6 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20 F4 


06 


OOAC 


2 


20 F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


2.0 


20F4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20 F4 


06 


OOAC 


20 


2 OF 4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20 F4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20 F 4 


06 


OOAC 


20 


20F4 


06 


OOAC 


20 


20F4 


C6 


OOAC 


20 


20 F4 


06 


OOAC 


20 


20F4 



188 8 

188 9 
1890 
1 39 1 
1892 
1893 
1894 
1895 

189 6 
1897 

189 8 
1899 
1900 

1 90 1 
1902 
190 3 
1904 
190 5 
190 6 
1907 
1008 
1909 
1910 



C LOS E 



3 (2 ) t 12(0 

2,0,0 t 3, 3 
7 (2), 0,2, 

2,0,3(2) , 
3(2) i 0,7( 

5 ( ) , 2 , 42 
3(0), 3 (2) 
5(0) ,2,40 
8 (0) ,1,3( 
2,0,3(2) , 
7(2) ,0,0, 
44(0) ,2,1 
3 ( ) , 1 , 8 ( 
3(Q),1,3( 
3(0) ,1,0 
0,2,2,14( 
2,2,14(0) 
8(0) ,3,31 
2,0,0,3(2 
7(2) ,0,6( 
1,1,10(0) 
0,2,2,9(0 
BASE; 



) ,3( 
(2) , 

3(0) 
6(0) 
2),0 
(0), 
,0,7 
(0), 
0),1 
0,0, 
3(2) 
8(0) 
0) ,1 
0) ,1 
,0,3, 
0),6 
,6(2 
(0), 
) ,3( 
2 ) , 
,3,1 
) ,31 



2), 11(0 
3 5(0) ,3 
,3(2), 
,2,0,2, 
,4(2), 
2,2,62( 
(2) ,0,6 
3,9(0) , 
,59(0), 
2,2,4(0 
,0,2,0, 
,2,9(0) 
,3(0) ,1 
,13(0), 
10(0) ,1 
( 2 ) , 8 ( 
) , 8 ( ) , 
1,30(0) 
5,2,0, 
, 2 , 2 , 3 ( 
,0,7(1) 
2),Q,7( 



),2,6(0 
,42(0) , 
,0,2,0, 
0,2,0,2 
,2,0,2, 
0),2,2, 
(2), 0,2 
3,20(0) 
3,17(0) 
) , 3 ( 2 ) , 
2,2,0,3 
,3,30(0 
,13 (0) , 
1,0,0,1 
,0,0,1, 
),2,2,3 
2,2,3(0 
,2,0,7( 
2,0,2,5 
0),2,0, 
,6(0), 3 
2), 8(0) 



),2, 
2,11 
3(2) 

,5(0 

2,0, 

3(0) 

,2,3 

,1,0 

,2,0 

0,2, 

(2) , 

),1, 

1,0, 

,17( 

19(0 

(0) , 

3 ,2, 

2), 4 

(0) , 

0,3( 

,0,1 

,2,2 



0,0,4 
(0) ,2 
,8(0) 
) , 2 , 7 
3(2) , 
,2,2, 
( ) , 2 
,0,1, 
,3(2) 
5(0), 
0,0,2 
30(0) 
0,1,1 
0) ,3, 
1.3,9 
2,8(0 
8(0) , 
(0),3 
2,3,6 
2),3( 
,1,3( 
,3(0) 



(2) ,0,0 
,6(0), 2 
,3(2) ,0 
(0) ,2,0 
3,3(0), 
5(0) ,2, 
,0,0,3( 
17(0), 3 
, 8 ( > , 1 
2,7(0), 
,2,4(0) 
,1,0,0, 
7(0), 3, 
1,1,9(0 
(03,1,3 
),2,0,2 
2,0,2,0 
(2), 0,7 
(0),2,0 
0),2,0, 
) , 1 , 8 ( 
,2,8(0) 



,2,2,0 
,0,2,0 
,7(2) , 
,3(2), 
3,0,2, 
6< 0),2 
2), 3(0 
,1,1,9 
1(2) ,0 
2,0,3( 
,2,0,2 
1,15(0 
1,1, 9( 
) ,1,3( 
(0),1, 
,0,2,0 
, 2 , 40 ( 
(2),0, 
,7(2) , 
2,0,2, 
0),ltO 
,2,0,2 



,0,2, 

,3(2) 

0,4(2 

0,0,3 

0,2,0 

,9(0) 

3,2,0 

(0),1 

,0,3( 

23, 9( 

,0,2, 

),3,4 

0»,1, 

03,1, 

8(0), 

,0,3, 

0),3, 

6(2), 

4(0) , 

5(0), 

,1,0, 

,0,2, 



2,0,7(2 
,0,7(2) 
), 0,2,0 
,1,4(0) 
,2,0,2, 
,2,0,8( 
,2,0,2, 
,0,3,3, 
2), 0,2, 
0),2,2, 
5(0), 2, 
(1) ,9(0 
3(0), 1, 
8(0) ,1, 
1,17(0) 
10(0), 2 
1,27(0) 
0, 2.1 2.1 £ 
3(2) ,0, 
2,7(0), 
1,13(0) 
11(0)); 



),o, 

,0, 
,2, 



2), 

1, 

0,2, 

Ot 

111, 



,2, 

,0, 

,1, 
(0), 

1,0, 
,2, 



iGMENT 20 NAME = SEG#20 



LENGTH = 20F4 BASE REG = 14 



• 


06 


OCAC 


07 


0E48 




06 


OOAC 


07 


0E48 




06 


OOAC 


21 


0000 


• 


06 


OOAC 


21 


004 




06 


OOAC 


21 


000 8 




06 


OOAC 


2.1 


0014 


• 


C6 


OCAC 


21 


0014 




06 


OOAC 


21 


0014 




06 


OOAC 


21 


0014 


• 


06 


OOAC 


21 


0014 




06 


OOAC 


21 


0014 




06 


OOAC 


21 


0018 


• 


06 


OCAC 


21 


C02 8 




06 


OOAC 


21 


0034 




C6 


OOAC 


21 


00.34 


• 


06 


OOAC 


21 


0834 




06 


OOAC 


21 


08 34 




06 


OOAC 


21 


334 


• 


06 


OOAC 


21 


0834 




06 


OOAC 


21 


0840 




06 


OOAC 


21 


840 


• 


C6 


OOAC 


21 


0840 




06 


OOAC 


21 


0840 




C6 


OOAC 


21 


0340 


• 


06 


OOAC 


21 


8 40 




C6 


OOAC 


21 


0840 




06 


OOAC 


21 


0840 


• 


06 


OCAC 


21 


0840 




06 


OOAC 


21 


0840 




06 


OOAC 


21 


0840 


# 


06 


OOAC 


21 


0840 




06 


OOAC 


21 


0840 



1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
192 2 
192 3 
1924 
192 5 
1926 
1927 
1 92 8 
19 29 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
19 37 
133 8 
1939 
1940 
1941 
1942 



OUHMY 8A 
INTEGER 
SHORT IN 
ARRAY 3 
BYTE N 
BYTE 
BYTE C 
BYTE C 
ARRAY 
SHORT IN 
INTEGER 
INTEGER 

INTEGER 
ARRAY 51 
SHORT 
SHORT 
COMMENT 
ARRAY 3 
SHORT 
SHORT 
BYTE 
BYTE 
SHORT 
SHORT 
SHORT 
BYTE 
BYTE 
SHORT 
BYTE 
BYTE 
BYTE 



SE Rll; COMMENT COMPILER COMMON FORMAT; 

COMMTIMEJ 

TEGER C OHM LI ME, COM MP AGE; 

LOGICAL COHM FLAGS; 

OGO SYN COMMFLAGS(O); 

UTFLAG SYN CQMMFLAGS( 1 5 I 

HECKFLAG SYN .COMMFL AGS ( 2) ; 

AROF LAG SYN COMMFL AGS ( 3 ) ; 

2 LOGICAL TRACEBITS SYN COMMFLAGS ( 4 ) ; 

TEGER BLOCKLISTSIZE, NAMET ABLES IZE; 

REFRECBASE, IODIRBASE, IDLISTBASE, INPOINT; 

TREELINK, TREEBASF, TREETOP; 

TREEORG SYN TREETOP; 
2 LOGICAL BLOCKLIST; 

INTEGER BLENGTH SYN BLOCKLIST (01 S COMMENT LENGTH OF 
INTEGER NPOINT SYN BLOCKL IST( 2 ) ; COMMENT POINTER TO 

*** SIZE OF OTHER TABLES IS DYNAMIC *** ; 
LOGICAL NAME TABLE; 
INTEGER IDL0C1 SYN MAMETABLE; 
INTEGER IDL0C2 SYN NAMETABLE* 2 ) ; 
HIERARCHY SYN NAMETABLE (2 ) ; 



NAME TAB; 
NAMET AB; 



PROGS EG 
INTEGER 
INTEGER 
INTEGER 

TYPE 
SIMPLETYPE 
INTEGER 

VR 

DIMEN 
RCCL NUMBER 



SYN NAMETABLE (31; 

SIMTYPEINFO SYN NAMETABLE 

TYPEINFO SYN NAMETABLE 

TYPES SYN NAMETABLE 

SYN NAMETABLE (8); 

SYN NAMETABLE (9); 

IONO SYN NAMETABLE 



(4); 
(6) ; 
(8) ; 



(10) 



SYN NAMETABLE (6); 
SYN NAMETABLE (7); 
SYN NAMETABL£(7); 



PL 3 60 COMPILATION 
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06 


OOAC 


21 


840 


06 


00 AC 


21 


OB 40 


G6 


OOAC 


21 


840 


06 


OOAC 


21 


8 40 


06 


OOAC 


21 


0840 


06 


OOAC 


21 


0840 


06 


OOAC 


21 


0840 


06 


OOAC 


21 


840 


G6 


OOAC 


07 


0E48 


06 


OOAC 


07 


0E48 


06 


OOAC 


07 


0E4C 


06 


OOAC 


07 


0E4C 


06 


OOAC 


07 


OECE 


06 


OOAC 


07 


OECE 


06 


COAC 


07 


OECE 


06 


OOAC 


07 


OECE 


06 


0060 


07 


0ED8 


06 


0080 


07 


0EE8 


06 


00 BO 


07 


OEEC 


06 


OOBO 


07 


OEEO 


06 


OOBO 


07 


OEED 


06 


00 CO 


07 


OEED 


06 


0004 


07 


OEED 


06 


00C8 


07 


OEED 


Cfa 


COCA 


07 


OEEO 


06 


000 A 


07 


OEED 


06 


00 E 6 


07 


OEEO 


06 


OGEE 


07 


OEED 


C6 


OOEE 


07 


OEED 


06 


00 EE 


07 


OEED 


06 


00F6 


07 


OEED 


06 


0100 


07 


OEED 


06 


0104 


07 


OEED 


06 


CI04 


07 


OEED 


06 


01G8 


07 


OEED 


06 


01 CE 


07 


OEEO 


06 


1 1 8 


07 


OEED 


06 


one 


07 


OEED 


06 


one 


07 


OEED 


06 


one 


07 


OEED 


06 


0126 


07 


OEED 


06 


012E 


07 


OEED 


06 


012E 


07 


OEED 


06 


0130 


07 


OEED 


06 


0142 


07 


OEED 


06 


014C 


07 


OEED 


06 


0156 


07 


OEED 


06 


0160 


07 


OEED 


06 


016 A 


07 


OEED 


06 


0174 


07 


OEED 


06 


017E 


7 


OEED 


06 


0188 


07 


OEED 


06 


0192 


07 


OEED 


06 


019C 


07 


OEED 


06 


1 A6 


07 


OEED 


06 


01 HO 


07 


OEED 


06 


0186 


07 


OEED 


06 


C1C4 


07 


OEED 



1943 
1044 

1945 
1946 
1947 

194 8 
1949 
19 50 
1951 
19 52 
1953 
19 54 

195 5 
1956 
19 57 

195 8 
1959 
1960 

196 1 
196 2 
1963 
1964 
1965 
1966 
1967 
196 8 

196 9 
1970 

197 1 
1972 
197 3 
1974 
19 75 
1976 
197 7 

197 8 
1979 
19 30 

198 1 
1932 
198 3 
198 4 
1^3 5 

198 6 
1987 
1988 
1989 
1990 
1991 

199 2 
1993 
1994 
1995 
199 6 
1997 
1998 
1999 
2000 



ARRAY 1 SHORT INTEGER REFRECLIST SYM B5; 
ARRAY 1 LOGICAL IDDIR SYM B3 J 

SHORT INTEGER IDLENGTH SYN IDDIR; 

SHORT INTEGER IDPUINT SYN IDDIR(Z); 
ARRAY 1 BYTE IDLEST SYN B3; 
LOGICAL TREE SYN 0; COMMENT PASS TWO OUTPUT; 



BYTE PROGRAM 
CLOSE BASE; 



SYN 0; COMMENT PASS ONE OUTPUT; 



INTEGER INPOINTSAVE; 

SHORT INTEGER PATCHPOINT; 

ARRAY 64 SHORT INTEGER PATCHLIST; 



PROCEDURE ERROR (RIO); 
BEGIN LONG REAL DEC; 

INTEGER R1SAVE,R2SAVE,R3SAVE,R4SAVE; 
INTEGER TEMP2 5 
BYTE STACKFLAG; 
PROC E DUR E I DWR I T E { R 4 ) ; 
BEGIN R3 := IDDIRBASE; Rl 
IF R2 > 12 THEN R2 := 12 J 
Rl :== aiDLIST(Rl); 
END; 



= Rl SHLL 2; R2 := IDLENGTH(Rl) J 

Rl i= IDPOINT(Rl); R3 := IDLISTBASE5 



MVCU30, BUFFERU), BUFFER) ; STM< Rl , R4,R 1SAVE ) ; R3 : = RO; 

RO := 3BUFFER; RESET ( STACKFLAG) ; 
CASE R3 OF 
BEGIN 
BEGIN 

MVCi24, BUFFER, "MULTIPLY-DEFINED SYMBOL -"); IDWRITE; 
EX(R2,ERRM0VE) ; 
END; 
BEGIN 

IF Rl -.= THEN 

BEGIN HVC( 17, BUFFER, "UNDEFINED SYMBOL -") ; IDWRITE; 

EXCR2, ERRMOVE) I 
END ELSE GOTO L; 
END; 
BEGIN MVC( 12, SUFFER, "SYNTAX ERROR,"); 

SET< STACKFLAG) J R6SAVE := R6; 
END; 

MVCI34, BUFFER, "IDENTIFIER MUST 8E RECORD CLASS ID,"); 
MVCC20, BUFFER, "MISMATCHED PARAMETER,") ; 



MVC ( 37 , 8U FF ER , " I NCORR EC T 
MVC( 19 , BUFFER , "I NCORR ECT 

MVC ( 18, BUFFER, "DATA AREA 
MV C < 26 f 8U FF ER , " I NCORR ECT 

MVCC27 , SUFFER, "I NCOMP ATI 8LE 
MVC < 23, BUFFER, "INCOMPATIBLE 



NUMBER OF ACTUAL 

DIMENSION,"); 

EXCEEDED,") ; 

NUMBER OF FIELDS,"); 
STRING LENGTHS,") 
REFERENCES,"!; 



PARAMETERS,") 



MVCI 22, BUFFER, "BLOCKS NESTED TOO DEEP,"); 

MVC 120, BUFFER,"! NCORR ECT I/O DEVICE,"); 

MVC ( 36 , 8U FFER, "REFERE NCE MUST REFER TO R ECORD CLASS, " ) J 

MVCC36, BUFFER, "EXPRESSION MISSING IN PROCEDURE BODY,"); 

BEGIN MVC (21, BUFFER, "INCORRECT SIMPLE TYPE "); 

R2 := RULENUMBER; CVD(R2,DEC); MVCI 5 , BUFFERS 22 ) , MASK2) I 

ED (5, BUFFER (22) ,0EC(5I ) ; 
END; 



■^^mn ^^m mm m 
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06 


01C4 


07 


OEEO 


06 


01CE 


07 


OEED 


06 


0108 


07 


OEEf) 


06 


01E3 


07 


OEED 


06 


ClEE 


07 


OEED 


06 


1 F 6 


07 


OEED 


06 


02 04 


07 


OEED 


C6 


020 8 


07 


OEED 


06 


0210 


07 


OEED 


06 


C210 


07 


OEED 


06 


02 ie 


07 


OEED 


06 


0228 


07 


OEED 


06 


0228 


07 


OEED 


06 


022 E 


07 


OEED 


06 


0232 


07 


OEED 


06 


0232 


07 


OEED 


06 


023C 


07 


OEED 


06 


0246 


07 


OEED 


06 


02.50 


07 


OEED 


06 


02 5 A 


07 


OEED 


06 


02 DA 


07 


OEEO 


06 


02C0 


07 


OEED 


06 


2C4 


07 


OEED 


06 


02CC 


07 


OEED 


06 


02D8 


07 


OEED 


06 


02 08 


07 


OEEO 


06 


02E6 


07 


OEED 


06 


02 EC 


07 


OEED 


06 


C2EC 


07 


OEED 


06 


C2EC 


07 


OEED 


06 


02 F4 


07 


OEED 


06 


02 FA 


07 


OEED 


06 


0300 


07 


OEED 


06 


030E 


07 


OEED 


06 


0316 


07 


OEEO 


06 


0326 


07 


OEED 


06 


032A 


07 


OEED 


6 


03 3 


07 


OEED 


06 


033A 


07 


OEED 


06 


0344 


07 


OEED 


06 


0348 


07 


OEED 


06 


034C 


07 


DEED 


lid 


0360 


07 


OEED 


06 


C36A 


07 


OEED 


06 


0376 


07 


OEED 


06 


03 76 


07 


OEED 


06 


037A 


07 


OEED 


06 


0382 


07 


OEED 


06 


0386 


7 


OEED 


06 


0388 


07 


OEED 


06 


0388 


07 


OEED 


06 


038 8 


07 


OEED 


06 


388 


07 


OEED 


06 


C3 88 


07 


0EF4 


06 


038E 


07 


0EF4 


06 


0392 


07 


0EF4 


06 


03 9A 


07 


0EF4 


06 


039A 


07 


0EF4 



2 00 1 
2002 
200 3 
2004 
200 5 
2016 
200 7 
200 8 
2000 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
202 1 
202 2 
2023 
2024 

202 5 
2026 
2027 
2 02 8 
2029 
2030 

203 1 
203 2 
2033 
2034 
2 03 5 
2036 
2037 
2 08 8 
203 9 
2040 
2041. 
2042 
2043 
2044 
2 045 
2046 
2047 
2048 
2049 
2050 
20 51 
2052 
2053 
2054 
2055 
205 6 
2057 
2058 



MVC(32 f BUFFER, "RESULT PARAMETER MUST BE <T VAR>,"); 
MVC( 32, BUFFER, "PROCEDURE HEAD LACKS SIMPLE TYPE,"); 



R3 



LL 



L: 



BEGIN IC(R3,S(R8) ) j 
MVC< Hi BUFFER, 83) ; 
IF R6 = IDCODE THEN 
BEGIN Rl := VALUE; 

EX (R2,ERRMQVE); 

R2 := 2BUFFER(R2+28); 
END ELSE 



R3 * 12 S + MET ABASE:? 



MVC( 11, BUFFER (27)," 
MV I (",'», B2 ) ; 



M )S I DWR I T E ! 



BEGIN R3 := R6 * 12S + META8ASEJ 

MVC( 1 1, 8UFFER(27 ) ,83 ) ; MVI ( ",", BUFFER! 39 ) ) ; 
END; 

MV C ( 1 1 , BU FF ER (13)," UNR EL AT ED TO » ) ; 
GOTO LL; 
END; 

MVC<22, BUFFER, "ARRAY USED INCORRECTLY,"); 
MVCC 31, BUFFER, "TOO MANY CONSTANTS IN PROCEDURE,"); 
MVC(23, BUFFER, "INCORRECT STRING LENGTH,"); 
MVCL23, BUFFER, "COMPILER TABLE OVERFLOW,"); 
END; 

MVC( 16, BUFFER { 67), "CURRENT SYMBOL IS") ; 
Rl := R6SAVE; 
IF Rl = IOC ODE THEN 

BEGIN Rl := VALUE; IDWRITE; EXLR2, ERRM0VE91 ) ; 
END ELSE 
BEGIN R2 := Rl * 12S + ME TAB A SE; 

MVC { 1 1 , BU FFER ( 9 1 ) , B2 ) ; 
END; 



R2 i- CARDNUMBER; CVD(R2,D£C); 

MVCC 15 , BUFF ER C 41 ) , "CARD NU M8ER I S " ) ; 

MVCC 5, BUFFER (56), #402020202 1214040L) ; 

ED(5,8UFFER(56) ,DEC(5) ) ; MVI(".«, BUFFERC623 ); 

R3 := 0; I C(R3,0UTFLAG ) ; 

IF STACKFLAG AND R3 >= 3 THEN 

BEGIN MVH" ",3UFFER(41)); 

MVC (62, BUFFER ( 42) , BUFFER (41 ) ) ; 

MVC (14, BUFFER, "STACK CONTAINS:"); PRINT; 

MVC(14, BUFFER, 8UFFERC41 ).); RB := 3SCR7); 

TEMP2 :-= R3; 

FUR R3 := a S STEP 1 UNTIL TEMP2 

BEGIN R2 := 0; IC<R2,B3); R2 
MVC ( 1 1 , BU FF ER ( 2 ) , B 2 ) ; PR I NT ; 

END; 
END; 



9 



PRINT; 



DO 

:= R2 



* 12S + MET ABASE; 



LM{R1,R4,R1SAVE) 
SET(NOGO); 
END; 



MVH" ", BUFFER) 



PROCEDURE REFC0MPATI8LE (RIO); 

COMMENT COMPARES REFERENCE INFO IN Rl TO REFERENCE INFO IN R4; 
BEGIN INTEGER RASAVE; 

RASAVE := RIO; Rl := Rl AMD R4; 

IF = THEN 

BEGIN RO := SREFERROR; ERROR; 

END ; 

RIO :■= RASAVE; 






^i m i n i B i ' WWiiwuiiw 
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06 


G39E 


07 


0EF4 


06 


03 AO 


07 


0EF4 


36 


03 A 


07 


0EF4 


06 


03 A 


07 


0EF4 


06 


03 A 


07 


CEF4 


06 


03 A 


07 


0EF4 


06 


03AO 


07 


0EF8 


06 


i 3 AC 


07 


0EF8 


06 


03B2 


07 


QEF8 


06 


3B2 


07 


0EF8 


06 


C3C2 


07 


0EF8 


06 


03C2 


7 


OEFS 


06 


0306 


07 


0EF3 


06 


03 D6 


07 


0EF8 


06 


03 EO 


07 


OEFS 


06 


03 E8 


07 


0EF8 


06 


03 E 8 


07 


0EF8 


06 


03F4 


07 


OEFS 


06 


0404 


07 


OEFS 


06 


04 OC 


07 


0EF8 


06 


040C 


07 


0EF8 


06 


0420 


07 


0EF8 


06 


0428 


07 


0EF8 


06 


G42C 


07 


OEFS 


06 


042C 


07 


0EF8 


06 


043 8 


07 


OEFS 


06 


04 3 C 


07 


0EF8 


Oft 


044 A 


07 


0EF8 


06 


04 4 A 


07 


OFF 8 


06 


044 E 


07 


0EF8 


06 


04 5 A 


07 


OEFS 


06 


0462 


07 


0EF8 


06 


0466 


07 


OEFS 


06 


04 7 E 


07 


OF F 8 


06 


0482 


07 


OEFS 


06 


0484 


07 


0EF8 


06 


04 84 


07 


0EF8 


06 


048 4 


07 


OEFS 


06 


0484 


07 


OEFS 


06 


0484 


07 


OEFS 


06 


0484 


07 


EFC 


06 


04 8C 


07 


OEFC 


06 


0402 


07 


OEFC 


06 


049A 


07 


OEFC 


06 


04 A 6 


07 


OEFC 


06 


04AA 


07 


OEFC 


06 


04 BO 


07 


OEFC 


06 


048 3 


07 


OEFC 


06 


0488 


07 


OEFC 


06 


C4C4 


07 


OEFC 


06 


04CC 


07 


OEFC 


Ob 


4CC 


07 


OEFC 


06 


040 


07 


OEFC 


u6 


0402 


07 


OEFC 


06 


04 D 2 


07 


OEFC 


06 


04 D 2 


07 


OEFC 


06 


0402 


07 


OEFC 


36 


04C6 


07 


OEFC 



205 


206 


2061 


206 2 


20 6 3 


2 06 4 


2065 


2066 


2 06 7 


20 68 


2 06 9 


2070 


207 1 


2072 


207 3 


2074 


2075 


207 6 


2077 


207 8 


2079 


2080 


2081 


2082 


2083 


2 084 


2085 


2086 


2087 


2088 


2 08 9 


2090 


2091 


209 2 


2093 


2094 


2 09 5 


209 6 


209 7 


2098 


2099 


2100 


2101 


2102 


2103 


2104 


210 5 


2106 


210 7 


2108 


2 109 


2 1 1 


2111 


2112 


21.13 


2114 


2115 


2116 
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PROCEDURE CNVRTASSN(RIO) ; 

COMMENT LEFT SIMPLE TYPE IN RO, ITS SIMTYPEINFO IN R4, RIGHT 
SIMPLE TYPE IN V( J+l) ; 
BEGIN INTEGER RASAVE; 

RASAVE := RIO; Rl := Oj IC{ Rl, V22 (R8+8 )) *, 

IF RO --= Rl THEM 

BEGIN 

IF RO >5 THEM BEGIN RO := 3TYPEERR0R; ERROR; 

END ELSE 
IF RO = 1 THEN BEGIN RO := 3TYPEERR0R; ERROR; 

END ELSE 
IF RO = THEN 

BEGIN RO := 3PPRUCERR0R; ERROR; 
END ELSE 
IF RO < = 3 THEN 

BEGIN IF Rl > 3 THEN BEGIN RO := 3TYPEERR0R; ERROR; 

END ELSE STC<R0,CONV<R9) J; 
END ELSE 
IF Rl > 5 THEN BEGIN RO : = 3TYPEERR0R; ERROR; 

E NO ELSE STC < RO , CON V ( R9 ) ) ; 
RO := 3AC0L0NEQ; 
END ELSE 
IF Rl = 7 THEN 
BEGIN Rl := VKR8+8); 

IF Rl > P.4 THEN BEGIN RO := 3LENGTHERR0R; ERROR; 

END; 
RO ■:= aSCOLONEQ; 
END ELSE IF Rl = 9 THEN 
BEGIN Rl :=Vl(R8+8); REFCOMPATI 8LE ; 

RO := 3RC0L0NEQ; 
END ELSE IF Rl = 6 THEN RO := aLCOLONEQ ELSE RO :■= 3AC0LONEQ; 
RIO :■= RASAVE; 
END; 

PROCEDURE SAMETVPEfRlO); 

COMMENT CHECKS THAT RO AND V22CJ+1) ARE SAME TYPE AND ARE STRING OR 
REFERENCE COMPATIBLE, R4 CONTAINS SIMTYPEINFO FOR RO; 
BEGIN INTEGER RASAVE; 

RASAVE := RIO; I C { Rl , V22 * R.8+8 )) ; 
IF RO -»= Rl THEN 

BEGIN RO ■:= 3TYPEERRC3R; ERROR; 
END ELSE IF Rl = 7 THEN 
BEGIN Rl := VMR8+8); 
IF Rl ■-*= R4 THEN 
BEGIN RO := 3LENGTHERR0R; ERROR; 

END; 

END ELSE IF Rl =9 THEN 

BEGIN Rl := VKR8+8); REFCOMPATI BLE J 

END; 
RIO : = RASAVE; 
END; 

PROCEDURE APAREXPCHECK <R5)J 
COMMENT SHOULD BE IN EXECUTE2; 
COMMENT POINTER TO MAMETABLE IN R2; 
BEGIN IC*R0,SIMPLETYPE(R2) ) % 
R3 := 0; IC(R3,VR<R2)> ; 



HMMMMMMHMMIN 
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06 


04 OE 


07 


OfiFC 


06 


04E2 


07 


OEFC 


06 


04 E a 


07 


OEFC 


06 


04 E 3 


07 


OEFC 


06 


04 E 8 


07 


OEFC 


06 


04 E 3 


07 


OEFC 


06 


C4F4 


07 


OEFC 


06 


O4F0 


07 


OEFC 


06 


050 


07 


OEFC 


06 


C520 


07 


OEFC 


06 


05 30 


07 


OEFC 


06 


0533 


07 


OEFC 


Qi> 


0533 


07 


OEFC 


06 


0546 


07 


OEFC 


06 


05 50 


07 


OEFC 


06 


055C 


07 


OEFC 


06 


Q5 5C 


07 


OEFC 


06 


055C 


07 


OEFC 


06 


56 


07 


OEFC 


06 


0563 


07 


OEFC 


06 


05 63 


07 


OEFC 


06 


C5<5 3 


07 


OEFC 


06 


05 A 


07 


OEFC 


06 


05 A 


07 


OEFC 


06 


05A4 


07 


OEFC 


06 


5B4 


37 


OEFC 


06 


05C8 


07 


OEFC 


06 


050C 


07 


OEFC 


06 


05 FO 


07 


OEFC 


06 


5F3 


07 


OEFC 


06 


05F3 


07 


OEFC 


G6 


06C8 


07 


OEFC 


06 


C60C 


07 


OEFC 


06 


061 A 


07 


OEFC 


06 


0622 


07 


OEFC 


06 


0628 


07 


OEFC 


06 


063 


07 


OEFC 


06 


06 3 G 


07 


OEFC 


06 


06 3 


07 


OEFC 


06 


0630 


07 


OEFC 


06 


Q64C 


07 


OEFC 


06 


064 8 


07 


OEFC 


06 


C64E 


07 


OEFC 


06 


065E 


07 


OEFC 


06 


0666 


07 


OEFC 


06 


066C 


07 


OEFC 


06 


0674 


07 


OEFC 


06 


0674 


07 


OEFC 


06 


0674 


07 


OEFC 


06 


0680 


07 


OEFC 


06 


06 8 


07 


OEFC 


06 


06 8C 


07 


OEFC 


G 6 


06 94 


07 


OEFC 


06 


C60A 


07 


OEFC 


06 


06SA 


07 


OEFC 


06 


06A2 


07 


OEFC 


06 


06 A 2 


07 


OEFC 


06 


06 AC 


07 


OEFC 



2 1 1 7 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 

212 8 
2129 
2130 
2131 
2132 
2133 
2134 

213 5 
213 6 
2137 
213 8 

213 9 
2140 
2141 
2.142 
2143 
2144 

214 5 
2146 
2147 
2140 
.2149 
2150 
2151 
2 152 
2153 
2154 

215 5 
2156 
2157 
2153 
2159 
2160 

216 1 
2162 
2163 
2164 



5 3 



21 

2166 
2167 
216 8 
2169 
2170 
2 171 
2172 
2173 
2174 



R4 := SIMTYPEINFC(R2)S 
IF R3 -.= THEN 
BEGIN 

CASE R3 OF 

BEGIN 

cnvrtassn; 

begin comment result; 

ic<r3,0p(r9) ) ; r3 : = r3 and #7f ; 

if r3 -. = 30 and r3 -.= 31 and r3 -.= 40 and r3 -*= 6 2 and 

r3 -= 87 and r3 -.= 8 9 then 
begin ro := sresult error; error; 

END ELSE 

BEGIN R3 := RO; I C ( RO ,V22(R8 + 8) ) ; STC ( R3 f V22< R8+8I ) J 

R3 := R4; R4 := VHR8+8); VKR8+8) := R3; 
CNVRTASSN; RO := 05 STCC R0,CONV( R9) ) J 
END ; 

END; 

BEGIN COMMENT VALUE-RESULT; 

IC(R3,0P{R9) } ; R3 ; = R3 AMD #7F; 

IF R3 --.= 3 AND R.3 -.= 31 AND R3 -»= 40 AND R3 -*= 62 AND 

R3 -*= 87 AND R3 -= 89 THEN 

BEGIN RO := SR ESULTERROR; ERROR; 

END ; 

IC(Rl,V22{R8+8) ); 

if ro = 2 and rl = 3 them null else 

if ro = 3 and rl = 2 then null else 

if ro = 4 and rl = 5 then null else 

if ro = 5 and rl = 4 then null else 
sametype; 

END; 
END; 

IC(R3,V21{RB+8I }; 
IF R3->=0 AND R3 ~>= #13 THEN 

BEGIN R3 := POINTER I R9 ) ; R,3 := TYPE INFO (R3 } ; 
IF R3 -»= THEN 

BEGIN RO := STYPE3ERR0R; ERROR; 
END; 
END; 
END ELSE 

BEGIN IC<R3»TYPE(R2»); SAMETYPE; Rl : = 0; 
IC<RlfV21(R8+8})j Rl := Rl OR #10; 
IF Rl -.= R3 THEN 
BEGIN IF R3 = #10 AND Rl = #13 THEN 

BEGIN Rl := P0INTERCR9); Rl := TYPE INFO* Rl ) I 
IF Rl -i= THEN 

BEGIN RO := 3TYPE3ERR0R; ERROR; 
END; 
END ELSE 

BEGIN RO := STYPE3ERR0R; ERPOR; 
END; 
END ELSE IF Rl = #12 THEN 

BEGIN IC(R0,DIMENCR2) ); Rl := V34JR8+8); 
IF Rl = THEN 
BEGIN COMMENT INSERT DIMEN IN NAMETABLE; 

Rl := PUINTER<R9); STC{RO ,DIMEN*R1) ) ; 
END ELSE 

IF RO ->= Rl THEN 
BEGIN RO := 3ARRAYERR0R; ERROR; 
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06 


0684 


07 


OEFC 


06 


06 84 


07 


CEFC 


06 


06 B4 


07 


OEFC 


06 


694 


07 


OEFC 


06 


06 06 


07 


OEFC 


06 


C6B6 


07 


OEFC 


06 


06B6 


07 


OEFC 


06 


06 86 


07 


OEFC 


06 


C 6 B E 


07 


OEFC 


06 


6 04 


C7 


OEFC 


06 


C6CC 


07 


OEFC 


06 


06CC 


07 


OEFC 


06 


06 06 


07 


OEFC 


06 


06 E 2 


07 


OEFC 


06 


06EA 


07 


OEFC 


06 


070 2 


07 


OEFC 


06 


OTOE 


07 


OEFC 


06 


OTOE 


07 


OEFC 


06 


G710 


07 


OEFC 


06 


071G 


07 


OEFC 


06 


07 1 


07 


OEFC 


06 


C710 


07 


OEFC 


06 


0720 


07 


OEFC 


06 


72 8 


07 


OEFC 


06 


C72A 


07 


CEFC 


06 


C72A 


07 


OEFC 


06 


072A 


07 


OEFC 


06 


072A 


07 


OEFC 


06 


07 2 A 


07 


OEFC 


06 


072 A 


07 


OEFC 


06 


07 2 A 


07 


OF 08 


06 


0734 


C7 


OFOO 


06 


0^34 


07 


0FO8 


06 


07 34 


07 


OF 08 


6 


0768 


07 


0F08 


06 


07 76 


07 


OFOO 


6 


Q->16 


07 


OF 08 


06 


077 E 


07 


0F08 


06 


C7A2 


07 


0FO8 


06 


C7A6 


07 


OF 8 


06 


07 A E 


07 


0FO8 


06 


Q1AE 


07 


0F08 


06 


07 B A 


07 


0FO8 


06 


0706 


07 


0F08 


06 


C7CA 


07 


OF 08 


06 


07D2 


07 


0F08 


06 


07 DC 


07 


0F08 


06 


07E4 


a 


OF08 


06 


07E4 


07 


0F08 


06 


C 7E 8 


07 


OF08 


06 


07EC 


07 


OF 08 


06 


07 F 4 


07 


0F03 


06 


07FC 


07 


OFOO 


06 


C7FC 


07 


OF 08 


06 


080 


07 


0F08 


06 


OSOC 


07 


OF 08 


06 


0828 


07 


0F08 


06 


840 


07 


0FO8 



2175 
2176 
2 177 
2178 
2 179 
213 
213 1 
2182 
2133 
2184 

218 5 
2186 
2187 
2138 
2139 

219 
2191 
219 2 
2193 

219 4 
2195 
2196 
2197 
2 1 9 8 
2199 
2200 
2201 
22 02 
2203 
2204 
2205 
2206 

220 7 
220 8 
2 209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2 22 5 
2226 
2227 

222 8 
2229 

223 
2231 
2232 



END; 
END; 
END; 



END; 



(Rio) ; 

F.3 := V34(R7); 
:= R3; RO := RO OR #80; 



PROCEDURE REGPATH 
BEGIN 

R2 := V34IR8.J ; 
IF R2<R3 THEN 
BEGIN V34CR8) 
END ELSE 
IF R2 = R3 THEN 

BEGIN Rl := 0; IC{ Rl , V22 ( R8 ) ) ; Rl := Rl SHLL 1; 
R2 := R2 + INCREASE<R1) i V34(R8J := R2; 

IF RO = AASSIGN OR RO = LASSIGN OR RO = SASSIGN OR RO = RASSIGN 
THEN RO := RO OR #80; COMMENT RESOLVE ASSIGNMENT TO RIGHT; 
END; 

end; 
p r oc e du r e c a rdout (rio); 

BEGIN 

R9 := R9 + 4; RO := 9CAR0; STC {RO»GP (R9) J ; V5(R8) := R9| 
R2 := CARONUMBERJ POINT ER<R9) := R2; 

END; 

PROCEDURE LITERAL (RIO); 

COMMENT UPON ENTRY, POINTER TO LITERAL IS IN R4, SIMPLE TYPE IS IN RO, 
LENGTH-1 OF STRING IS IN R5. UPON RETURN, POINTER TO CONSTANT- 
TABLE IS IN R5; 
BEGIN INTEGER R1SAV E,R2SAVE, R3SAVE; 

STMUU.R3, R1SAVE); Rl := RO; R3 s= LIT8ASE; 

CASE Rl OF 

BEGIN 

R5 := 3; R5 := 3; R5 := 7; R5 := 7; R5 := 15; R5 := OS 
BEGIN R5 :- R5 SHLL 8; RO := RO OR R5 J R5 := R5 SHRL 8; 
END; 

R5 := 3; 
END; 

Rl := CTORG; 
WHILE Rl < CTPNT DO 
BEGIN 

IF RO -»= CINFQ(Rl) THEM Rl := Rl + 4 ELSE 
BEGIN R2 s = CA0DRCR1); R2 : = 3L ITER ALTABL6I R2! ; 
R2 := R2 + LITORG; 
EX TR 5 , COM P AR E2 4 ) ; IF = T H EM 

BEGIN R5 := Rl - CTORG; GOTO L; 
END ELSE Rl := Rl + 4; 
END; 
END; 

Rl := CTPNT; 
IF Rl >= 1024 THEN 

BEGIN RO := 3CONSTANTF.RR0R; ERROR; 
END ELSE 
BEGIN 

CINFDCR1) := RO; RO := RO AND #FF; R2 := LITPNTj 

IF RO ■= 3 OR RO = 5 THEN R2 := R2 + 7 SHRL 3 SHLL 3 ELSE 

IF RO -.= 7 THEN R2 := R2 + 3 SHRL 2 SHLL 2; 

RO. := R2 - LITORG; CADOR(Rl) '= RO; RO z~ Rl; 



■ i ii miPinrrpi-f n i iimnM nmi 
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06 


084C 


07 


OF 08 


C6 


C«53 


07 


OF 08 


# 06 


Q8 6A 


7 


0F08 


06 


86 A 


07 


OF 08 


06 


C872 


7 


OF 08 


# 06 


CS74 


07 


0F0 8 


06 


CS74 


07 


OF 00 


6 


C874 


07 


OF 08 


06 


8 74 


07 


OF OB 


22 


0000 


07 


OF 10 


22 


OOOA 


07 


0F1C 


22 


f 01 c 


07 


0F1C 


22 


028 


07 


0F1C 


22 


034 


07 


OFIC 


£ 22 


O04A 


07 


0F1C 


22 


5C 


07 


OFIC 


22 


006 A 


07 


CF1C 


? - • 22 


0C76 


7 


OFIC 


-■. 2 2 


0080 


07 


OFIC 


? 22 


0090 


07 


OFIC 


', # 22 


00 90 


07 


OFIC 


■1 22 


00 9 4 


07 


OFIC 


22 


00 A 2 


07 


OFIC 


• 22 


OCAC 


07 


OFIC 


22 


OOBO 


07 


OFIC 


22 


0088 


07 


OFIC 


• 22 


COCO 


07 


OFIC 


22 


00C8 


07 


OFIC 


22 


O0D6 


07 


OFIC 


% 12 


E 


07 


OFIC 


12 


OOEA 


07 


OFIC 


22 


OOEE 


07 


OFIC 


22 


OOF 4 


07 


OFIC 


22 


0100 


07 


OFIC 


22 


01 Co 


07 


Of 1C 


• 22 


0110 


07 


OFIC 


22 


0116 


07 


OFIC 


22 


0116 


07 


OF 1 C 


• 22 


0.1 IE 


07 


OFIC 


22 


01 IE 


07 


OFIC 


22 


0126 


07 


OFIC 


22 


012C 


07 


OFIC 


22 


0136 


07 


OFIC 


22 


013C 


07 


OFIC 


• 22 


013 


07 


OFIC 


22 


0140 


07 


OFIC 


22 


0140 


07 


OFIC 


# 22 


014A 


07 


OFIC 


22 


0154 


07 


OFIC 


22 


0164 


07 


OFIC 


22 


01 7 C 


07 


OFIC 


22 


0182 


07 


OF 1C 


22 


0168 


07 


OFIC 


# 22 


018E 


07 


OFIC 


22 


CIA 4 


07 


OFIC 


22 


01B6 


07 


OFIC 


22 


010 8 


07 


OFIC 


22 


01D6 


07 


OFIC 



2233 
2234 

223 5 
22 3 6 
2237 
22 3 3 
2230 
2240 
2 24 1 
2242 
2243 
2244 
2245 
2246 
2247 
2 24 8 

224 9 
2250 
2251 
2252 
2253 
2254 
22 5 5 
2256 

225 7 
2258 
2259 
2 260 
2261 
2262 
2263 
2264 
22 6 5 
2266 

226 7 
2268 
2 26 9 
2 270 
2 271 
2272 
2273 
2274 

227 5 
2 276 
2277 
227 8 
2279 
2280 
2281 
ZlrVl 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 



ALGOL W COMPILER - PASS 1 & 2 

Rl := 3LITERALTABLE(R2) ? EX< R5,M0VE14) ; R2 := 3B21R5+1); 
LITPNT := R2; R5 := RO - CTORG; RO := RO + 4; CTPNT s= RO; 

END; 
L:RO := 0; LM(R1,R3,R1SAVE ) ; 
END; 

SEGMENT PROCEDURE WR ITETREE ! RIG ) ? 

COMMENT WRITES TREE, CONSTANT POINTER TABLE, AND CONSTANT TABLES 
BEGIN INTEGER R1$AVF,R2SAVE,R3SAVE,R4SAVE, TEMP; 
STM!R1,R4,R1SAVE) ; M VC ( 130 f BUFFER! 1) , BUFFER) I 

Rl := Rl + R4 - 4; TEMP := Rl? RO := aBUFFER? 1 < "0", CARRCONT) J 
MVC( 16, BUFFER(i) f "PROGRAM SEGMENT ») ; MVC{5 , BUFFER (18 ) ,MASK2) J 
R3 := POINTER! R4); IC !R3, PR0GSEG!R3 ) ) ? R3 := R3 AND #FF? 
CVD<R3 f DEC); ED(5,BUFFER!18),DEC<5) ) ; PRINT; 

LOS FLAG OPCODE CONV POINTER")! PRINT? 
BUFFER); MVI!"Q",8UFFER!4} ) ? R3 ■ := 0? 
MVC! 2, BUFFER { 5 ) , BUFFER! 4) ) ? UNPK (4,2, BUFFER ( 34 I , R1SAVE ! 2 ) ) J 
MVI!" ", BUFFER (38) )? TRC 3, BUFFER! 34) , TRANSTABLE !_240) ) ; 
PRINT? Rl := 0; 

FOR R4 := R4 STEP 4 UNTIL TEMP DO 
BEGIN 

= R3; UNPK!4,2,BUFFER!4),HEX!2H? 
TR< 3, BUFFER !4) , TRANSTABLE !_240 )) S 
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ii 



MVC( 36, BUFFER! 1) , 
MVC( 180, BUFFER! 1), 



R3 := R3 + 4? HEX 

MVK" ", BUFFER! 8}}; 

IC!R1,0P!R4))? 
IF Rl > #7F THEN 
BEGIN R2 : = 1? Rl 
END ELSE R2 := 0? 



:= Rl AND #7F: 



R2 := R2 OR #F0? 
R2 := 30PTABL(R2); 
MVK" ", BUFFER (25)); 
R2 := aSEGINM; 

IF R1=R2 THEN 

BEGIN Rl := P!R4) SHRL 



R2 := Rl SHLL 3 



STCIR2, BUFFER! 13) ) ; 

MVC! 7, BUFFER! 16) ,82) ; 

WC ( 4, BUFFER! 26 ) , BUFFER C 25 ) ) J 



12 AND >«FFF? 



IF Rl -^= THEM 

BEGIN CVD (R1,0EC)J MVC! 5 , SUFFER ! 25) »MA SK ) ? 

ED ( 5 , BUFFER ( 25) , DEC ! 5 ) ) ; 
END; 

R2 := POINTER! R4) AND #FFF? 
END ELSE 

BEGIN IC!R1,C0NV!R4) ); 
IF Rl -.= THEN 
BEGIN CVD !Rl,DEO? MVC! 5 , BUFFER !25) , MASK J ; 

ED(5 f BUFFER! 25), DEC! 5)) ? 
END; 

R2 i= POINTER !R4) ; 
EUDi 

HEX := R2; UNPK (4,2, BUFFER (34) ,HEX<2) ) ; 

MVI !" ", BUFFER (38) )? TR! 3 , BUFFER (34) , TRANSTABLE! _2 40) I ? 
PRINT? Rl :■= 0; 
END; 

MVC! 38, BUFFER ( 1) ,BUFFFR)? PRINT? 
MVC! 15, BUFFER! 1) , "LITERAL ORIGIN -« ) J 
UNPK (4, 2, BUFFER! 18) ,LAB ELADDR! 2 ) ) ? 

TR(3,8UFF£R(18),TRANSTA3L£!_240) )? MVI!" ", BUFFER! 22) ) I PRINT? 
MVC(20,8UFFER(.l) , "LITERAL POINTER TABLE")? PRINT? 
MVC! 28, BUFFER! 1) ," LOC LENGTH TYPE POINTER")? PRINT? 

MVC < 28 f BUFF ER(l), BUFFER) 5 R4 := CTORG? Rl := 0? 
R2 := R4 + CTPNT - CTORG - 4; TEMP := R2 ; R3 := 0? 
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1 


22 


OlEC 


07 


0F1C 




22 


OlEC 


07 


0F1C 


t i 


| 22 


OlFE 


07 


0F1C 




22 


02 OC 


07 


0F1C 


( 


22 


0212 


)7 


OF 10 




| 22 


021C 


07 


0F1C 




2 2 


022A 


07 


OFLC 




22 


0230 


07 


0F1C 


J 


| 22 


023E 


07 


OF 10 




22 


02 50 


07 


0F1C 




22 


026A 


C7 


0F1C 


J 


| 22 


02 76 


07 


0F1C 


1 


22 


2 S C 


07 


0F1C 




22 


Q2A2 


07 


0F1C 


1 


| 12 


2 6 E 


37 


0F1C 




22 


02 C6 


07 


0F1C 


o 


06 


674 


07 


CF1C 


»• 4 


) 06 


G874 


07 


0F1C 


:: : 


06 


0374 


07 


OF 1C 


- : > 


23 


0000 


07 


0F20 


<: 4 


% 23 


000 


7 


OF 2 




23 


000 


07 


0F20 




23 


0000 


07 


OF20 


^ 


| 23 


000 


07 


0F20 




23 


0000 


07 


OF 20 




23 


0000 


07 


0F20 


1 


| 23 


O0C4 


07 


0F20 




23 


0004 


07 


0F28 




23 


00 C4 


07 


0F38 




| 23 


0008 


07 


OF 3 8 




23 


ococ 


07 


0F38 




23 


00 14 


07 


0F38 


™ 


| 23 


0018 


07 


0F38 




23 


00 IE 


07 


0F3 8 




23 


0024 


07 


OF 3 8 


J 


| 2 3 


00 34 


07 


OF 3 




23 


003A 


07 


OF 38 




23 


0046 


7 


OF 3 8 


| 


| 23 


0046 


07 


0F38 




23 


0062 


07 


0F38 




23 


096E 


07 


0F38 




| 23 


007A 


07 


OF 3 8 




23 


0083 


07 


OF 3 8 




23 


009C 


07 


0F38 




| 23 


009C 


07 


0F3 8 




23 


O0A4 


07 


Of 3 3 




23 


00A4 


07 


OF 3 8 




) 23 


00 A3 


07 


0F38 




23 


00 AC 


07 


OF 38 




23 


C1B4 


07 


0F38 




| 23 


008 8 


07 


0F38 




23 


OOBC 


07 


0F38 




23 


OOCO 


07 


0F38 




| 23 


0GC8 


07 


OF 3 8 




23 


000 


07 


OF 3 8 



2291 
2 20 2 
2293 
2294 

2 Z 9 5 

3 29 6 
2 29 7 
2 29 8 

229 9 
2 300 

230 1 
2302 
2 30 3 
2304 
230 5 
2306 

SEGMENT 

2 30 7 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2819 
2320 
2321 
2322 
2323 
2324 

232 5 
2 32 6 
2327 
2328 
2 329 
2330 
2331 
2332 

233 3 
2334 
233 5 
2 33 6 
2337 

233 8 
2339 
2340 
2341 

234 2 
2343 
2344 
2345 



Ch 



FOR R4 
BEGIN 
TR{3 
UNPK 
TR{3 
MVC( 
ED (5 
IF R 
MVC( 
ED (5 
END; 
MVCC30 
MVC( 12 
RO : = 
R14 : = 
id; 



:= R4 STEP 4 UNTIL TEMP 00 
HEX := R3; UNPK (4, 2, BUFFER { 3) ,HEX(2)J ;,WI(" ", BUFFER (7)) J 
,BUFFER(3) ,TRANSTABLE{_240) ) ; R2 := CADDR(R4); HEX 3= R2J 
(4,2,8UFFER(26) ,HEX{2 )); 

.BUFFER (26), TRANSTABLE <_240) } ; MVII" «», BUFFEROO ) ) ; 
5, BUFFER (15) ,MASK2) ; IC ( Rl , CTYP E < R4 ) ) ; CVD< R 1 , DEC ) S 
,BUFFER<15) ,0EC{5 )); 

1 = 7 THEN MVC15t BUFFEFU9) ,MASK2 JELSE 

5 t BUFFER<9) iMASK) i IC (Rl , CLENGTHC R4 )) ; CVD( Ri, DEC ) J 

,BUFFER(9) ,DEC(5) ); PRINT? Rl := 0; R3 := R3 + 4j 



,BUFF£R{1) .BUFFER); PRINT; R3 J 

tBUFFER(l) , "LITERAL TABLE"); PRINT; 
a LITERALTA8LECR4); Rl := LITPNT - 
SAVE14; LM{R1,R4,R1SAVE); 



= LITBASE? 

R4 := LITORG; 
LITORG; DUMP; 



RO := OJ 



NAME = SEG#22 



LENGTH = 0370 BASE REG = 15 



SEGMENT PROCEDURE PASS2(R10)J 

BEGIN INTEGER RASAVEJ 

PROCEDURE OECLARETEST (RIO ); 

COMMENT OECLARETEST FINDS THE ENTRY IN THE NAME TABLE i IF ONE EXISTS! 

POP, THE ID INDICATED IN VHIHCHECKS WHETHER IT IS MULTIPLY DECLARED, 

INSERTS THE RELATIVE NAME TABLE ADDRESS IN VHJ); 

BEGIN 

SHORT INTEGER TEMP; INTEGER R AS AVE ; 

I NTEGER Rl SA VE » R2 SAVE , R3 SAVE , R4S AV E ; 
STMIR1,R4,R1SAVE); 
R 1 : = VI { R7 ) ; 
R2:= BNC SHLA 1; 
LOOP: R3 := NP0INTIR2); 

R4: = 8LENGTHIR2)+ R3; 
WHILE R3 < R4 DO 

IF R1=IDN0(R3) THEN GOTO SUCCESS ELSE R3 := R3 + 12; 
IF R2 -= THEN 

BEGIN R2 := R2 SHRL 1; R2 := BLOCKLIST2FR2 ) SHLL 1; 
END ELSE 

BEGIN RO : = OUNDECL; RASAVE s= RIO; ERROR; RIO := RASAVE; 
SET(UNOECLFLAG); VKR8) : = R2; Rl : = R6SAVE; 
IF Rl = LPARENCODE THEN R2 := #301 ELSE 
BEGIN P. 2 := R7 SHRL 3; IC i Rl ,S ( R2-1 ) ) ; 

IF Rl = GOTOCODE THEN R2 : = #100 ELSE R2 := 1; 
END; 

V2FR8) := R2; GOTO L; 
END; 

GOTO LOOP; 
SUCCESS: V1(R8!:= P.3; COMMENT POINTER TO NAME TABLE; 
TEMP: = R4; R4:=TYPES<R3); 

R4 : = R4 amd #EFFF; COMMENT MASK OUT FP.AR BIT ; 
V2IR8) :=R4; 

R3 := 5JB3U2); COMMENT CHECK FOR MULTIPLE DECLARATION; 
WHILE R3< TEMP DO 

IF R1=IDN0{R3) THEN 
BEGIN 
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ALGOL W COMPILER 



PASS 1 £ 2 



23 


000 


07 


OF 3 8 


23 


O0E8 


07 


OF 3 8 


23 


EC 


07 


OF 38 


23 


CO EC 


J 7 


OF 3 8 


23 


00F8 


07 


0F38 


23 


OCFC 


07 


OF 3 8 


2 3 


OOFE 


07 


OF 3 8 


23 


OOFE 


07 


OF3 8 


23 


OOFE 


07 


OF 3 8 


23 


OOFE 


07 


OF 3 8 


23 


010 A 


07 


0F3 8 


23 


0112 


07 


OF 3 8 


23 


0116 


07 


0F33 


23 


01 1 8 


07 


OF 38 


23 


118 


7 


OF 3 8 


23 


0113 


07 


OF 3 3 


23 


one 


07 


0F33 


Zi 


012C 


07 


0F38 


23 


0134 


07 


0F38 


23 


0134 


07 


0F38 


2 3 


0138 


07 


OF 3 8 


23 


0140 


07 


0F38 


23 


Q14C 


07 


OF 3 3 


23 


0153 


07 


0F38 


23 


0164 


07 


0F3S 


23 


1 6C 


G7 


OF 3 8 


23 


017C 


07 


0F38 


23 


C17C 


07 


0F38 


23 


01 €4 


07 


OF 3 8 


23 


0190 


07 


0F38 


23 


010 3 


07 


0F38 


23 


Oi<5 8 


07 


OF 3 8 


23 


019 A 


07 


0F38 


23 


01 9 A 


07 


0F38 


23 


019A 


07 


OF 3 8 


23 


01A2 


07 


0F38 


23 


01B2 


07 


OF 3 8 


23 


01BC 


07 


OF 3 8 


23 


01 cc 


07 


0F3 8 


23 


01CE 


07 


OF 3 3 


23 


oice 


07 


0F38 


23 


01 CE 


07 


0F38 


23 


OICE 


07 


OF 3 8 


23 


1 C E 


07 


0F33 


23 


OICE 


07 


0F38 


23 


1C E 


07 


OF 3 8 


23 


OICE 


07 


0F38 


23 


0102 


07 


OF 3 8 


23 


0106 


07 


0F38 


23 


01 C A 


07 


0F38 


23 


01DE 


07 


0F38 


23 


01E2 


07 


0F3 8 


23 


01 E4 


07 


0F38 


23 


01E4 


07 


OF 3 8 


23 


01 £4 


07 


0F3 8 


23 


01 E4 


07 


OF 38 


23 


01E4 


07 


OF 3 8 


23 


01E4 


07 


0F38 



2346 

234 7 

2 34 8 
2 349 
238 
23 51 
2 35 2 
233 3 
2334 

235 5 
2356 
235 7 
2358 

235 9 
2 360 
2361 
2 36 2 
23 63 
23 64 

236 5 
2 3 6 6 
2357 
2368 
2369 
23 70 

237 1 
2372 
23 73 
2374 
2375 
2 376 
2377 
23 7 8 
2379 
2380 
2381 
2382 
23 33 
2 384 
2335 
2 3 36 

238 7 
2 38 8 
23 8 
2390 
2391 
2392 
2393 
2394 
2 39 5 
2396 

239 7 
239 3 
2399 
2400 
2401 
2402 
2403 



RO := 3MULTDEF; 
GOTO L; 
END 
ELSE R3 := 083{ 12) ; 
L: LM(R1 ,R4,R1SAVE) ; 
END; 



PROCEDURE BLOCKSTEP (RIO); 

BEGIN 

Rl := BN + 2; BN := Rl; 

R2 := BMC; BLOCKLI ST2 {Rl ) := R2 ; 

BNC := Rl; 
END; 
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RASAVE := RIO; ERROR; RIO := RASAVE; 
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COMMENT STEP BN? 

COMMENT CHAIN IN BL0CKLIST2; 

COMMENT RESET BNC J 



PROCEDURE BLOCK EXIT (R5); 

BEGIN Rl := BNC; 

IF Rl -•= 2 AND R6 -.= ENDFILE THEN 

BEG I N Rl : = BLOC KL I ST2 ( Rl ) ; BNC : = R 1 ; 

END; 

R2 := V2CR8J ; 

IF R2 = #FF THEN 

BEGIN Rl := HN+1; UN := Rl; 

R2 := DRELAOS Rl := VKR8) + OUTBASE; 
Rl := POINTER! Rl) + OUTBASE - 4; 
IF R2 > #FFF THEN 

BEGIN RO := 3DATAERR0R; ERROR; 
END; 
R2 := R2 OR P < Rl ) ; PCR1) := R2; 
Rl :■= VARURIGIN-4; VARORIGIN := Rl; 

Rl := V34CR8); DRELAD := Rl; COMMENT RESTORE OR EL AD; 

END; 
END; 
PROCEDURE TYPEINTEGER ( R5) ; 

COMMENT TYPEINTEGER CHECKS THAT RO AND Rl ARE BOTH TYPE INTEGER; 
IF RO -.= 1 THEN 

BEGIN RO := aTYPEERROR; ERROR; 

END ELSE IF RO -.= Rl THEN 
BEGIN RO := STYPEERROR; ERROR; 

END; 



PP, OC EDUR E UT ID ( R 1 ) J 

COMMENT OOTID PUTS TERMINAL NODE AND POINTER TO NAME TABLE IN OUTPUT 

STRING, TAKES TERMINAL NODE FROM RO, LEAVES POINTER TO NAMETA8LE 

IN Rl; 
BEGIN 

R9 := 389 <4); COMMENT STEP OUTPUT POINTER; 

STC(R0,OP<R9) ) ; 

Rl: = VKR8)j 

PG I NT E R OR 9 ):=Rl; 

V5<R8):=R9j COMMENT SAVE OUTPUT POINTER; 
END; 

PROCEDURE OUTOP (RIO); 

COMMENT OUTOP PUTS OPERATOR AND POINTER TO FIRST ARGUMENT IN OUTPUT 

STRING, TAKES OPERATOR FROM RO; 
BEGIN 

RO .:= 089(4); COMMENT STEP OUTPUT POINTER; 



# 
# 
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23 


1 E 8 


07 


0F38 




23 


1 F 


07 


0F38 




| 23 


02 4 


07 


0F33 




23 


204 


07 


0F38 




23 


02 CB 


07 


OF 38 




| 23 


0214 


07 


0F38 




23 


2 1 8 


07 


0F3B 




23 


02 IA 


07 


OF 3 8 




| 23 


21A 


07 


OF 3 8 




23 


21 A 


07 


0F38 




2 3 


021 A 


07 


OF 3 8 




| 23 


02 22 


07 


OF 38 




23 


0226 


07 


0F3 8 




23 


022E 


07 


Of 3 8 


% 


| 23 


02 3 6 


07 


OF 3 8 




23 


023A 


07 


0F38 




23 


023C 


07 


OF 3 8 




) 23 


23C 


07 


0F38 




23 


023C 


07 


OF 38 




2 3 


023C 


C7 


OF 44 


" 1 


) 23 


023C 


07 


0F44 


1 


23 


24 4 


C7 


OF 4 4 


", 


23 


02 4 A 


07 


OF 4 4 


J 1 


| 2 3 


G25A 


07 


0F44 




23 


02 5A 


07 


OF 44 




23 


026 6 


07 


OF 44 


1 


| 23 


0276 


07 


OF 44 




23 


027C 


07 


OF 44 




23 


0288 


07 


0F44 




| 23 


02 ec 


07 


0F44 




23 


298 


07 


OF 44 




23 


02 A 


07 


0F44 




| 23 


02A4 


07 


0F44 




23 


0280 


07 


0F44 




23 


02 DO 


07 


OF 44 




| 2 3 


0284 


07 


OF 44 




23 


2 66 


07 


OF 44 




23 


02 86 


07 


0F44 




) 23 


2B 6 


07 


OF 44 




23 


02 86 


07 


OF 44 




23 


02 B 6 


07 


0F44 




| 23 


2B6 


07 


OF 44 




23 


2D2 


07 


0F44 




23 


2F4 


C7 


OF 44 




) 23 


02F4 


07 


0F44 




23 


02F4 


07 


0F44 




23 


Q2F4 


07 


OF 44 




) 23 


02 F 4 


07 


OF 44 




23 


C'300 


07 


0F44 




23 


03 C A 


07 


OF 44 




| 23 


0312 


07 


0F44 




23 


03 1C 


07 


0F44 




23 


03 IE 


07 


OF 44 




) 23 


03 IE 


07 


0F44 




23 


one 


7 


0F44 




23 


031E 


07 


OF 44 




) 23 


03 22 


07 


0F48 




23 


032E 


07 


OF 4 8 



2404 

240 5 
2406 
2407 
2408 
240 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
242 
2421 
242 2 
2423 
2424 
242 5 
2426 
2427 

242 8 
2429 

243 
2431 
2432 
2433 
2434 
243 5 
243 6 
2437 
24 3 8 

243 9 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 

244 8 
2449 
2450 
2451 

245 2 
245 3 
2454 
245 5 
2456 
245 7 

245 8 
2459 
2460 

246 1 



ALGOL W COMPILER - PASS 1 & 2 

IF R9 >= PL I MIT THEM 

BEGIN RO := aTABLEERROR; ERROR; GOTO EXIT; 
END; 

STC(R0,OP(R9)) ; 

Rl := V5IR8) - OUTBASE; P0INTERIR9) : -= R 1 ; 
V5(R8):=R9; COMMENT SAVE OUTPUT POINTER; 

END ; 

P R DC E UR E B OL V AL U E ( Rl ) ; 

COMMENT VALUE IN RO, POINTER IN Rl; 

BEGIN R9 := 389(4); STC (R0,OP(R9) ) ; COMMENT OUTPUT OPERATOR; 
POINTER! R9) := Rl; 

RO := 6; V2(R8):=R0; COMMENT SET VALUE STACK; 
RO i- 0; V34IR8) := RO ; 
V5CR3) :=R9j 
END; 

PROCEDURE REFBINDCRIO) ; 
BEGIN INTEGER RAS AVE , R4SA VE, R5SAVE; 
SHORT INTEGER B5 SYN #500 0; 
R3 : = SI NT YPE I NF i R 1 ) ; R ASA V E s = RIO; 
IF R3 = THEN 

BEGIN RO := 3REFRECERR0R; ERROR; 
END ELSE 
BEGIN STM«R4»R5,R4SAVE) ; FO 1 : = VCR8J; 

R4 := 0; R5 := REFRECBASE; R5 := 3REFRECL I ST ( R3) ; P,3 i~ B5j 
WHILE R3 -.= DO 

BEGIN VKR7) := R3; DECLARETEST; R3 := VKR8); 
I C ( RO , RC C L NU MB E R { R 3 ) ) ; 

R3 := RO SHLL 1; R3 t= BITTABLE (R3) ; R4 := R4 OR R3; 
R5 i= R5 + 2; R3 := 85; 
END; 
SIMTYPEINFO(RI) := R4; VCR8) := F01; LM( R4,R5, R4S AVE) ; 

end; 

rio ::■= ras ave; 

END; 

PROCEDURE ALIGNSIMPVARIRIO) J 

COMMENT ALIGNSIMPVAR ADJUSTS R4 TO THE APPROPRIATE HALF-HORD ,WQRD »0R 
DOUBLE-WORD BOUNDARY - AS DETERMINED BY THE SIMPLE TYPE IN 
R3. R3 IS NOT DESTROYED ; 

IF R3 = 3 OR R3 = 5 THEN R4 := R4 + 7 SHRL 3 SHLL 3 ELSE 
IF R3 --= 7 AND R3 -i= 6 THEN R4 := R4 + 3 SHRL 2 SHLL 2; 

PROCEDURE MAXREG(RIO); 

COMMENT SETS REGISTER COUNTS TO MAXIMUM OF VIR8) AMD V(8HR8l; 
BEGIN 

IC(R0,V3(R8+8) ); Rl := 0; IC ( Rl , V3 < R8 ) ) ; 
IF Rl < RO THEN STC (RO, V3i R8 ) } ; 
IC(R0,V4CR8+8) ) 1 ICiRl ,V4(R8) ); 
I F R 1 < RO THEM STC I RO , V4 < R8 ) ) ; 

end; 

PROCEDURE CHECKSPACEIRIO) ; 

COMMENT INPUT AS MOVETREE. CHECKS FOR SPACE, COMPACTS IF POSSIBLE; 
BEGIN LOGICAL SAVERA; SAVERA := RIO; 

RIO := a:B2IRl+3) - COMMONLIMIT; IF > THEN 

BEGIN COMMENT RIO = ADDITIONAL SPACE REQUIRED; 
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23 


03 2 E 


07 


OF 4 8 


23 


014 


07 


OF 48 


23 


0340 


07 


OF 48 


23 


3 5 4 


07 


OF 4 3 


23 


03 54 


07 


OF 4 8 


23 


C35C 


07 


OF 58 


23 


0368 


07 


0F58 


23 


0372 


07 


OF 5 8 


23 


C376 


.17 


0F5B 


23 


037 6 


07 


0F58 


23 


3 86 


07 


0F58 


23 


03 9 C 


07 


0F50 


23 


030 8 


07 


OF 5 8 


23 


39C 


07 


0F53 


23 


03 A 2 


07 


0F58 


23 


03AA 


07 


OF 5 8 


23 


03 A A 


07 


0F58 


23 


0386 


07 


OF 5 8 


23 


03 E A 


07 


CF58 


23 


03 CO 


07 


0F5 8 


23 


03CC 


07 


OF 5 3 


23 


0300 


O? 


OF 58 


23 


03 D 8 


07 


0F58 


23 


0303 


07 


0F58 


23 


0308 


07 


0F58 


23 


030C 


07 


0F58 


23 


03DE 


07 


OF 5 8 


23 


03 DE 


07 


0F58 


23 


03DE 


07 


OF 5 8 


23 


03DE 


07 


OF 5 3 


23 


03 E 2 


07 


0F64 


23 


03 EE 


07 


0F64 


23 


03FA 


07 


OF 64 


23 


0406 


07 


0F64 


23 


040 A 


07 


OF 64 


23 


0412 


07 


0F64 


23 


04 2 


07 


OF 64 


23 


0424 


07 


OF 64 


23 


04 28 


07 


0F64 


23 


042E 


07 


OF 64 


2 3 


04 3 A 


07 


0F64 


2 3 


G4 3A 


07 


0F64 


23 


043E 


07 


OF 64 


23 


0442 


07 


0F64 


23 


044 2 


07 


OF 64 


23 


044E 


07 


OF 64 


23 


0460 


07 


0F64 


23 


0464 


07 


OF 64 


23 


046 A 


07 


OF 64 


23 


0472 


07 


0F64 


2 3 


047 2 


07 


OF 64 


23 


0474 


07 


0F64 


23 


0474 


07 


0F64 


23 


0474 


07 


OF 64 


24 


COCO 


' 07 


OF 64 


24 


0000 


07 


0F64 


24 


0000 


07 


OF 64 


24 


0000 


07 


0F64 



2462 
2463 
246 4 

2465 
246 6 

2467 

246 8 

2 46 
24 70 

247 1 
2472 
2473 
2 474 
2 47 5 
2476 
24 77 

247 8 
2479 
2430 
2431 
2482 

248 3 
2484 
24 35 
2486 
2487 
2438 
2489 

249 
2491 
249 2 
2493 
249 4 
249 5 
2496 
24 97 

249 8 
2 49 9 
2 500 

250 1 
2 502 
2 503 
2504 
2505 
2 506 
2 50 7 
2 50 8 
2 50 9 
2510 
2511 
2512 
2 5.13 
2514 
2515 
2 5 1 6 
2517 
p 5 1 P, 
2 519 



69.325 a 233 49 
LITPNT; IF < THEN 
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RIO := NEG RIO + INPOINT - INPOINTSAVE 
BEGIN COMMENT SPACE NOT AVAILABLE; 

SET(CUMMONFLAG) ; RO := 3T A3LEERR0R; ERROR; 
END ELSE 
BEGIN ARRAY 4 LOGICAL SAVE03; STM(RO ,R3 , SAV EQ3) ; 

R3 := INPOINTSAVE + LITPNT; Rl := INPOINT; 

RO := Rl - R3 AND #3; R.3 := R3 + RO; COMMENT ALIGN DELTA; 

INPOINT := R3; COMMENT Rl , R3 = SOURCE, DEST; 

RO := Rl - R3J RIO := R2 - Rl ; COMMENT R0,R10 = DELTA, 8YTE CNT; 

WHILE RIO > 256 DO 

BEGIN MVC(255,83,B1); RIO -■= RIO - 256; 
Rl := 381(256); R3 := 383(256); 

END; 

IF RIO > THEN 

BEGIN RIO := RIO - i; EXUUQ, M0VE31) ; 

END; 

R2 := R2 - RO; Rl := TREEBASE - RO; TREE8ASE := Rl; 

Rl := 3TREELINKJ COMMENT ADJUST TREE POINTERS; 

WHILE Rl > DO 

BEGIN R3 := MEM(RU - RO; MEMIR1) := R3j Rl := R3; 

END; 

LMCR0,Rl f SA\/E03) J R3 := SAVE03U2); 
EN D ; 
END; 

RIO := SAVERA; 
END; 

PROCEDURE HOVETREECR10); 

COMMENT BYTE COUNT IN Rl, SOURCE IN R4, DESTINATION IN R2; 
BEGIN INTEGER R1SAVE, R4SAVE, RASAVE; R4SAVE : = R4| 
RASAVE 1= RIO; CHECKSPACE; RIO -*= RASAVE; 
IF NOGO THEN R2 := 3B2(Rl+4) ELSE 
BEGIN R1SAVE s= Rl; R4 := R4SAVE; 

TREE(R2) s= Rl; COMMENT INSERT LENGTH; 

WILE Rl > 256 DO 

BEGIN MVC(255,82(4),B4); R2 s= 382(256); R4 : = 3B4I256J; 

Rl : = Rl - 256; 
END; 

IF Rl -<= THEN 

BEGIN Rl := Rl - 1; EX(R1,TREEM0VE) ; R2 := 382(Ri+l); 
END; 

R2 := 382(4); COMMENT SET TO NEXT FREE WORD; 

Rl := R1SAVE; 
END; 

R4 := R4SAVE; WHILE Rl > 256 00 

BEGIN HVKCB4); MVC ( 254, B4( 1 ) , B4) ; R4 : = 384(256); Rl := Ri-256; 
END ; 

IF Rl -,= THEN 

BEGIN Rl := Rl-1; EX ( Rl, TREEXOR) ; 
END; 
END; 



SEGMENT PROCEDURE 
BEGIN 



EXECUTE11R6); 



PROC EDUR E 8N0PR (RIO); 

COMMENT BNDPR CHECKS THAT BOTH BOUNDS ARE INTEGER, INCREASES THE 
DIMENSION COUNT, AND OUTPUTS COLON; 



mtmmrm m m i m imm »m «m i 
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24 


0000 


07 


OF 6 4 


24 


0004 


07 


0F68 


24 


00 C 8 


7 


OF 6 8 


24 


OOOC 


07 


0F6 8 


24 


C C 1 


07 


0F6 8 


24 


GO 10 


07 


OF 6 8 


24 


0020 


07 


0F6S 


24 


0024 


07 


OF 66 


24 


034 


07 


OF 6 8 


24 


0140 


07 


0F6 8 


24 


044 


C7 


OF 6 8 


24 


C046 


07 


OF 6 8 


24 


0C46 


07 


0F68 


24 


004 6 


07 


OF 6 8 


24 


CO 46 


07 


0F68 


24 


0046 


07 


0F68 


24 


0046 


07 


OF 70 


24 


004A 


07 


OF70 


24 


0056 


07 


OF 70 


24 


0062 


07 


0F70 


24 


CO 6 A 


07 


OF 70 


24 


CC7A 


07 


OF 70 


24 


0C7A 


07 


0F70 


24 


0C82 


07 


OF70 


24 


0G8A 


07 


OF 70 


24 


0092 


07 


F 7 


24 


00A2 


07 


0F70 


24 


OOAC 


07 


OF 70 


24 


0084 


07 


0F70 


24 


O0C8 


07 


OF 70 


24 


0004 


07 


OF 70 


24 


00E2 


07 


0F70 


24 


O0E2 


07 


OF 70 


24 


00F6 


07 


OF 70 


24 


0102 


07 


OF70 


24 


114 


n 7 


OF 7 


24 


one 


7 


0F7G 


24 


0120 


07 


0F7 


24 


0134 


07 


OF 70 


24 


013 A 


07 


0F70 


24 


013A 


7 


OF 70 


24 


14A 


07 


OF 70 


24 


015C 


07 


0F70 


24 


0163 


07 


OF 70 


24 


0174 


07 


OF 70 


24 


C17C 


07 


0F7O 


24 


017C 


7 


OF 70 


24 


0180 


07 


0F70 


24 


0184 


07 


0F70 


24 


0133 


07 


OF 70 


24 


013E 


07 


0F70 


2^- 


0196 


7 


OF 70 


24 


01A6 


07 


OF 70 


24 


01AE 


07 


0F70 


24 


0182 


07 


0F70 


24 


01BA 


07 


OF 70 


24 


01C2 


07 


0F70 


24 


QIC 4 


07 


OF 70 



2520 
2 521 

2 52 2 
2523 
2 524 
2 52 5 
2526 
2527 
252 8 
2529 
2530 
2531 
2532 
2533 
2 53 4 
2585 
2536 
2537 
2 53 8 
2530 
2540 
2541 
2542 

254 3 
25^4 
2 545 
2 546 
2 547 
2 543 
2549 
2 550 

255 1 
2 55 2 
2 55 3 
2 5 54 
2555 
2556 
2557 
2 55 8 
2 5 5 9 
2550 
2561 
2562 
2563 
2 564 

256 5 
2566 
2 567 
256 8 
2565 
2 570 
2571 
2 572 
2573 
2574 
2575 
2576 
2577 



BEGIN INTEGER RASAVE; 

RASAVE := RIO; 

I C < KO , V2 2 < R8 * 8 ) ) ; C OMM E NT 

IC(Rl,V22(R8+24) ); COMMENT 

TYPE INTEGER; 

R9 := aB9(4); 
RO := aCOLONj 

STC(R0,0P(R9)) ; Rl 

IC(R0,V4(R8) ); RO 

RIO := RASAVE; 
END; 



GET SIMPLE TYPE OF LOWER BOUND; 
GET SIMPLE TYPE OF UPPER SOUND; 



COMMENT STEP OUTPUT POINTER; 

:= V5(R8+8) - 0UT8ASEJ P0INTER(R9) '.= Rl; 
= RO + 1; STC(R0,V4(R8) ); 



PROCEDURE FPARL0CATECR5) ; 

COMMENT ORELAO IS INITIALIZED, SPACE IS ALLOTED FOR PO, 
ADDRESSES ARE ASSIGNED TO FORMAL PARAMETERS; 
BEGIN INTEGER R5 SAVE, TEMP; 
R5SAVE := R5; 

Rl := VAR0RIGIN+4; VARORIGIN 
Rl := HN-1; HN := Rl; 
< = 5 THEN 
RO J= aHIERARCHYERROR; 



AND RELATIVE 



:= Rl; 
COMMENT 



STEP HNS 



IF Rl 

BEGIN 
ENDS 

R2 : = 



ERROR; 



VI (R8) ; STCCR1,HIERARCHY<R2) ); 

SMC SHLA 2; 

CTPNTj CTP0INTERLR3) s= Rl; 

Rl + 3 SHRA 2 SHLA 2; CTORG := Rl; 

aCONSTANTTABLEiRl ); MVC( 11 ,B4,C0NSTANTTABLE) ; 

Rl + 12; CTPNT := Rl; 

LITPNT; LITP0INTER(R3) : ■= Rl J Rl := Rl +7 SHRA 3 
LITORG := Rl; R3 := LITBASE; R4 := 3LITERALTABLE ( Rl) ; 
MVC(3,B4,LITERALTABLE); Rl : = Rl + 4; LITPNT := Rl; 



R3 

Rl 
Rl 
R4 
Rl 
Rl 



SHLA 3 



R3 := SN+1; SN := R3; R4 := SMC; 
STC ( R3 , PROGSEG ( R2 ) ) ; R3 : = R3 SHLA 



OUT BASES 0UTP0INT(R3) 5= R4; 
OREL AD; V34CR8) i- R4; 

LABELADDR; V2(R8) := R4; R4 := 



TYPEINF0CR2) 
-.= THEN 



R4 : = 
R4 : = 
R4 : = 
R2 : = 
IF R2 
BEGIN 
Rl : = 
R2 : = 
R3 : = 
R2 : = 
WHILE 
BEGIN 
IDL0CUR1) i= R5; 
IC(R0,VR(R1) ); 
ICCR3,TYPE<R1) ) ; 
IF RO i= THEN 
BEGIN R3 := 0; 



SNC := R3; 

2; STATLINMR3) := R4J 
R4 ;= R9 - a; OUTBASE '= 



R4j 



SHLA 2; 



COMMENT 



NP0INTCR2); R3 
0; R3 := R3/12 
R3 SHRL 1 + 
VARORIGIN; 
Rl < TEMP DO 



24; 

GET 



LABEL ADDR ?= R4| 
SLOCKNUMBER OF FPARSl 



= 8LENGTHCR2); R2 := R3 
SHLL 3; R4 := VARORIGIN 

LABELADDR; LABELADDR := R3J 

R3 := 0; R5 := HN; 



+ 
+ 



TEMP := R2; 



R3S 



COMMENT 
COMMENT 



INSERT HN; 
GET VALUE INFO; 



STC (R3, TYPE CRD ) 



END 

Rl : = 

END; 

END ELSE 

DRELAD : = 

END ; 



ELSE IF R3 -i= #12 THEN 
Rl + 12; R2 := R2 + 8; 

R4 := VARORIGIN; 
R4; R5 := R5SAVE; 



IDL0C2CRU i= R2 



PL 3 60 COMPILATION 


24 


01C4 


07 


OF 70 


24 


QIC 4 


07 


OF 70 


£ 24 


01C4 


07 


OF 70 


24 


QIC 8 


07 


OF 7 


24 


01C0 


07 


0F70 


• 24 


01 cc 


07 


OF 70 


24 


01 E 8 


07 


OF 70 


24 


01F4 


07 


0F70 


24 


01F8 


07 


OF 70 


24 


20 


07 


OF 70 


24 


0210 


07 


OF 70 


• 24 


02 1C 


7 


0F70 


24 


214 


07 


OF 70 


24 


021 C 


07 


0F70 


• 24 


02 34 


C7 


OF 70 


24 


024 4 


07 


OF 70 


24 


G24C 


07 


0F7O 


'• • 24 


02 5 8 


07 


OF 70 


24 


02-66 


07 


0F70 


F 24 


0282 


07 


OF 70 


';.; £ 24 


02 8 A 


07 


OF 70 


1 24 


02 A 2 


07 


0F70 


24 


02AA 


07 


OF 70 


s 24 


2AE 


07 


OF 7 8 


24 


020 A 


07 


0F78 


24 


2C 


07 


OF 7 8 


24 


02CC 


07 


0F78 


24 


C20C 


07 


0F78 


24 


02E3 


07 


0F78 


# 24 


02 F4 


07 


0F78 


24 


02F4 


07 


0F78 


24 


03 OC 


07 


OF 78 


• 24 


0318 


07 


0F78 


24 


03 2C 


07 


OF 7 8 


24 


334 


07 


OF 78 


24 


034 A 


07 


0F78 


24 


0352 


07 


OF 78 


24 


3 5 A 


07 


OF 78 


24 


03 6 A 


07 


0F78 


24 


03 7 A 


07 


OF 78 


24 


03 8 A 


07 


0F78 


24 


3 9A 


7 


OF 7 8 


24 


03A2 


07 


OF 78 


24 


03 A A 


07 


0F78 


£ 24 


03BE 


07 


0F78 


24 


3D2 


07 


0F78 


24 


C3D4 


07 


0F78 


# 24 


03 D 4 


07 


OF 7 8 


24 


0304 


07 


0F78 


24 


03D4 


07 


0F78 


24 


03E8 


07 


OF 78 


24 


03FO 


07 


0F78 


24 


0404 


07 


0F78 


# 24 


04 10 


7 


0F78 


24 


041C 


07 


0F78 


24 


0422 


07 


0F78 


24 


042 2 


07 


0F78 


24 


042 A 


07 


0F78 
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257 8 
2 57 

2 5 80 
2531 

253 2 
2533 

2 5 4 4 
2 53 5 
2 586 
2 58 7 
2 53 8 
2 589 
2 590 
2591 
2592 
2 593 
2 594 
2595 
2596 
2597 
2 59 8 

259 
2 60 
263 1 
2602 

260 3 
2604 
2605 

260 6 
2607 
2608 
2609 
2610 
2611 
2612 
2613 

26 1 4 
2615 
2616 
2517 
2618 
2619 
2620 
2621 

262 2 
2623 
2624 

262 5 
2626 
26 2 7 
2628 
2629 
2630 
2631 
2632 
2633 
2634 

263 5 



PR OC E DU R E P.ROC EDCLOS E 
BEGIN 
Rl 
Rl. 
R2 
R2 
R2 
Rl 
IF 



(K5) 



COMMENT RESTORE BMC; 
1); BNC := Rl ; 
R2; COMMENT RESTORE HNJ 

VARORIGIN := R2; 
R2 := PQINTERIR2); 



Rl 

BEGIN 

END; 
IDL0CKR2) 



BMC; 
BL0CKLIST2CR 

HN+l; HN := 
VARORIGIN-4; 
V5( R8) - 4; 
DRELADj 

> #FFF THEN 
RO := a DAT A ERR OR; ERROR; 



:= Rl 



Rl := V34(R8) ; OR 
R4 := V5(R8) - 4; 
Rl := SNC SHLA 2; 
R2 := OUTPOINT CRD 

R2 := TREEORG; Rl 
R9 := TREELENGTH + 
R9 := R4; R3 := 
R2 := P0INTER1R4); 
R3 := Rl; Rl := 8 
IF -*NOGO THEN 
BEGIN ARRAY 2 INT 

R5 := TREELINK; 

MVC(7,B2<4* t» 



P0IMTERCR4 
IDOIRBASE; 
I0POINT(R4 
3IDLISTCR4 



R4 

R3 

R4 

R4 
END; 

R2 := 3B2C12) ; R4 
P0INTERCR9) := RO; 
R2 ■:- TREEORG; Rl 
R4 := 3C0NSTANTTAB 
MVC (3tB4,LABELADDR 



R4 
Rl 
Rl 

R4 
R2 
Rl 
R2 

Rl 

R2 

R2 

END; 



- LABELAOOR; 
= V2CR8) ; LAB 
= LITPNT - LIT 
= 3LIT6RALTABL 
= R2 + 3 SHRA 
= SNC SHLA 2; 
= L ITPO INTER (R 
= STATLINK(Rl) 
= CTPOINTEfURl 
= LITPOINTERiR 



COMMENT INSERT LOCAL STACK ORIGIN; 
ELAD := Rl; 

RO := 3PCL; OUTOP; 

R2 := STATLINMR1); SNC := R2; 
; OUTBASE := R2; 

:= R9 - R4 + 4; 

Rl + 4; TREELENGTH : = R9; 
; IC{R3,0UTFLAG) ; IF R3 > 5 THEN WRITETREEj 

ICCR0,PROGSEG(R2)) ; 
; R2 := TREEORG; CHECKSPACES Rl s= R3; 

EGER SAVE45; STM( R4,R5 ,SAVE45) ; 

82 CO) := R5; TREELINK := R2; 

"); 

); COMMENT PROCDC; R4 := IDM0CR4) SHLL 2; 

R5 := IDLENGTH(R4); IF R5 > 7 THEN R5 : = 7; 
); R3 := IOLISTBASE; 
); EX(R5,TR£EM0VE); LM {R4,R5, SAVE45J J 

:= 3P(R4); MOVETREE; TREEORG t= R2; 
RO := 3SEG; STC(R0f0P(P.9) ) ; 

:= CTPNT - CTORG +4; R4 : = CTORG J 
LECR4-4); R3 : = B4; 
}; LABELAOOR := R4 ; MOVETREE; 

B4 := R3; 
ELADOR := Rl; 

ORG; R4 : = LITORG; R3 := LITBASE; 
E(R4); MOVETREE; 
2 SHLA 2; TREEORG : = R2; 

R2 :« CTPOINTER(Rl); CTPNT := R2 5 
1) ; LITPNT := R2; 

SHLA 2; 
) + 3 SHRA 2 SHLA 2; CTORG := R2; 
1) + 7 SHRA 3 SHLA 3; LITORG ; = R2; 



PROCEDURE VALUEP{R53; 
BEGIN 

OECLARETEST; Rl : = V1CR8J; R3 := TYPES(Rl); 
IF R3 -.- 9 THEN 

BEGIN R4 : = DRELAD; ALIGNSI MPVARj IDL0C2CR1) 
IF R3 -.= 7 THEN IC( R3,LENGTHTABLE(R3) IELSE 
R3 :■= SIMTYPEINFO(Rl) + 1; 
R4 := R4 + R3; DRELAD s= R4; 
END; 

RO := 1; V34CR8) := RO ; 
END; 



:= R4| 



■—,._• 
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24 


042C 


07 


OF 7 8 


24 


C42C 


07 


OF 7 8 


24 


4 2C 


07 


OF 78 


24 


C4 3 2 


07 


0F78 


24 


43 2 


07 


OF 7 8 


24 


044 2 


07 


0F78 


24 


C44A 


07 


0F78 


24 


0A4A 


07 


OF 78 


24 


04 5C 


07 


OF 7 8 


24 


046 8 


07 


0F78 


24 


47 4 


07 


OF 7 8 


24 


047 A 


07 


OF 78 


24 


04 7 A 


07 


OF 7 8 


24 


04?C 


07 


OF 7 8 


24 


047C 


07 


0F7 8 


24 


047C 


7 


OF 7 8 


24 


04 7C 


07 


OF 7 8 


24 


0480 


07 


0F78 


24 


40 8 


07 


OF 7 8 


24 


04 A 8 


07 


OF 7 8 


24 


04 84 


07 


0F78 


24 


04 B A 


07 


OF 7 8 


24 


04CA 


07 


0F78 


24 


C4BE 


07 


0F78 


24 


G4C0 


7 


OF 7 8 


24 


04C0 


07 


0F73 


24 


C4C4 


07 


OF 7 8 


24 


AC 4 


07 


0F78 


24 


4C4 


07 


0F73 


24 


04C4 


07 


OF 7 8 


24 


40 4 


07 


OF 78 


2'+ 


04 04 


07 


0F73 


24 


04CC 


.37 


OF 7 8 


24 


04 DC 


07 


0F78 


24 


04 F4 


07 


0F78 


24 


C4F a 


07 


OF 78 


24 


04FE 


07 


0F78 


24 


04FE 


07 


0F78 


24 


0506 


07 


OF 7 8 


24 


50 A 


7 


0F78 


24 


0510 


7 


OF 7 8 


24 


o £ i a 


07 


0F78 


24 


0518 


07 


0F78 


24 


52 8 


07 


OF 78 


24 


5 30 


07 


OF 7 8 


24 


0530 


07 


0F78 


24 


5 30 


07 


OF 7 8 


24 


05 30 


07 


0F78 


24 


534 


07 


0F78 


24 


544 


C7 


OF 7 8 


24 


C544 


07 


OF 78 


24 


544 


07 


0F7 8 


24 


544 


07 


OF 78 


24 


54 3 


07 


0F78 


24 


055 8 


07 


0F78 


24 


5 58 


07 


OF 7 8 


24 


055 8 


07 


CF78 


24 


C558 


07 


0F78 



263 6 
2 63 7 

2638 
268 9 

264 
2 641 
264 2 
2643 
2644 
2645 
2 646 
2647 
2 64 8 
264 9 
26 5 
2651 
2652 
2653 



<;« 



u 



2655 
2656 
2 65 7 

265 S 
2659 

266 
266 1 
266 2 
2663 
2664 
2665 
2666 
2667 

266 8 
2669 
2670 
2671 

267 2 
267 3 
2674 
2 67 5 
2676 
2677 
267 8 
267<5 
2630 
2681 
2682 
2683 
2634 
2635 
2636 
2687 
263 3 
2639 
269 
2691 
2692 
2693 



PROCEDURE RELAD0RESS(R5); 

IF Rl -.= THEM COMMENT ROUTINE EXECUTED ONLY IF 10 DEFINED; 
BEGIN 

R4 := HNJ IDL0CKR1) := R4; R4 := DRELAD; R3 := TYPESIRl); 

IF R3 -.= 9 THEN 

BEGIN 

RO : = R3 ; AL I G.M S I M P VAR ; I DL OC 2 ( R 1 ) : = R4 ; 

IF R3 -.= 7 THEM IC ( R3 , L ENGTHTA8LE ( R3 ) >ELSE 
R3 := SIMTYPEINF0IR1 ) + 1; 

R3 := R3 + R4; DRELAD := R3; 

END; 
END? 

PR OC ED URE F I EL DOC ( R 5 ) ; 
BEGIN 

R4 := V2LR8); 

DECLAP.ETEST; Rl := VKR8); R3 := 0; I CLR3 »S I MPLETYP£<R1 J ) ; 

IF R3 = 3 OR R3 = 5 THEN 

BEGIN R4 := R4 + 7 AND #FF8; IDL0C2LR1) := R4 ; 
IC<R3fLENGTHTABLE<R3})5 R4 := R4 + R3; 

END; 

V2(R8) := R4J 

END; 

RULENUMBER :■= R5; 

CASE R5 OF 
BEGIN 

COMMENT <T VAR ID> :: = <IO>,ALSQ SELECTION OF APPROPRIATE 

ID RULE; 
BEGIN 

DECLARETEST; IC(RO, V21< R 8) ); 

IF RO > #F THEN R2 := #434 ELSE R2 := 0; RO := RO AND #F; 

V34CR3J := R2; COMMENT SET REGISTER COUNTS; 

IF RO -•= THEN 

BEGIN 

RO := RO - 1 SOLA 2; 

R3 s= R3SAVE; 

R3 : = R3 + RO; R3SAVE := R3; 

SET (FLAG); GOTO DONE; 

END; 
RO '.= SID; OOTID; COMMENT "ID"AND POINTER IN OUTPUT; 
Rl := SIHTYPEINFOtRl ); V1CR8) := Rl; 
DONE: END; 

COMMENT <LABEL 1D> : := <ID>; 

BEGIN 

RO := SLABELID;0UTID; COMMENT "LABELID" AND POINTER IN OUTPUT; 
END; 

COMMENT <T ARRAY ID> ::= <ID>; 

BEGIN 

RO := 3ARRAYI0;OUTID; COMMENT "ARRAYID" AND POINTER IN OUTPUT; 
END; 



COMMENT 
BEGIN 



<T FUNC ID> i*.= <ID>; 



■''i^mtdn'imwm 
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24 


05 5C 


07 


0F7 8 


24 


5 6C 


07 


OF 7 8 


24 


5 6 C 


07 


0F73 


24 


056C 


07 


0F7 8 


24 


56C 


7 


0F78 


24 


5 70 


07 


0F78 


24 


05 80 


7 


0F78 


24 


(.5 8 3 


07 


OF 78 


24 


0538 


07 


OF 7 8 


24 


5 88 


07 


OF 7 8 


24 


0538 


07 


OF 78 


24 


058C 


07 


0F78 


24 


5 9C 


07 


OF 7 8 


24 


5 A4 


07 


OF 7 8 


24 


C5AC 


07 


0F78 


24 


5B4 


07 


OF 78 


24 


05B4 


07 


OF 78 


24 


05B4 


07 


OF 7 8 


24 


5S 4 


07 


OF 7 8 


24 


0588 


07 


0F78 


24 


5C 8 


07 


OF 78 


24 


0500 


07 


OF 7 8 


24 


05 DO 


07 


0F78 


24 


5D0 


07 


OF 7 8 


24 


5C0 


07 


OF 7 8 


24 


05D4 


07 


0F78 


24 


C5E4 


07 


OF 7 8 


24 


5E4 


07 


0F78 


24 


5 E4 


07 


0F78 


24 


05L4 


07 


OF 7 8 


24 


5E4 


07 


0F78 


24 


5 ea 


07 


OF 7 8 


24 


C5E8 


07 


OF 7 8 


24 


5E8 


07 


0F78 


24 


05 EC 


07 


0F78 


24 


C5FC 


07 


OF 7 8 


24 


05 FC 


07 


OF 73 


24 


5f C 


07 


OF 78 


24 


5FC 


07 


OF 78 


24 


0600 


07 


0F78 


24 


0600 


07 


OF 7 8 


24 


0600 


07 


OF 7 8 


24 


06 04 


07 


0F7 8 


24 


06 1 8 


07 


OF 78 


24 


0618 


07 


0F78 


24 


0618 


07 


0F78 


24 


06 18 


07 


OF 7 8 


24 


06 1C 


07 


0F78 


24 


062C 


07 


0F78 


24 


06 20 


7 


OF 7 8 


24 


062C 


07 


0F78 


24 


06 20 


7 


OF 7 8 


24 


0630 


07 


OF 7 8 


24 


0638 


07 


OF 7 8 


24 


0638 


07 


OF 7 8 


24 


63 8 


07 


OF 78 


24 


063 8 ' 


07 


0F78 


24 


6 30 


07 


OF 7 3 



2694 
2 69 5 
2696 
2697 
269 8 

269 9 
2^00 
2 701 
279 2 
2703 
2704 
2 70 5 
2^06 
2 707 

270 8 
2709 
2710 
2711 
2712 
2713 
2714 

27 1 5 
2716 
2717 
2718 
2719 
2 72 
2721 
2 722 

272 3 
2 724 
2725 
2726 
2 7 2 7 
272 8 

272 9 

273 
2731 
273 2 
273 3 
2734 
2 735 
2736 
273 7 

273 8 
2739 
2740 
2741 
2742 

274 3 
2744 
2745 

274 6 
2747 
2743 
2749 
2750 

275 1 
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RO := aFUNCIDjOUTID; COMMENT "FUNCID" AND POINTER IN OUTPUT; 
E NO ; 

COMMENT <RC CL ID> :: = <ID>; 

BEGIN 

RO := aBXCLID; OUTID; COMMENT "RCCLID" AND POINTER IH OUTPUT; 
IC(R0,RCCLNUMBLR(R1) ) ; STC( RO, V22< R8 ) ); 

END; 

COMMENT <T FLO ID> : := <ID>; 
BEGIN 

RO := fl)FIELDID;OUTID; COMMENT "FIELD! D» AND POINTER IN OUTPUT; 

IC{R0,RCCLNUMBER(R1) ); STC< RO, V2H R8 ) ); 

Rl ■:= SIMTYPEINFO(Rl) ; VI < R8 ) : = Rl; 

Rl := l; STC(R1,V3(R8}); COMMENT SET REGISTER COUNT; 
END; 

COMMENT <CON I 0> :: = <ID>; 

BEGIN 

RO := aCONID; OOTID; COMMENT "CONID" AND POINTER IN OUTPUT; 
RO := 0; STC(RO,V21(R8)) ; COMMENT SET TYPE TO 0; 

END; 

COMMENT <ST FUNC ID> '*= <ID>; 

BEGIN 

RO := aSTFUNCID; OOTID; 

COMMENT ********** SET REGISTER COUNTS; 
END J 



COMMENT 


<FILE ID> ::= 


<ID>; 


NULL; 






COMMENT 


<ST PROC I0> :: 


<ID>; 


BEGIN 






RO : = 


aSTPROCID; OUTID; 




end; 







9 



10 



COMMENT <SI VAR DO ::= <S I VAR DC*>; 

NULL; 

COMMENT <SI VAR 0C*> :: = <S I TYPE> <ID>; 
BEGIN 

DECLARETEST; Rl :=V1(R3); RELADDRESS; 

END; 

COMMENT <SI VAR DC*> ::= <SI VAR 0C*> ,, <ID> ; 
BEGIN 

Rl := VHR8IH2; VKR8) := Rl; RELADDRESS; 
END; 



11 



12 



13 



<REF TYPE> 



); 



COMMENT <SI TYPF> i : = 
BEGIN 

RO := 9; V2CR8) := RO; COMMENT SET SI TYPE TO "REFERENCE"; 
END; 

COMMENT <REF TYPE> :: = REFERENCE <ID>; 
BEGIN 

DECLARETEST; [C(R0 f V21(R8 I ) J 



14 



15 



■-•»<*» '•'-■<rt< mm , m,< m m im * ^m m m mm< m i 
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24 


G64C 


07 


Of 78 


24 


0654 


07 


OF 7 


24 


06 64 


07 


UF78 


24 


06£4 


07 


OF 78 


24 


C6 64 


07 


0F78 


24 


0664 


07 


CF78 


24 


C6 64 


07 


OF 78 


24 


066 8 


07 


0F78 


24 


C6 78 


07 


0F78 


24 


680 


07 


OF 7 8 


24 


0690 


07 


OF 78 


24 


C6SC 


07 


OF 78 


24 


6 SO 


07 


OF 7 8 


24 


600 


07 


0F78 


24 


6 00 


07 


OF 7 8 


24 


0694 


07 


0F78 


24 


06 94 


07 


0F78 


24 


0694 


07 


0F73 


24 


060 8 


07 


0F78 


24 


C69 8 


07 


0F78 


24 


C6S8 


C7 


0F78 


24 


6 <3C 


07 


0F78 


24 


06 9C 


07 


0F78 


24 


G6 0C 


07 


OF 7 8 


24 


06 A 


07 


0F78 


24 


06 AG 


7 


OF 78 


24 


6A0 


07 


OF 7 8 


24 


06A4 


07 


0F78 


24 


06A4 


07 


OF 78 


24 


06 A 4 


07 


OF 78 


24 


C6A3 


07 


OFT 8 


24 


06A8 


07 


OF 7 8 


24 


06 A 8 


07 


0F78 


24 


G 6 A C 


07 


0F78 


24 


C6AC 


07 


OF 7 8 


24 


06 AC 


07 


0F78 


24 


06 RO 


07 


OF 78 


24 


C6B0 


07 


0F78 


24 


0680 


07 


0F78 


24 


G6B4 


07 


OF 7 9 


24 


0600 


07 


OF 79 


24 


06D4 


07 


0F79 


24 


6 DC 


07 


Of 79 


24 


06 FG 


07 


OF 79 


24 


C6F8 


07 


0F79 


24 


07QG 


07 


OF 79 


24 


070C 


07 


OF 7 9 


24 


C716 


07 


OF 79 


24 


G71A 


07 


OF 79 


24 


722 


07 


0F79 


24 


C 72C 


07 


0F79 


24 


07 36 


07 


OF 79 


24 


C746 


07 


0F79 


24 


0746 


07 


OF 79 


24 


074 E 


07 


0F79 


24 


75 8 


07 


0F79 


24 


C76C 


07 


OF 79 


24 


770 


07 


OF 79 



2752 
27 5 3 
2 7 54 
2 75 5 
2756 

275 7 
2758 
2759 
2760 
27 51 
2762 
2763 
2764 

276 5 
2766 

276 7 
2763 
2769 
27 70 
2771 
2 772 
2773 
2774 

277 5 
2 7 7 6 
2777 
2 778 

277 9 

278 
2731 
2782 
273 3 
2734 
2785 
2736 
2 7 37 
273 8 
278 9 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2 80 
2801 
2802 
2303 
2804 
280 5 
2806 
230 7 
2808 
2809 



IF RO -*= 4 THEN 

BEGIN RO := «)RCCLERROR; ERROR; 

END; 

END; 



16 



COMMENT <REF TYPO :: = 

BEGIN 

DEC L AR E TE S T ; I C ( R , V2 1 < R8 ) ) ; 

IF RO -t= 4 THEN 

BEGIN RO := 3RCCLERR0R; ERROR; 
END; 
END; 



<REF TYPE> 



< I D> ; 



COMMENT 
NULL? 

COMMENT 
NULL; 

COMMENT 
NULL; 

COMMENT 
NULL; 

COMMENT 
NULL; 

COMMENT 
NULL; 

COMMENT 



<FILE DO 



<FILE DO 



= <FILE HD*> ) 



:= <FILE HD**> 



<FILE DO ::= <FILE HO*-> 



<T EXP> 



<T EXP> 



<FILE HO**> ::= <FILE HD*-> <T EXP> 

<FILE HO*-> ::= <FILE HD*> , ; 

<FILE HO*> ::= <FILE DESO 



( 



<i/o oev>5 



<FIL£ DESO 



FILE <ID>; 



NULL; COMMENT 



$ ■%. * * ifi 



COMMENT <FILE DESO ::= <FILE DESO 

NULL; COMMENT * * * * * * * * # # * ; 



<ID> 



17 



18 



IP 



20 



21 



22 



23 



24 



25 



COMMENT <AP.P.AY DO is= <BND LST HD> <T EXP> z '. <T EXP> ) 

BEGIN BYTE FLAG; 

BNOPR; RO := 3ARPAREN; OUTOPj R2 := VKR8); R4 '= 0; 

IC(R0,SIMPLETYPEiR2)) ; 

IF RO -•= 9 THEN 

BEGIN RES ETC FLAG); R5 := DR. EL AD + 3 SHRL 2 SHLL 2; 

END ELSE SET {FLAG) ; 

Rl := V2(R8); BMC := Rl; COMMENT RESTORE BNC? 

IC(R4,V3(R8) 3 ; V2{R8) := R4 ; ICCR4, V4CR8 ) ) ; 

Rl := R4*12S + 8; 

FOR R3 : = 1 STEP 1 UNTIL V2CR8) DO 

BEGIN I C ( RO , D I M EN ( R2 ) ) ; 

IF RO = THEN S TC LR4,0I MEN( R2 ) JELSE 

IF RO -•= R4 THEN 

BEGIN RO := 3ARRAYERR0R; ERROR, 

END; 

If -.FLAG THEN 

BEGIN IDLOC2LR2) := R5 ; R5 := R5 + Rl; DRELAD J= R5j 

END ELSE IDLOC2<R2) : = Rl; 

R5 := HNS IDLOC1CR2) := R5 ; R5 := DRELAD; R2 : = R2 ♦ 12 J 
END; 



PL360 COMPILATION 



24 


077C 


07 


OF 79 


24 


C7 7C 


07 


OF 79 


24 


C77C 


7 


OF 79 


24 


77C 


07 


OF 79 


24 


C780 


07 


OF 79 


24 


C798 


07 


OF 79 


24 


7 AC 


07 


OF 7 9 


24 


7B4 


07 


OF 79 


24 


7B4 


07 


OF 79 


24 


7 B4 


07 


OF 7 9 


24 


Q7B4 


07 


OF 79 


24 


C 7 R 8 


07 


OF 79 


24 


C7C4 


07 


OF 7 9 


24 


C7C4 


07 


OF 79 


24 


?C4 


07 


OF 7 9 


24 


C7C4 


07 


OF 79 


24 


C7C3 


07 


OF 79 


24 


7 DO 


07 


0F79 


24 


C7EC 


07 


OF 79 


24 


7E8 


07 


OF 7 9 


24 


07E8 


07 


0F79 


24 


07E3 


07 


OF 79 


24 


C7E3 


07 


0F79 


24 


C7EC 


07 


0F79 


24 


C8O0 


07 


0F79 


24 


0800 


07 


OF 7 9 


24 


800 


07 


0F79 


24 


0800 


C7 


OF 7 9 


24 


0804 


07 


OF 79 


24 


CSC a 


07 


0F79 


24 


Q80E 


07 


OF 79 


24 


81 


07 


0F79 


24 


0828 


07 


OF 79 


24 


0828 


07 


0F79 


24 


082C 


07 


0F79 


24 


Q82C 


07 


OF 79 


24 


8 2C 


07 


0F79 


24 


82 


07 


0F79 


24 


082C 


07 


OF 79 


24 


C830 


7 


0F79 


24 


C83C 


07 


OF 7 9 


24 


€84 


07 


OF 79 


24 


646 


07 


0F79 


24 


C84A 


07 


OF 79 


24 


0950 


07 


OF 79 


24 


860 


07 


0F79 


24 


C86G 


07 


OF 79 


24 


8 64 


07 


OF 7 9 


24 


0864 


07 


OF 79 


24 


C8/:4 


07 


OF 7 9 


24 


864 


07 


QF79 


24 


8 64 


07 


0F79 


24 


8 6 3 


07 


OF 7 9 


24 


874 


07 


OF 7 9 


24 


CS7C 


07 


0F79 


24 


882 


07 


OF 7 9 


24 


896 


07 


0F79 


24 


CSA6 


07 


OF 79 



2310 
2811 

2812 
2313 
2814 

2815 
2316 
2317 
2818 
2819 
28 20 
28 21 
2822 
2 823 
2324 
2 325 
2826 
2827 
232 8 
2329 
2830 
28 31 
2332 
28 33 
2 334 
2335 
2 83 6 
2837 
2 83 
2839 
2840 
2841 
2842 
2343 
2344 
2845 
2846 
2 847 
2 848 
2849 
235 
2351 
2352 
2853 
2354 
2355 
2 356 
235 7 
2858 
2859 
2350 
23 51 
2 362 
2363 
2364 
28 6 5 
2366 
2367 



ALGOL W COMPILER 
END; 



PASS 1 £ 2 



69.325 a 23:49 
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26 



<SI TYPE> ARRAY <I0> 



COMMENT " < ARRAY HD> :: 
BEGIN 

R9 := R9 + 4; RO := SARRAYDC; STC ( RO ,0P{ R9) ) J CAROOUTJ 

DECLARETESTS RO := 1; STC < RO, V3 <R8 ) ) ; 

Rl := VI (R8); POI NTER(R9-4) := Rl ; 
END; 

COMMENT <ARRAY HD> ::= CARRAY HD> ,, < I D> ; 

BEGIN 

IC(R0»V3(R8J); RO := RO + 1; STC(R0,V3<R8) ) ; 

END; 

COMMENT <BND LST HD> :: = <ARRAY HD> { ; 

BEGIN 

RO := OJ STC(R0iV4CR8J); COMMENT INITIALIZE DIMEM COUNT J 

Rl := BMC; V2(R8) := Rl; Rl := BL0CKLIST2<RU ; 8NC := Rl; 

ic{r0,v3<r8)) j stc{rq,c0nv(r9-4) ); 
end; 

COMMENT <BNO LST H9> : := <BNO LST HD> <T EXP> :: <T EXP> , J 

BEGIN 

BNOPR; RO := aARCOMMA; OUTOP; 

END; 

COMMENT <PROC DECL> ::= <T PR HEAO> <STATEMENT*> ; 

BEGIN 

Rl := VKR8) ; 

IF Rl -.= THEN 

BEGIN IC<R0,SIMPLETYPE(R1I); IF RO -*= THEN 

BEGIN RO := 3PR0CERR0R; ERROR; 

END; 

PROCEDCLOSE; 
END ; 
END; 

COMMENT <PROC OECL> ::= <T PR HEAO> ; 

BEGIN 

RO s» 3NULLST; R9 := R9 + 4; STC i RO ,0P TR9 ) ) ; 
Rl := VHP 8) ; 
IF Rl ->= THEN 
BEGIN IC(R0,SIMPLETYPE(R1)); 
IF RO -.= THEN 

BEGIN RO := 3PR0CERR0R; ERROR; 
END; 

PROCEDCLOSE; 
END; 
END; 

COMMENT <PRUC DECL> ' :: = <T PROC HEAD> <T PROC 80DY> ; 

BEGIN 

R4 :- VHR83; IC J RO, SIMPLETYPEC R4) ) ; R4 .:= SIMTYPEINFOC R4J I 

R2 := 3ENDD; ICCR1 ,0P{R9 } I ; 

IF Rl = R2 THEN 

BEGIN R9 := R9 - 4; CNVRTASSN; R9 := R9 + 4; 

END ELSE CNVRTASSN; 

Rl : = VKR3) ; 



27 



28 



79 



30 



31 



32 



*wmsim--TTi mimimrmmnmm 
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24 


G*?AA 


07 


0F79 


24 


C88G 


07 


OF 79 


24 


08BC 


07 


OF 79 


24 


C88C 


07 


OF 70 


24 


C88C 


7 


OF 79 


24 


oaac 


07 


OF 79 


24 


ceac 


07 


OF 79 


24 


3C8 


07 


OF 7 9 


24 


08C8 


07 


OF 7 9 


24 


8C3 


07 


OF 79 


24 


CSC 8 


07 


OF 79 


24 


C8CC 


07 


0F79 


24 


8D8 


07 


OF 79 


24 


C8F8 


07 


OF 79 


24 


C 9 C 


07 


0F79 


24 


C90G 


07 


OF 79 


24 


900 


07 


0F79 


24 


0900 


07 


OF 79 


24 


090 4 


07 


OF 7 9 


24 


0«04 


07 


0F79 


24 


0^04 


07 


OF 79 


24 


0^08 


07 


OF 7 9 


24 


0QC8 


07 


0F79 


24 


090 8 


07 


OF 7 9 


24 


G90C 


07 


OF 79 


24 


0918 


07 


0F79 


24 


92 2 


07 


OF 79 


2^ 


09 26 


07 


OF 79 


24 


092C 


07 


0F79 


24 


0930 


07 


OF 7 9 


24 


0938 


07 


0F79 


24 


C94 8 


07 


0F79 


24 


C94C 


07 


OF 79 


24 


094C 


07 


0F79 


24 


0950 


07 


OF 79 


24 


09 54 


07 


OF 7 9 


24 


0958 


07 


0F79 


24 


09 5 8 


07 


r)jp Y9 


24 


9 5 8 


07 


OF 7 9 


24 


095 8 


07 


0F79 


24 


095C 


07 


OF 79 


24 


9 73 


07 


OF 79 


24 


09 84 


07 


0F79 


24 


C98A 


07 


OF 79 


24 


099 A 


97 


0F79 


24 


C99A 


07 


OF 79 


24 


C9 9A 


07 


0F79 


24 


099A 


07 


OF 79 


24 


09SA 


07 


0F79 


24 


09 9 E 


07 


OF 79 


24 


09EA 


07 


OF 7 9 


24 


09C6 


07 


OF 79 


24 


09 CC 


07 


OF 79 


24 


C9CC 


07 


0F79 


24 


09DC 


07 


OF 79 


24 


09DC 


07 


OF 79 


24 


09DC 


07 


0F79 


24 


09DC 


07 


OF 7 9 



286 8 
2869 
2 87 
2371 
28 72 
2 87 3 
2 87 4 

287 5 
2876 
2877 

287 8 
2 879 
2880 
2881 
2832 

288 3 
2834 

288 5 
2836 
2 33 7 
2 83 8 
2839 
2390 

289 1 
2892 
289 3 
2 394 
239 5 
2 396 
2397 
2898 

289 9 
2900 
2901 

290 2 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 

291 4 
2915 
2916 
2917 
2918 
2919 
2 920 
2921 

292 2 
2923 
2924 
292 5 



IF Rl -»= THEN 

BEGIN K2 :=VUR7); STC ( R2, CONV( R9+4) ) ; PROCEDCLOSEJ 

END; 
end; 

COMMENT <T PRQC BODY> :: = <T EXP> ; 

BEGIN RO := 0; V34CR8) := RO; 

END; 



33 



34 



COMMENT <T PRQC HOOY> ::= <BLOCKBODY> <T EXP> 
BEGIN 

BLOCKEXIT; 

RO := aCOHMA; OUT OP; RO := aENDDj OOTID; 

Rl := V12CR8+3); V12CR8) := Rl; 
END; 



END 



COMMENT 
NULL; 

COMMENT 
NULL; 



<T PR HEAO> 



<T PR HEAD*> 



<T PR HEAD*> 



= <PROCEDURE> ; 
<T PR HEAD*> J:= <PROCEDURE> <FPAR HEAD> ) 



35 



36 



37 



COMMENT 
BEGIN 

Rl := VUR8JJ R2 := TYPEINFO(Rl) SHLL 2; 
Rl .:= NP0INTCR2J; R3 := BLENGTHCR2); R3 := R3 + Rlj 
R4 :■= OREL AD J 
WHILE Rl < R3 00 
BEGIN R2 := TYPES (Rl I ; 
IF R2 = 9 THEN 
BEGIN R4 := R4 + 3 SHRL 2 SHLL 2; IDL0C2(R11 :* R4J 

R4 := R4 + 4; 
END; 

Rl : = Rl + 12; 
END; 

DRELAD := R4; 
E ND ; 

COMMENT <PROCE0URE> :: = PROCEDURE <ID> ; 

BEGIN 

DECLARETEST; RO := 3PR0C0C; OUTID; 

CARDOUT; 

IF Rl -.= THEN 

BEGIN BLOCKSTEP; FPARLOCATE; 

END; 
END; 

COMMENT <PROCEDURE> :: = <SI TYPE> PROCEDURE <ID> ; 
BEGIN 

DECLARETEST; RO := 3PR0CDC; OUTID; 

CARDOUT; 

IF Rl -.= THEN 

BEGIN BLOCKSTEP; FPARLOCATE; 

END; 
END; 



38 



39 



40 



COMMENT 
NULL; 



<FPAR HEAD> :t= <FPAR HEAD*> 



PL 360 COMPILATION 



24 


09EG 


07 


OF 79 


24 


O^EO 


07 


OF 79 


24 


09EO 


07 


OF 7 9 


24 


C9E4 


07 


OF 7 9 


24 


0«E4 


07 


OF 79 


24 


09E4 


07 


OF 79 


24 


0OE8 


07 


OF 7 9 


24 


09 FO 


07 


0F79 


24 


9FO 


07 


OF 79 


24 


C9F0 


07 


OF 7 9 


24 


9F 


07 


0F79 


24 


09F3 


07 


OF 79 


24 


09 F 8 


07 


0F79 


24 


09F3 


07 


0F79 


24 


OAOQ 


07 


OF 7 9 


24 


OAOO 


07 


OF 79 


24 


OACO 


07 


0F79 


24 


0AC3 


07 


OF 7 9 


24 


OA08 


07 


0F79 


24 


0AO3 


G7 


OF 7 9 


24 


OACC 


07 


OF 79 


24 


0A14 


07 


OF 79 


24 


GA14 


07 


OF 7 9 


24 


0A14 


07 


OF 79 


24 


0A14 


07 


OF 79 


24 


OA 1 8 


07 


OF 7 9 


2 4 


0A20 


07 


0F79 


24 


0A20 


07 


0F79 


24 


0A2 


07 


OF 79 


24 


0A20 


07 


0F79 


24 


0A24 


07 


0F79 


24 


0A2C 


0? 


OF 79 


24 


QhZC 


07 


OF 79 


24 


0A2C 


07 


0F79 


24 


0A2C 


07 


OF 79 


2 4 


0A34 


07 


OF 79 


24 


0A34 


07 


0F79 


24 


0A34 


07 


OF 7 9 


24 


0A3C 


07 


0F79 


24 


0A3C 


07 


0F79 


24 


0A3C 


07 


OF 79 


24 


OA40 


07 


0F79 


24 


0A40 


07 


0F79 


24 


0A48 


07 


OF 7 9 


24 


0A48 


07 


0F79 


24 


0A4 3 


07 


OF 79 


24 


GA50 


07 


OF 79 


24 


0A50 


07 


0F79 


24 


0A50 


07 


OF 7 9 


24 


0A54 


07 


0F79 


24 


0A5C 


07 


0F79 


24 


0A5C 


07 


OF 79 


24 


0A5C 


07 


0F79 


24 


0A5C 


07 


0F79 


24 


OA6 


07 


0F79 


24 


0A64 


07 


OF 79 


24 


0A6E 


07 


0F79 


24 


0A6t 


07 


OF 79 



2^26 
29 Zl 

202 8 

292 
2930 
2931 

293 2 
29 3 3 
29 34 
293 5 
29 3 6 
2937 

293 8 
2939 
2940 
2941 
2 942 
2943 
2944 
2945 
2946 
2947 

294 8 
2949 
2950 
2951 
2052 
2953 
2954 
2955 
2956 
2957 

295 3 
2959 
2960 
29 61 
2962 
2963 
2 964 

296 5 
2966 
2967 
2968 
2 96 9 
2 970 
2971 
2972 
2973 
2974 

297 5 
29 7 6 
2977 
297 8 
2979 
29 3 
2931 
2982 
2933 
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<FPAR HEAD> 
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COMMENT 


NULL; 


COMMENT 


BEGIN 


RO : = 


END; 


COMMENT 


VALUEP; 


COMMENT 


VALUEP; 


COMMENT 


VALUEP; 


COMMENT 


BEGIN 


RO .: = 


END; 


COMMENT 


BEGIN 


RO i- 


ENDi 


COMMENT 


BEGIN 


RO : = 


END; 


COMMENT 


VALUEP; 


COMMENT 


VALUEP; 


COMMENT 


BEGIN 


RO : = 


END; 


COMMENT 


VALUEP; 


COMMENT 


BEGIN 


RO : = 


end; 


COMMENT 


BEGIN. 


Rl := 


IF Rl 


END; 



<FBNO LIST> ; 



PAGE 52 
41 

42 



<FPAR HEAO*> ::= < <SI TYPE> <ID> J 
0; V34LR8) := RO; 

<FPAR HEAO*> ::= < <SI TYPE> VALUE <ID> ; 

<FPAR HEAO*> ::= < <SI TYPE> RESULT <ID> ; 



<FPAR HEAO*> 



( <SI TYPE> VALUE RESULT <I0> J 



43 



44 



45 



46 



<FPAR HEAD*> ::= < <SI TYP£> PROCEDURE <ID> % 

0; V34JR8) := RO; 

<FPAR HEAD*> :: = i PROCEDURE <ID> ; 

0; V34(R8) := RO; 

<FPAR H£AD*> ' z= <FPAR HEAD-> <S I TYPE> <ID> I 
0; V34IR8) := RO; 

<FPAR HEAD*> :: = <FPAR HEAD-> <SI TYPE> VALUE <ID>J 

<FPAR HEAO*> ::= <FPAR HEAD-> <SI TYPE> RESULT <ID>; 

<FPAR HEAD*> :: = <FPAR HEAO-XSI TYPE> PR0CE0URE<I0>5 

0; V34IR3) :■= RO; 

<FPAR HEAD*> : :=<FPAR HEAO-XSI TYPE>VALUE R£SULT<ID>; 

<FPAR HEAO*> ::= <FPAR HEAO-> PROCEDURE <ID>; 
0; V341R8) := RO; 

<FPAR HEAO*> ::= <FPAR HEAD*> t, <ID>; 

V34CR8) ; 

-.= THEN VALUEP; 



47 



4a 



49 



50 



51 



52 



53 



54 



55 
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24 


0A6E 


07 


0F79 


24 


A 6 E 


07 


OF 79 


24 


CA72 


07 


OF 70 


24 


0A7 2 


07 


OF 79 


24 


CA72 


07 


0F79 


• 24 


0A76 


07 


OF 79 


24 


OA 7 6 


07 


OF 79 


24 


0A76 


7 


OF 79 


• 24 


0A7A 


07 


OF 7=3 


2 4 


0A9 2 


07 


OF 79 


24 


0A9C 


07 


0F79 


• 24 


OAAO 


07 


OF 7 9 


24 


0AA8 


07 


0F79 


24 


CAAE 


07 


0F79 


• 24 


OAB.A 


07 


OF 79 


24 


OABE 


07 


OF 79 


24 


OABE 


07 


0F79 


• 24 


OABE 


07 


0F79 


24 


OABE 


07 


OF 79 


24 


0AC2 


07 


0F79 


(§ 24 


0AC2 


07 


OF 79 


24 


OAC2 


07 


0F79 


24 


OAC6 


07 


OF 7 9 


24 


0AC6 


07 


0F79 


24 


0AC6 


07 


0F79 


24 


OACA 


07 


0F79 


• 24 


oAce 


07 


0F79 


24 


OADE 


07 


0F79 


24 


OADE 


07 


OF 79 


• 24 


CADE 


07 


OF 79 


24 


0AE2 


07 


0F79 


24 


OAF6 


7 


OF 79 


• 24 


0AF6 


07 


0F79 


24 


OAF 6 


07 


0F79 


24 


OAF 6 


07 


OF 79 


24 


OAF A 


07 


OF 79 


24 


0306 


07 


OF 79 


24 


(5BC6 


07 


OF 79 


# 24 


806 


Cl 


0F79 


24 


080 6 


07 


OF 7 9 


24 


OBOA 


07 


OF 79 


• 24 


812 


07 


0F79 


24 


0016 


07 


0F79 


24 


0316 


07 


0F79 


• 24 


0816 


07 


0F79 


24 


OB 16 


07 


OF 79 


24 


oein 


07 


OF 79 


£ 24 


8 1 E 


07 


0F79 


24 


08 IE 


07 


OF 79 


24 


0S26 


07 


0F79 


• 24 


0826 


07 


OF 7 9 


24 


0B26 


07 


OF 79 


24 


0E2E 


7 


OF 79 


24 


0S2h 


07 


OF 79 


24 


OB 2 E 


07 


OF 79 


24 


0B32 


07 


OF 79 


# 24 


0B32 


07 


OF 79 


24 


OB 32 


07 


OF 79 



2934 
2905 
298 6 
2937 
2 93 8 

298 9 
2990 

299 1 
2992 

299 3 
2994 
2995 
2996 
2997 
2 99 8 

2 99 9 
3000 
3001 

300 2 
300 3 
3004 

3 005 
3006 
300 7 

300 8 
3 009 
3010 
3011 

30 1 2 
3013 
3014 
3015 

301 ft 
3017 
3018 
3019 

302 
3021 
302 2 
3023 
3024 
3025 
3026 
3027 

302 8 
3029 

Jj \.) CD \j 

303 1 
3032 
3033 

30 34 

303 5 
3036 
30 87 
3038 
3039 
3040 
3041 
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COMMENT <FPAR HEAD-> ::= <FPAR HEAO*> ., 

NULL; 
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56 



•:' C 



COMMENT 
NULL; 



<FPAR HEAO-> ::= <FBND LIST> ., 



COMMENT <FBND LIST> :: = <FBNO HEAD> * ) ; 

BEGIN 

R4 := ORELAD + 3 SHRA 2 SHLA 2; R2S=V1(R8); IC ( ROiDI MEN( R2) } ; 

Rl := RO * 12S +4; 

FOR R3 : = 1 STEP 1 UNTIL V2CR8) DO 

BEGIN IDLQC2LR2) := R4; 

R2 := R2 + 12; R4 := R4 + Rl; 
END; 

OR EL AD := R4; 
END; 

COMMENT <FBND HEAD> :s= <F ARRAY HD> ( % 
NULL ; 



57 



COMMENT <FBND HEAD> :: = <FBNO HEAD> * 

NULL ; 



» » 



COMMENT <F ARRAY HD> ::= < <SI TYPE> ARRAY <I0> ; 

BEGIN 

OECLARETEST; Rl s= 1; V2(R8) := Rl; 

END; 

COMMENT <F ARRAY HD> ::= <FPAR HEAD-> <S I TYPE> ARRAY <ID> I 

BEGIN 

OECLARETEST; Rl := 1; V2CR8) := Rl; 
END; 

COMMENT <F ARRAY HD> :: = <F ARRAY HD> ,, <I0> % 
BEGIN 

Rl := V2CR81+1; V21R8I := Rl j 
end; 



58 



59 



60 



61 



62 



63 



<RC HEAD> 



); 



COMMENT <RC CL DO : : = 
BEGIN 

Rl := V5CR8); R4 := V2CR8J; 

SIMTYPEINF0CR1) := R4i COMMENT INSERT RECORD LENGTH; 
END; 



COMMENT <RC HEAD> 

FIELDOC; 



COMMENT 
FIELODC; 



::= <RECORD> { <SI TYPE> <ID> I 
<RC HEAD> ::= <RC HEAO> ,, <I0> ; 



COMMENT <RC HEAD> : := <RC HEAD*> <SI TYPE> <ID> I 

FIELODC; 



COMMENT <RC HEAD*> 

NULL; 

COMMENT <RECORD> 

BEGIN 



= <RC HEAD> . , 
RECORD <ID> ; 



64 



65 



66 



67 



68 
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24 


0B36 


07 


OF 79 


24 


0B42 


C7 


0F79 


24 


852 


07 


OF 79 


24 


0B5A 


01 


OF 79 


24 


35E 


07 


0F79 


24 


0B6E 


07 


OF 7 9 


24 


0876 


07 


OF 79 


24 


0B7A 


07 


0F79 


2 4 


0882 


07 


OF 7 9 


24 


88 A 


07 


OF 79 


24 


OE8A 


07 


0F79 


24 


0B92 


07 


OF 79 


24 


OB9A 


07 


OF 79 


24 


GBSE 


07 


OF 79 


24 


OB AC 


07 


OF 79 


24 


oeaa 


07 


0F79 


24 


OBBC 


07 


OF 79 


2 4 


OBC4 


07 


OF 79 


24 


OP.CC 


07 


0F79 


24 


0BD4 


07 


OF 7 9 


24 


0BC4 


07 


0F79 


24 


OBEC 


07 


0F79 


24 


OBEC 


07 


OF 79 


24 


OBEC 


07 


0F79 


24 


08F6 


07 


OF 79 


24 


0CC2 


07 


OF 7 9 


24 


OCOA 


07 


OF 79 


24 


0C12 


07 


OF 79 


24 


0C32 


07 


0F79 


24 


CC3A 


07 


0F79 


24 


0C3A 


7 


OF 79 


24 


0C46 


07 


OF 79 


24 


QC5 


07 


0F79 


24 


QC54 


07 


OF 79 


24 


0C54 


07 


OF 79 


24 


0068 


07 


OF 79 



304 2 
3043 
3 044 

304 5 
3046 
3047 
3048 
3049 
3 050 
3051 
3052 
3053 
3054 
3055 
3056 
3 057 

305 8 
3059 
3060 

306 1 
3062 
3063 
3064 
306 5 
3066 
3067 

306 8 
3 06 9 
30 70 
3071 

307 2 
3073 
3074 
307 5 
3076 
3077 



DECLARETEST; 

RO := aRCCLDC; OOTID; COMMENT OUTPUT "RCCLOC"; 

R3 := HM; IDLQCKR1) := R3; 

V5{R8) := Rlj COMMENT POINTER TO NAM ET ABLE IN V5(J)J 

R4 := 4; Rl := PL + 12; IC { RO,TYPE( Rl ) ) ; R2 : = 0; 

WHILE RO = 5 00 

BEGIN IC(ROiSIMPLETYPE<Rl J); 

IF RO = 9 THEN 

BEGIN IDL0C2(R1) : = R4; R4 := R4+ 4; 

end; 

IDLUCKR1) '-= R3J R2 := R2 + lj 
Rl := Rl + 12; IC<R0,TYPE(R1) ) ; 

END ; 

R3 := Rl-12; Rl := V5<R8); STC i R2, VRCR1 ) ) J 

IF R4 = 4 THEN R4 := 1; 

FOR Rl :■= Rl + 12 STEP 12 UNTIL R3 DO 

BEGIN ICtRO, SIMPL ETYPEUU ) ) ; 

IF RO = 6 THEN 

BEGIN I0L0C2<R1) := R4; R4 := R4 + 1; 

END ELSE 

IF RO = 7 THEN 

BEGIN I0L0C2(R1) J = R4; R4 := R4 + SIMTYPEINFO(Rl) + 1; 

END; 
END; 

R4 : = R4 + 3 SHRL. 2 SHLL 2; 

FOR Rl i= V5<R8) + 12 STEP 12 UNTIL R3 DO 
B EG I H I C { R , S I MPL ETYP E ( R 1 ) ) ; 

IF RO = 1 OR RO = 2 OR RO = 4 OR RO = 8 THEN 

BEGIN I0L0C2JR1) := R4; R4 := R4 + 4; 

END; 

IF RO = 4 THEN R4 s= R4 + 4; 
END; 

V2(R8) := R4; 
END; 



end; 
end; 



SEGMENT 24 NAME = SEG#24 



LENGTH 



ODCO BASE REG =15 



23 


0474 


07 


OF 79 


2 3 


04 74 


07 


OF 79 


23 


47 4 


07 


OF 79 


25 


COCO 


07 


0F79 


25 


0000 


07 


OF 7 9 


25 


0000 


07 


0F79 


25 


OCGO 


07 


OF 79 


25 


CCC3 


07 


0F79 


25 


€02 2 


07 


0F79 


25 


0C22 


07 


0F7 9 


25 


0040 


07 


0F79 


25 


0040 


07 


0F79 


25 


CC42 


07 


OF 79 


25 


004 2 


07 


OF 79 


25 


0042 


07 


0F79 


25 


042 


07 


OF 80 


25 


04 E 


07 


0F80 


25 


0C54 


07 


0F8O 


25 


0C53 


07 


0F8O 



3078 
3 079 
3030 
3081 
308 2 
3083 
3084 
3085 
30 3 6 
308 7 
308 8 
3039 
3090 
3091 
3092 
3093 
3094 
3095 
3 096 



SEGMENT PROCEDURE 
BEGIN 



EX£CUT£2<R6); 



PROCEDURE ARITHCHECMR5) I 

COMMENT FIRST ARGUMENT IS IN Rl, SECOND IS IN VU); 
BEGIN IC(R0,V22iR7)); 

IF RO > 5 THEN BEGIN RO ■:= SFTYPEERROR; ERROR; 

END ELSE 
IF Rl > 5 THEN BEGIN RO := 3TYPEERR0R; ERROR; 

END; 
END; 



RO :* Rl; 

Rl := RO; 



PROCEDURE CASETYPE(RIO) ; 
BEGIN INTEGER RASAVE; 

IC<iU,V22(R8))S IC(R0,VZ2(R8+8J); STCCRO, V22CR7) } ; 

IF Rl -.= THEN 

BEGIN RASAVE := RIO; 



PL360 COMPILATION 



ALGOL W COMPILER 



PASS 1 8 2 
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2.5 


CC58 


07 


OF 80 


25 


005 £ 


07 


OF 80 


• 25 


C062 


07 


0F80 


25 


0C6A 


07 


OF 80 


25 


GOTO 


07 


OF 80 


• 25 


0C7E 


07 


0F80 


25 


CC7E 


07 


OF 80 


25 


0090 


07 


0F80 


# 25 


GO 90 


07 


0F80 


25 


0C9C 


07 


OF 80 


25 


OOAO 


07 


0F80 


• 2 5 


0A6 


07 


OF 80 


25 


COAE 


07 


OF 80 


25 


COP A 


07 


OF 80 


£ 25 


OOCA 


07 


OF 80 


25 


COCA 


07 


OF 80 


25 


0C06 


07 


0F80 


' : # 25 


00E4 


07 


OF 80 


25 


C0E4 


07 


0F80 


5; 25 


00E8 


07 


0F80 


L ; ; # 25 


0€ E8 


7 


OF 80 


25 


C0E8 


07 


OF 80 


• : : 25 


0CF8 


07 


OF80 


i # 25 


0CF3 


07 


OF 80 


25 


OOF A 


07 


OF 80 


25 


OOF A 


07 


OF 80 


• 25 


OOF A 


07 


OF 80 


2 5 


COFA 


07 


0F80 


25 


OOFA 


07 


OF 80 


• 25 


00 FA 


07 


OF 80 


25 


0100 


07 


0.F80 


25 


1 C 


7 


OF 80 


25 


o l o r 


07 


0F80 


25 


110 


07 


OF 80 


25 


0110 


07 


OF 80 


• 25 


0120 


07 


0F80 


25 


0120 


07 


OF 80 


25 


0120 


G7 


OF80 


% 25 


0134 


07 


OF 80 


25 


0134 


07 


OF80 


25 


0140 


07 


OF 80 


% 25 


014 8 


07 


0F80 


25 


0148 


07 


OF 80 


25 


0150 


07 


0F80 


• 25 


015C 


07 


OF 80 


25 


1 5C 


07 


OF 80 


25 


0168 


07 


OF 80 


# 25 


C16 8 


07 


OF 80 


25 


0174 


07 


OF 80 


25 


0174 


07 


0F80 


% 25 


0180 


07 


OF 80 


25 


018C 


07 


OF 80 


2 5 


ciso 


07 


OF 80 


25 


0190 


07 


OF 80 


25 


019 C 


07 


0F80 


25 


01A4 


07 


0F80 


• 25 


01A4 


07 


OF 80 


25 


1 BO 


07 


0F80 



309 7 
3098 
3099 
3100 
3101 
3102 

310 3 
3104 
310 5 
3106 
310 7 
310 8 
3109 
3.110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3113 
31.19 
3120 
3121 
3122 
3 123 
3124 
3125 
312 6 
3127 
312 8 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
314.3 
3144 
3145 
3146 
3147 
3148 
3149 
315 
3151 
3152 
.3 1 53 
3154 



STC(R0,V22<R8) )j 
STC(R1,V22(R8) ) J 



IF RO -.= Rl THEN 
BEGIN ARITHCHECK; 

R5 := RO AND Rl AND #1; COMMENT RECOVER LONG BIT; 

IF RO > Rl THEN 

BEGIN IF P. 5 = THEN RO := RO AND #FE; 

END ELSE 

BEGIN IF R5 = THEN Rl := Rl AND #FE ; 

END? 
END ELSE IF Rl = 7 THEN 
BEGIN R5 := VI ( R8 ) J 

IF R5=0 THEN 

BEGIN Rl := VKR8+8IJ VUR8) := Rl; 

END ELSE IF R5 -.= VUR8+8) THEN 

BEGIN RO := OLEMGTHERROR; ERROR; 

end; 

END ELSE IF Rl = 9 THEN 

BEGIN R5 := VHR8 + 8); Rl := VKR8) OR R5 ; Vl(Rfl) := Rlj 

END; 

RIO := RASAVE; 

END ELSE 

BEGIN STC{Rl,V2UR8 + 8) ); Rl : = V12IR8+8); V12CR81 s« Rl; 

END; 
END; 

PR OC E OUR E C QNV ERT 1 { R 5 ) ; 

COMMENT FIRST ARGUMENT IS IN Rl, SECOND IS IN RO , POINTER FOR 
FIRST IS IN R2; 

IF RO -*= Rl THEN 
BEGIN 

IF RO = 1 THEN STCCRli C0NV(R9) JELSE 
CASE Rl OF 
3EGIN 

BEGIN STC<R0,V22(R8)); STCiROtCONV (R2U ! 

END; 

IF RO = 3 THEM 

BEGIN RO := 2; STCtRO ,COMV( R9 )) ; 

END ELSE 

IF RO = 4 THEN 

BEGIN STC<R0,V22{R8M; STC (RO ,CONV <R2)I ; 

END ELSE 

BEGIN RO := 4; STCLRO, V22CR8 ) ) *, STC< RO,CONV( R9) ) ; 
STC(R0,C0NV(R2) ); 

END; 

BEGIN STC(R0,CONVCR2) ); STCCR0,V22(R8) ) ; 

END; 

BEGIN RO := 4; STC(RO t COMV(R9) ) J 

END; 

IF RO = 2 THEN 

BEGIN RO : = 4; STCCRO , V22( P.8 ) ) ; STC i R0 f C0NV<R9)> ; 
STC(R0»C0NV(R2) ); 

END ELSE 

IF RO = 4 THEN 

BEGIN STC(R0,V22(R8) J; STCtRO ,CCNV (R2 ) ) ', 

END ELSE 

BEGIN RO :■= 5; STCJRO ,CONV( R9) ) ; 

END; 



• 
# 



PL3 6C COMPILATION 



25 


0180 


07 


0F80 


2 5 


o l c a 


07 


OF 80 


2 "5 


01CA 


07 


OF 80 


2*3 


01CA 


37 


DF80 


2 5 


01CA 


07 


0F80 


25 


01CA 


07 


OF 80 


25 


OKA 


07 


0F80 


25 


01CE 


07 


OF 80 


25 


01DE 


07 


OF 80 


25 


01 EE 


07 


0F80 


2 5 


01EE 


07 


OF 80 


25 


0204 


C7 


OF 80 


25 


02 C 3 


07 


0F80 


25 


02 CC 


07 


OF 80 


25 


020E 


07 


OF 80 


25 


02 CE 


07 


0F80 


25 


02 OE 


07 


OF 80 


25 


020E 


07 


0F30 


25 


20F 


C7 


OF 80 


25 


020E 


07 


0F80 


2 5 


0212 


7 


0F80 


2 5 


021 A 


07 


OF 80 


25 


022A 


C7 


0F8O 


25 


0232 


07 


0F80 


15 


232 


G7 


OF 8 


25 


23 A 


07 


0F80 


2 5 


Q23E 


07 


0F80 


25 


02 3E 


07 


OF 80 


25 


0246 


07 


0F8 


2 5 


Q24A 


07 


OF 80 


25 


024C 


07 


OF 80 


25 


024C 


07 


F 8 


25 


024C 


C7 


OF 80 


25 


2 AC 


07 


OF 80 


25 


02 4 C 


07 


OF80 


25 


24C 


/17 


OF 80 


25 


02 50 


07 


0F80 


2 5 


02 6 


07 


OF 80 


25 


0270 


07 


OF 30 


25 


02 78 


07 


0F80 


25 


02 84 


07 


OF 80 


25 


0283 


07 


OF 80 


25 


02 80 


07 


OF 80 


25 


0294 


07 


0F80 


25 


029 A 


07 


OF 80 


25 


02 A A 


07 


0F80 


25 


02 A A 


C7 


OF 80 


25 


02 A A 


07 


OF 80 


25 


0286 


07 


OF 80 


25 


28 A 


07 


OF 80 


25 


02 BC 


07 


OF SO 


25 


02BC 


07 


OF 80 


25 


02BC 


07 


OF 80 


25 


02 ec 


07 


OF 80 


25 


028C 


07 


OF80 


25 


28C 


07 


OF 80 


25 


02 C 8 


07 


0F8O 


25 


0200 


07 


OF 80 



3 15 5 
315 6 
3157 

315 8 
3159 
3160 
3161 

316 2 
316 3 
3164 
316 5 
316 6 

316 7 
3168 
3169 
3170 
3171 
3172 

317 3 
3174 

317 5 
3176 
3177 
3178 
3179 

318 
3131 
318 2 
313 3 
3134 
3185 

3 1 8 6 
v3187 

3188 
3189 
3190 
3191 
3192 
3193 
8194 
3195 
3196 
3197 

3 19 8 
3199 
3200 
3 20 1 
3202 
3203 
3204 
3 20 5 
8206 
3207 

320 8 
3 209 
3 210 

321 1 
3 212 



ALGOL W COMPILER - PASS 1 & 2 

END; 
END; 

PROCEDURE APARENDIR5) ; 

COMMENT CHECKS NUMBER OF APARS, TYPE OF LAST. OUTPUTS •* )" ; 
BEGIN 

IC{R0,V21(F,3) ) ; COMMENT CHECK NUMBER OF APARSj 

IF RO -.= 1 AND RO -.= #FF THEN 

BEGIN RO := 3APARERR0RJ ERROR; 

END; 

IC(R0,V22(R8) ) ; IF RO = THEN RO := PROCEOURETYPE ELSE RO s» 0; 

STC(R0,V21(R8) ); COMMENT SET TYPE; 

RO := OAPPAREN; COMMENT PREPARE TO OUTPUT; 

END; 

PROCEDURE APARLIST(R5I; 

COMMENT CHECKS NUMBER OF APARS, INCREASES FPAR POINTER , 
OUTPUTS "," . POINTER TO FPAR IS IN R2; 
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BEGIN 

icir<o,v2i(R8) ) ; 

IF RO = 1 THEN 

BEGIN RO := aAPARERROR; ERROR; 

RO := #FF; STC(R0,¥21CR8n; 
END ELSE 
BEGIN RO := RO - 1; 

STC(R0,V21CR8) ); 
END; 
R2 := R2 + 12; V34IR81 

ro := 3apc0mma; 

end; 



COMMENT GET NUMBER OF APARS LEFT; 



= R2; COMMENT STEP FPAR POINTER; 
COMMENT PREPARE TO OUTPUT; 



PROCEDURE SUBSCRIPTCR5) ; 

COMMENT SUBSCRIPT CHECKS THAT SUBSCRIPT IS INTEGER AND THAT DIMENSION 
IS NOT TOO SMALL FOR IT ; 
BEGIN 

IC(R0,V22{R8+8)) ; COMMENT GET SIMPLE TYPE ; 

IF RO -.= 1 THEN BEGIN RO := 3TYPEERR0R ; ERROR; END; 

R2 x= 0; IC(R2,V22(R8) ); 

IF R2 = #FF THEN 

BEGIN R2 := V1(R8); I C(RO,DI MEN( R2 ) ) ; RO :« RO + lj 

STC(R0»0IMEN<R2) ); 
END ELSE 

BEGIN R2 := R2 - lj STC { R2,V22 <R3) ) ; 
IF R2 < THEN 

BEGIN RO s= OARRAYERROR; ERROR; 
END; 
END; 

MAXREG; COMMENT ADJUST REGISTER COUNTS; 

RO := 3INDX; COMMENT PREPARE TO OUTPUT; 

END; 



PROCEDURE ARRAYOES i R5 ) *, 
COMMENT RO CONTAINS NUMBER OF *«S; 
BEGIN 

Rl := VHR8); R2 := 0; ICCR2 ,¥22 IR8 H ; 

IF R2 = #FF THEN 

BEGIN IC?R2,t)IMEN{Rin ; R2 '•= R2 + RO; STCC R2,DIMEN< Rl }) % 



m 

m 
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25 


02DA 


C7 


OF 80 




25 


2 DA 


C7 


OF 80 


I 


f 25 


02 E4 


07 


OF 80 




2 5 


2F8 


C7 


OF 8 




25 


C2F3 


07 


OF 30 




| 25 


02 Fl 


07 


OF BO 




25 


03C6 


07 


OF 80 




25 


030A 


07 


0F3O 


g 


| 2 5 


o:uc 


07 


OF 80 




25 


3 1 3 


07 


OF 80 




25 


3 13 


07 


OF 80 




| 25 


03 1 8 


07 


OF 80 




25 


3 23 


07 


OF 8 




25 


0334 


07 


0F80 




) 25 


03 3C 


07 


OF 80 




25 


G34C 


07 


0F80 




25 


034 C 


07 


0F80 




| 25 


034C 


07 


OF 80 




25 


3 5 4 


07 


OF 80 




2 5 


03 5 6 


07 


0F80 


u A 


| 25 


3 5 6 


07 


OF 30 


}.: 


2 5 


0356 


07 


0F80 




25 


03 56 


07 


0F80 




| 2 5 


0362 


07 


OF 30 




25 


036A 


07 


OF 80 




25 


03 72 


07 


OF30 




| 25 


03 7C 


07 


OF 80 




2 5 


03 8 C 


07 


0F80 




25 


0304 


07 


0F80 




| 25 


039C 


37 


OF 80 




25 


03 AC 


07 


OF 80 




25 


03 AC 


7 


OF 80 




| 25 


3 B 


07 


0F80 




25 


03 B C 


07 


0F80 




2 5 


3B8 


07 


OF 80 




1 25 


03C4 


07 


OF80 




2 5 


03 DO 


07 


OF 80 




25 


03DC 


07 


OF 80 




| 2 5 


03E4 


07 


OF 30 




25 


03F0 


07 


OF 80 




25 


03F2 


07 


OF 80 




| 25 


G3F2 


07 


0F30 




25 


03F2 


07 


OF 80 




25 


03F2 


07 


OF 80 


j 


) 25 


04 C 2 


07 


OF 8 




25 


04 CE 


07 


0F80 




2 5 


0416 


07 


0F8O 




fc 25 


C428 


07 


F 8 




25 


04 30 


07 


OF 80 




25 


04 3 8 


07 


OF 80 




| 25 


044 8 


07 


0F80 




25 


044 8 


07 


0F80 




25 


04 4 C 


07 


0F80 




| 25 


44C 


7 


OF 80 




25 


04 5 3 


07 


0F80 




2 5 


C45A 


07 


0F80 




| 25 


G45A 


07 


0F80 




2 5 


04 5 A 


07 


0F80 



3213 
3214 

3215 
3216 
3217 
3213 
3219 
3220 
3221 
3222 
3 223 
3224 
3225 
3 22 6 
3227 

322 8 
3 229 

323 
32 31 
323 2 

323 3 
3234 
3235 
3236 
32 3 7 
3238 
3239 
3240 

3241 
3 242 
3243 
3244 
3245 
3246 
3 247 

324 8 
3249 
32 5 
3251 
3252 

325 3 
3254 
32 5 5 
3 2 56 
3257 
3 25 8 
3259 
3260 
3261 
3262 
3263 
3 264 
3 26 5 
3266 
3 267 

326 8 
326 9 
3 2 70 



ALGOL H COMPILER - PASS 1 £ 2 

END ELSE 

IF RO -.= R2 THEN 

BEGIN R3 := RO; RO := 3ARRAYERR0R; ERROR; RO := R3; 

END; 

IF RO = THEN 

BEGIN IC{RO,SINPLETYPE(Rin; V2(R8) :=R0; 

IC(R0,V3(R8)); 

IF R0=0 THEN 

BEGIN RO := RO +■ 1; STC<R0,V3(R8) J ; 

END; 

END ELSE 

BEGIN R2 .:= TYPES(Rl); V2JR8) := RZ; V34(R8) := RO; 

R8 := R8 SHRL 3; IC( RC,S<R8-1) ) ; R8 := R8 SHLL 3; 

IF RO -•= APARHEAD THEN 

BEGIN RO := 9ARRAY2ERR0R ; ERROR; 

END; 
END; 

R2 := SIMTYPEINFO(Rl); VI (R8) := R2; 
END ; 
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STC<RO,GP(RQ)); 



ORE LAD := Rl ; 



P R OC E OU RE A P ST AT EN D C R4 } ; 
BEGIN 

K9 ;= R9 + 4; ro '.= 3STACKADDRJ 

Rl := DRELAO; P0INTER«R9) .:= Rl; 

R2 i= V34CR8); IC ( RO, V2H R8 )) ; 
IF R2 = THEN RO i= 3APPAREN ELSE 
IF RO = #FF THEM APAREND ELSE 
BEGIN Rl := TYPESCR2J ; 

IF Rl -*= #1300 THEN 

BEGIN RO := 3TYPE3ERR0R; ERROR; 

EM D ; 

APAREND; 
END; 

Rl : = #0404; V34(R8) s= Rl; 
GUTOP; 

Rl := HN + l; HN := Rl; 

R2 := DRELPOINT; Rl := DRELSAV£(R2) ; 

R2 s= R2 - 2; DRELPOINT := R2 J 

R2 := VARORIGIN - 4; VARORIGIN := R2; 

END; 

PROCEDURE APSTATLISTJR4); 
BEGIN 

R9 := R9 + 4; RO : = SSTACKADDR; STC ( RO ,0P <R9 )) ; Rl t= OREL AD; 
P0INTERCR9} := Rl; Rl s= VARORIGIN; DRELAD := Rl; 
R2 := V34(R8); ICC RO, V2H R8M ; 

IF R2 = OR RO = #Ff THEN RO := SAPCQMMA ELSE 
BEGIN Rl := TYPES1K2); 
IF Rl ->= #1300 THEN 

begin ro s= 3type3err0r; error; 

end; 

aparlist; 

END; 
OUT OP; 
END; 

SEGMENT PROCEDURE LEVELTWOC RIO ) ; 

BEGIN INTEGER RASAVE; 
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26 


0000 


07 


OF 84 


26 


00C4 


G7 


0F84 


26 


00 C 8 


07 


OF 84 


26 


OOOC 


07 


0F84 


26 


COOC 


07 


OF 84 


26 


OOOC 


07 


OF 8 4 


26 


OOOC 


07 


0F84 


26 


0C14 


07 


OF 3 4 


26 


0014 


07 


OF 84 


26 


0014 


07 


0F84 


26 


018 


7 


OF 84 


26 


0024 


07 


OF 84 


26 


C02C 


07 


OF 84 


26 


003 3 


07 


OF 84 


26 


004 


07 


OF 8 4 


26 


OG50 


07 


OF 34 


26 


00 50 


07 


OF 84 


26 


00 50 


07 


0F84 


26 


005C 


07 


OF 8 4 


26 


00 5 


07 


OF 84 


26 


CO 54 


07 


0F8 4 


26 


00 5 8 


07 


OF 84 


26 


0C70 


07 


OF 04 


26 


00 7 C 


07 


0F84 


26 


0C8C 


07 


0F84 


26 


00 94 


C7 


OF 84 


26 


CGAO 


07 


0F84 


26 


COAC 


07 


OF 84 


26 


COCO 


07 


OF 84 


26 


occc 


07 


0F84 


26 


coco 


07 


OF 34 


26 


GOCO 


07 


OF 84 


26 


O0C4 


07 


0F84 


26 


O0C4 


07 


OF 84 


26 


00C4 


07 


OF 34 


26 


00C8 


07 


OF 84 


26 


oocc 


07 


0F84 


26 


CCE4 


07 


OF 84 


26 


00E4 


07 


OF 84 


26 


00 c 8 


07 


0F84 


26 


0100 


07 


0F84 


26 


C10Q 


07 


OF 84 


2 6 


010 


07 


OF 8 4 


26 


G100 


07 


OF 84 


26 


0100 


07 


OF 84 


26 


0104 


07 


OF 84 


26 


0108 


07 


OF 84 


26 


012 


07 


OF 84 


26 


0124 


07 


OF 84 


26 


102 


07 


OF 8 4 


26 


014 2 


07 


0F84 


26 


0142 


07 


OF 84 


26 


014E 


07 


OF 84 


26 


015E 


07 


0F84 


26 


01 5 E 


07 


0F84 


26 


015E 


07 


OF 84 


26 


015E 


07 


0F84 


26 


0162 


07 


OF 84 



3 271 
3 27 2 

32 73 
3 2 74 
3 275 
32 7 6 
3 277 
3 27 8 
3 279 
32 8 
3281 
328 2 
3283 
3234 
328 5 
3286 
3237 
328 8 

328 9 

329 
32 01 
329 2 
3293 

329 4 
3295 
3 296 
3297 
3 29 8 
3 299 
3 300 

330 1 
330 2 
3 30 3 
3304 
3 30 5 
3306 
3 30 7 
3 30 8 
3 309 
3310 
3311 
3312 
3313 
3314 
3 315 
3 3 1 6 
3 317 
3318 
3319 
3320 
3321 
3322 
3323 
3 32 4 
3325 
3326 
332 7 
3328 



RASAVE := RIO; 

RULE-NUMBER := R 5 ; 
R5 := R5 - 68; CASE R5 OF 
BEGIN 



COMMENT 
NULL; 



<T VAK> 



<T VAR> 



<SI T VAR> 



<T ARRAY ID> 



69 



70 



= SIMTYPEINF01R1); 
V34JR8) := RO ; 
ICfROf S(R8-1) ) ; 



VHR8I := R2; 
R8 := R8 SHLL 3; 



COMMENT 
BEGIN 

Rl := VKR8); P.2 

IC(RO f DIMEN(Rl) ); 

R8 := R8 SHRL 3; 

IF RO -.= APARHEAD THEN 

BEGIN RO := 3ARRAY2 ERROR; ERROR; 

END; 

end; 



COMMENT <T VAR> ::= <STR SEL HD> <T EXP> <LENGTH> 

BEGIN 

IC(R0*V22(R8+8)); 

IF RO -.= 1 THEN BEGIN RO := 3TYPEERR0R; ERRORjEND; 
Rl :•= VHR8 + 16); IF Rl > VHR8) THEN 
BEGIN RO := 3LENGTHERR0R; ERROR; 
END ELSE VI ( R8 ) := Rl J 
RO := 3BAR; R9 := aB9<4); STC IRQ , 0PJR9H ; 
Rl := V5IR8+8) - OUTBASE; P0INTERCR9) :* Rl; 
RO := ^SUBSTRING; RO := RO OR #80; OUTOP ; 
END; 



71 



COMMENT <T VAR> 
NULL; COMMENT 



.**• -»»«■ -A» -»&» V* 

"9* ^P" '^i* V" *?• 

<STR SEL HD> 



<UNIT DES>; 

: ,$ s£ %: jfc ^i • 



72 



73 



<SI T VAR> 



( 



COMMENT 
BEGIN 

IC<R0,V22(R8} ); 

IF RO -.= 7 THEN BEGIN RO := STYPEERROR; ERROR; 

END; 
IC<R0,V2HR8) ); 

IF RO = 2 THEN BEGIN RO := aARRAYERROR; ERROR; 

END; 

END; 

COMMENT <LENGTH> :: = 1 <T MUMBER> ; 
BEGIN 

IC(R0,V22{R7)) ; 

IF RO i= 1 THEN BEGIN RO := 3TYPEERR0R; ERROR; END; 
R5 := NUMVALUE4; 
If R5 <= o OR R5 > 256 THEN 
BEGIN RO := 3STRI NGERROR ; ERROR; 
END; 

R5 := R5 - l; V11R8) := R5 ; NUMVALUE4 '.- R5; 
RO := 3INUMBER; OOTID; 
END; 



74 



COMMENT 

null; 



<SI T VAR> 



<T VAR ID> 



75 



76 
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ALGOL W COMPILER 



26 


0162 


07 


OF 84 


26 


0162 


07 


OF 84 


26 


0166 


7 


CF84 


26 


1 6 A 


07 


0F8'+ 


26 


CI 72 


07 


OF 84 


26 


0182 


07 


OF 8 4 


26 


0182 


07 


0F84 


26 


0196 


07 


OF 8 4 


26 


C1AO 


07 


OF 84 


26 


01A6 


07 


OF 34 


26 


0186 


07 


0F84 


26 


01 B6 


07 


0F8 4 


26 


QIC 2 


07 


OF 84 


26 


01C2 


07 


0F84 


26 


01C2 


07 


OF 84 


26 


C1C2 


07 


OF 84 


26 


01C6 


07 


OF 84 


26 


01OE 


07 


OF 84 


26 


OIDE 


07 


OF 34 


26 


oi oe 


07 


0F84 


26 


01DE 


07 


OF 84 


26 


01E2 


07 


OF 84 


26 


01FA 


07 


0F84 


26 


C2GA 


07 


OF 84 


26 


020 A 


07 


OF 84 


26 


020A 


07 


OF 84 


26 


020 A 


07 


OF 84 


26 


020 E 


07 


OF 8 4 


26 


021 A 


07 


0F84 


26 


2 2A 


07 


OF 84 


26 


023 E 


A '7 


F 8 4 


26 


C23 F 


07 


OF 84 


26 


02 3E 


07 


OF 34 


26 


023 E 


07 


OF 8 4 


26 


C242 


07 


OF 84 


26 


0242 


07 


OF 84 


26 


0242 


07 


0F84 


26 


24 6 


07 


0F84 


26 


02 4 E 


07 


OF 84 


26 


C2 5C 


07 


0F84 


26 


C2 5C 


07 


OF 84 


26 


02 5 C 


07 


0F84 


26 


02 5 C 


07 


0F84 


26 


0260 


07 


OF 34 


26 


02 78 


07 


0F84 


26 


€2 7 8 


07 


OF 84 


26 


0278 


07 


OF 34 


26 


0278 


07 


0F84 


26 


02 7C 


07 


0F34 


26 


0288 


07 


0F84 


26 


02 "54 


07 


0F84 


26 


02AO 


07 


OF 84 


26 


02 BO 


07 


OF 84 


26 


02 BO 


07 


0F84 


26 


028 


07 


OF 84 


26 


02B0 


07 


OF 8 4 


26 


02 B4 


07 


OF 8 4 


26 


02CO 


07 


0F84 



332 


3330 


3331 


33 3 2 


3 3 3 3 


3334 


33 3 5 


3 33 6 


333 7 


333 8 


3339 


3340 


3341 


3342 


2843 


3344 


334 5 


334 6 


3 34 7 


334 8 


3 34 9 


3 350 


3351 


335 2 


33 5 3 


3354 


335 5 


335 6 


835 7 


335 8 


335 9 


3360 


33 6 1 


3362 


336 3 


3364 


3 36 5 


33 66 


3 36 7 


336 8 


3360 


3370 


3371 


3372 


3373 


3374 


33 75 


3376 


33 7 7 


3 378 


3379 


338 


3381 


338 2 


3383 


3334 


338 5 


3336 
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<T FLO H0> <T EXP> ) 



C OH ME NT 
BEGIN 

IC(RO,V22(R8+8»); 

IF RO -i= 9 THEN 

BEGIN RO := 3TYPE ERROR; ERROR; 
END ELSE 

BEGIN IC(R1,V21?R3)) ; R2 := 1 SHLL Rl SHRL 1; 
R3 := VKR8+8); IF R3 -.= R2 THEN 
BEGIN R3 := R3 AND R2; IF = THEN 
BEGIN RO := dREFERROR; ERROR; 
END ELSE 

BEGIN R3 s= V5<R8); SIC ( Rl , CONV( R3 ) ) ; 
END; 
END; 

end; 

ro := 3refx; ro := ro or #80; outop; 

ro := 0; stc*r0,v21«r8)); 

END; 

COMMENT <S1 T VAR> : := <T ARRAY HD> <T EXP> 

BEGIN 

SUBSCRIPT; OUTOP; 

IC{R0,V2HR8H; ARRAYDES; 
end; 

COMMENT <SI T VAR> : := <T ARRAY HD> * ) 

BEGIN 

R9 := R9 + 4; RO :•= 3ARSTAR; STC( RO ,0P( R9 )3 ; 

RO := aiNDX; OUTOP; 

IC(R0 f V21(R8)); RO : = RO + I; ARRAYDES; 
END; 



77 



78 



COMMENT 
NULL; 



<T FLU HD> 



::= <T FLO Il)> 



{ 



79 



80 



<T ARRAY H0> ::= <T ARRAY 1 0> ? 



COMMENT 
BEGIN 

Rl :=VUR8); ICCRO, DIMEN(Rl) ) ; 

IF RO = THEN RO r= #FF| V2(R6) := RO; 
END; 



81 



COMMENT 
BEGIN 

SUBSCRIPT; 
END; 



<T ARRAY HD> 
OUTOP ; 



:= <T ARRAY HD> <T EXP> 



82 



* 



COMMENT <T ARRAY HD> ::= <T ARRAY HD> 
BEGIN 

R9 := R9 + 4; RO *.= 3ARSTAR; STC<R0 f 0P<R9) 1 5 

ICCR0,V3(R8>); RO := RO + 1; STC(R0,V3(R8 ) ) ; 

IC(R0,V21(R8) ) ; RO := RO + 1; STC(R0,V21 (R8) ) ; 

RO j= aiNox; outop; 
END; 

COMMENT <T FUNC DES> :: = <T FUNC I0> ; 

BEGIN 

R2 := VKR8); R8 •'= R8 SHRL 3; TC I RO, S< R8-D) I 
R8 5= R8 SHLL 3; 



83 
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26 


02C4 


07 


OF 34 


26 


02CC 


07 


0F8 4 


26 


0204 


07 


0F84 


26 


02DA 


07 


OF 8 4 


26 


02 E A 


07 


OF 84 


26 


C2EA 


07 


OF 84 


26 


02 EA 


07 


OF 84 


26 


02F2 


07 


0F84 


26 


2F2 


07 


OF 34 


26 


02F2 


07 


OF 8 4 


26 


02F2 


07 


0F84 


26 


02 F 6 


07 


OF 84 


26 


02 FE 


07 


OF 84 


26 


0308 


Q7 


OF 84 


26 


03 2 


07 


OF 84 


26 


033C 


07 


OF 84 


26 


03 3 C 


07 


OF 84 


26 


344 


C7 


OF 84 


26 


0350 


07 


0F84 


26 


03 5C 


07 


OF 34 


26 


03 68 


07 


OF 34 


26 


037G 


07 


OF 84 


26 


037C 


07 


OF 84 


26 


03 7C 


07 


OF 84 


26 


03 7C 


07 


OF 84 


26 


37C 


07 


OF 84 


26 


3 8 C 


07 


0F84 


26 


03 8C 


07 


0F84 


26 


038C 


07 


OF 84 


26 


0390 


07 


0F84 


26 


Q29C 


7 


OF 34 


26 


03A8 


07 


OF 84 


26 


03A8 


07 


OF 84 


26 


03 A a 


07 


OF 84 


26 


03 A3 


07 


0F34 


26 


03 AC 


07 


CF84 


26 


G3B4 


07 


OF 84 


26 


3 CO 


07 


0F34 


26 


03CC 


07 


OF 84 


26 


03 DC 


07 


0F84 


26 


03E2 


07 


0F84 


26 


03F2 


C7 


OF 84 


26 


03F2 


07 


OF 84 


26 


3F6 


07 


OF 84 


26 


C3FA 


07 


OF 34 


26 


03FA 


07 


OF 84 


26 


03FE 


07 


OF 84 


26 


0406 


07 


OF 84 


26 


h 1 A 


07 


0F84 


26 


04 2 A 


07 


0F84 


26 


G43A 


07 


OF 84 


26 


043E 


07 


0F84 


26 


04 4E 


07 


OF 84 


26 


044E 


07 


OF 84 


26 


044E 


07 


0F84 


26 


44E 


07 


OF 84 


26 


0452 


07 


OF 84 


26 


045A 


07 


0F84 



3337 

33 8 3 
3380 
33 9 
339 1 
33 9 2 
3393 
3394 
339 5 
3396 
3 39 7 

339 8 
3 399 
3400 
3401 
3402 
3403 
3404 

340 5 
3406 
340 7 
340 3 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
342 2 
342 3 
3424 
3425 
342 6 
3427 
342 8 

342 9 
3480 
3431 

343 2 
3433 
343 4 
3435 
343 6 
343 7 

343 8 
3439 
3440 

344 1 
3442 
3443 
3444 



IF RO -.= APARHEAD THEN 

BEGIN Rl := rYPEINF0(R2) SHLL 2; 

IF Rl -•= THEN 

BEGIN RO := aAPARERROR; ERROR; 

E NO ; 
END; 

Rl := SIMTYPEINFU{R2); VUR8) := Rl; 
END; 



84 



<T FUNC OES> 



:= <APAR HEAD> <T EXP> 



COMMENT 

BEGIN 

R2 :=V34(R8); IC (RO , V21 1R8) ) J 

IF R2 = THEN RO := aAPPAREN ELSE 

IF RO = #FF THEN APAREND ELSE 

BEGIN APAREXPCHECK; APAREND; 

END; 

Rl : = #0404; V34{R8) s= Rl; 

out op; 

Rl s= HM + l; HM := Rl; 

R2 := DRELPOINT; Rl := ORELSAVE< R2 ) ; 

R2 := R2 - 2; DRELPOINT := R2; 

R2 : = VARORIGIN - 4; VARORIGIN := R2; 

END; 



ORE LAO := Rl; 



COMMENT <T FUNC DES> 
APSTATENDJ 



<APAR H£AD> <STATEMENT> 



:= <APAR HEAD> ) 



85 



86 



COMMENT <T FUNC DES> 
BEGIN 

RO :-= 3NULLST; R9 : = R9 + 4; STC (R0,OP(R9 )) ; 

APSTATENO; 
END; 

COMMENT <APAR HEAO> ::= <T FUNC ID> < 1 

BEGIN 

R2 := VI (R8)J IC ( RQ, TYPE ( R2I) ; 
IF RO = #13 THEN Rl := ELSE 
BEGIN R2 '.= TYPEINF0IR2) SHLA 2; 

RO := 0; Rl := 3LENGTHC R2) /12 ; STCCRl, V2H R8J ) 5 

IF Rl = THEN 

BEGIN RO :■= aAPARERROR; ERROR; 

END; 

Rl := NP0INTCR2) ; 

R2 := VURB) ; 
END; 

V34(R8) := Rl; 

Rl := SIMTYPEINFIHR2) ; VII R8) := Rl; 

Rl := HN - l; UN := Rl; IF Rl <= 5 THEM 

BEGIN RO := 3HI ERARCHYERROR; ERROR; END; 

Rl := DRELAD; R2 := DRELPOINT + 2; DRELPOINT := R2; 

DRELSAVECR2) := Rl; 

R2 := VARORIGIN + 4; VARORIGIN := R2 ; DRELAD : = R2 ; 
END; 

COMMENT <APAR HEAD> :J = <APAR HEAD> <T £XP> , ; 

BEGIN 

R2 := V34 ( R8 } ; I C ( RO , V2I ( R8 ) ) ; 

IF R2 = OR RO = :#FF THEN RO := 3APC0MHA ELSE 



87 



88 
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26 


046C 


07 


OF 34 


26 


C4 8 8 


07 


OF 84 


26 


48 8 


07 


OF 84 


26 


04 94 


07 


0F84 


26 


04^4 


07 


OF 84 


26 


C494 


07 


OF 84 


26 


04 94 


07 


OF 84 


26 


C4A4 


07 


OF 8 4 


26 


04A4 


07 


0F8 4 


26 


04,44 


07 


0F84 


26 


04 A 3 


07 


OF 84 


2 b 


4 84 


07 


OF 84 


26 


C4C0 


07 


0F84 


26 


04C0 


07 


OF 8 4 


26 


4 C 


07 


OF 8 4 


26 


04 CO 


07 


OF 84 


26 


4C4 


07 


OF 84 


26 


04C4 


07 


OF 84 


26 


04C4 


7 


OF 8 4 


26 


04C8 


07 


OF 34 


2o 


04C8 


07 


0F84 


26 


04C 8 


07 


OF 84 


26 


04CC 


07 


OF 84 


26 


C4DC 


07 


0F84 


26 


41:4 


07 


OF 84 


26 


04 £ A 


07 


0F84 


26 


05 02 


07 


OF 8 4 


26 


0502 


07 


OF 8 4 


26 


506 


07 


0F84 


26 


C5CE 


07 


0F84 


26 


512 


07 


OF 84 


26 


5 1 A 


07 


0F84 


26 


5 2A 


07 


OF 84 


26 


52A 


7 


0F84 


26 


536 


07 


OF 84 


26 


544 


07 


OF 8 4 


26 


C54 4 


07 


OF 84 


26 


0544 


07 


0F8 4 


26 


C5 4C 


07 


OF 84 


26 


55 8 


07 


OF 84 


26 


5 64 


07 


OF 84 


26 


0568 


07 


OF 84 


26 


05 6C 


07 


0F84 


26 


0570 


07 


OF 34 


26 


0590 


07 


OF 84 


26 


590 


07 


OF 84 


26 


05 9 


07 


OF 84 


26 


0590 


07 


OF 84 


26 


5? 4 


07 


0F84 


26 


O5A0 


07 


OF 34 


26 


580 


07 


OF 84 


26 


05BC 


(37 


0F84 


26 


5C 


07 


OF 3 4 


26 


5CC 


07 


0F84 


26 


05C4 


07 


OF 84 


26 


5D8 


07 


OF 84 


26 


C5CC 


07 


0F84 


26 


05E0 


07 


0F84 



3445 
3446 
344 7 

344 8 
3449 
3450 
3451 

345 2 
345 3 
3454 
3 45 5 

345 6 
3457 
3458 
3459 

346 
3461 
3462 
3 463 
346 4 
3465 
3466 
3467 
3468 

346 9 
34 70 
3471 
3 4 72 
3473 
3474 
34 75 
3476 

347 7 
34 7 8 
3479 

348 
34 3 1 
343 2 
3483 
3484 
3435 
348 6 

348 7 
343 8 
34 39 
3490 
3491 

349 2 
3493 
3494 
349 5 
349 6 
3497 
34 9 
3499 
3500 
3501 
3502 



aparexpcheck; aparlist; 



BEGIN 

6 no; 
OUT op; 

END; 



COMMENT <APAR H£AD> 

APSTATLIST; 



<APAR HEAD> <STATEMEMT> 



89 



90 



COMMENT 
BEGIN 

RO := 3NULLST; 

APSTATLIST; 

END; 



<APAR HEAO> ::= <APAR HEAD> , ; 

R9 ;= pg + 4; STC(R0,0P{R9)} ; 



COMMENT 
MULL; 

COMMENT 
NULL; 



<T EXP> 



:= <T EXP*> 



<T EXP*> ::= <SI T EXP>; 

<T EXP*> ::= <IF CL> <TRUE EXP> <T EXP*> 



91 



«2 



93 



R2 :•= V5(R8+8) - 4; ICt RO, V22CR7H; 

V121R8) J= R5; 



error; 



COMMENT 
BEGIN 

IC(Rl,V22(R8+8)); 

R5 := V12<R8+3); 

IF RO -,= Rl THEN 

BEGIN ARITHCHECK; C0NVERT1; 

END ELSE 

BEGIN 

IF Rl = 7 THEN 
BEGIN R5 := VHR8+8); 
IF R5 -,= VI (R7) THEN 
BEGIN RO := 3LENGTHERR0R ; 

end; 

END ELSE IF Rl =9 THEN 

BEGIN R5 : = VKR8+8); Rl : = VKR7) OR R5; 

END; 
END; 

R9 ;= R9+4; RO := OTFEXP; 

STC(R0tOP(R9)) J Rl := VMR8+8) - OUTBASE; 
POINTER <R9) := Rl ; R2 := V5 < R8 ) - OUTBASE; 
Rl := Rl + OUTBASE; 

P0INTER<R1):=R2; COMMENT PATCH UJ POINTER; 

V5(R8J :=R9; 

r8 := r8+8; maxreg; r8 := r3 - 8; maxreg; 
end; 



VHR8) := Rl; 



9-4 



COMMENT 
BEGIN 

CASETYPE; 



<T EXP*> 



:= <CASE HEAD> <T EXP> 



) 



ac.LL; outop; 



MAXREG; 

IC(R0,V22(R8) ) ; 

Rl := PATCH POINT 

STCCRO,CONV(RD); 

IC(R0,V2KR8n ; 

ROs=RO+l; 

POINTER* Rl) :=R0; 

RO : = 0; STC(R0,V21(R8) ) ; 



COMMENT CHECK TYPES, SET TYPE BYTE; 
COMMENT OUTPUT »»CL"; 

COMMENT ADJUST REGISTER COUNTS; 
COMMENT PATCH TYPE IN OUTPUT; 
2; PATCHPOINT := Rl; Rl := PATCHLI STC Rl J J 



COMMENT PATCH NUMBER OF CASES; 



._ 



PL 360 COMPILATION 



26 


■05 £8 


07 


0F84 


lb 


5E8 


C7 


OF 84 


26 


5 E 8 


07 


0F84 


26 


C5E8 


07 


CF84 


26 


05EC 


07 


OF 8 4 


26 


05 FO 


07 


OF 84 


26 


05F3 


07 


OF 84 


26 


6C8 


07 


OF 84 


26 


0608 


07 


OF 84 


26 


0618 


07 


OF 84 


26 


0628 


07 


OF 84 


26 


C63G 


07 


0F84 


26 


06 3 8 


07 


OF 34 


2o 


0638 


07 


OF 8 4 


26 


063 8 


07 


0F84 


26 


06 38 


07 


OF 84 


26 


063C 


07 


OF 84 


26 


06 40 


07 


OF 84 


26 


64 8 


07 


OF 84 


26 


064C 


07 


OF 84 


26 


C64C 


07 


0F84 


26 


064C 


07 


0F84 


26 


064C 


07 


0F84 


26 


06 50 


07 


OF 84 


26 


06 5 3 


07 


0F84 


26 


065 9 


07 


OF 84 


26 


06 5 8 


G7 


OF 84 


26 


065 8 


07 


0F84 


26 


G65 8 


07 


0F84 


26 


065C 


07 


OF 84 


26 


0668 


07 


0F84 


26 


C678 


07 


OF 84 


26 


06 84 


07 


OF 84 


26 


0688 


07 


0F84 


26 


0630 


07 


OF 84 


26 


C690 


07 


OF 84 


26 


06 9 G 


07 


OF 8 4 


26 


C6S0 


07 


OF 84 


26 


0694 


07 


0F84 


26 


06 98 


07 


0F84 


26 


06B0 


07 


OF 84 


26 


06BC 


07 


0F84 


26 


06CO 


07 


OF 34 


26 


06C8 


07 


OF 84 


26 


06D0 


07 


0F84 


26 


C6D8 


07 


OF 84 


26 


06 EO 


07 


OF 84 


26 


06 EC 


07 


0F84 


26 


06 EO 


07 


OF 84 


26 


06 EO 


07 


0F84 


26 


C6E4 


07 


OF 84 


26 


C6E4 


07 


OF 8 4 


26 


06E4 


07 


0F84 


26 


06 E 8 


07 


OF 84 


26 


06F0 


07 


OF 84 


26 


06F6 


07 


Of 84 


26 


07C2 


07 


OF 84 


26 


070 8 


07 


OF 84 



3503 
3504 
3 50 5 
3506 
3 50 7 
3508 
350 Q 
3 510 
3 511 
3 512 
3513 
3514 
3515 
3516 
3517 

3518 
3519 
3520 
3521 
3522 
3 52 3 
3 524 
3525 
3526 
3 52 7 
352 8 
35 2 9 
3530 
3531 
3 5 32 
3 5 33 
3 534 
3 535 
3 536 
3 537 
3538 
3 53 9 
3 540 
3 5 41 
3542 
3543 
3 544 
3545 
3546 
3547 

354 3 
3 549 
3550 
3 551 
3552 
35 53 
3 554 
3555 
3 556 
3557 

355 8 
3559 
3560 
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95 



IF <T EXP> 



THEN 



COMMENT <IF CL> :: = 

BEGIN 

IC(RO,V22«R8+8)); 

IF RO -.= 6 THEN 

BEGIN RO := STY PE ERROR; ERROR; 

end; 

RO := aiFF; STC(R0,0P(R9+4) ) ; R9 := R9 + 8; RO := 3IFJ; 
RO := RO OR #80; STC(R0,OP(R9)) ; Rl := V5( R8+8J-0UTBASE % 
POINTER! R9) := Rl; V5(R8) s= R9 J 
Rl := V34<R8+8); V34CR8) := Rl; 
END; 



::= <T EXP> ELSE 



96 



COMMENT <TRUE EXP> 

BEGIN 

R9 := aB9<4) ; 

RO := aUJIFEXP; STC<R0,0P(R9|); 

V5CR8) J=R9; 
END; 



97 



( 



COMMENT <CASE HEAD> :: = <CASE CL> 

BEGIN 

RO := 0? V2CR8) := RO; 

COMMENT INITIALIZE CASE COUNT AND SIMPLE TYPE; 
END; 

COMMENT <CASE HEAD> := <CASE HEAO> <T EXP> , ; 

BEGIN 

CASETYPE; COMMENT CHECK TYPES, SET TYPE BYTE; 

RO := aUJ; OUTOP; COMMENT OUTPUT U J ; 

MAX REG; COMMENT ADJUST REGISTER COUNTS; 

IC{R0,V2KR8) ) ; COMMENT STEP CASE COUNT; 

R0:=R0+l; STC(R0 t V2HR8)) ; 

e nd ; 

COMMENT <CASE CL> ::= CASE <T EXP> OF ; 

BEGIN 

IC(R0,V22«R8+8)>; 

IF RO -= 1 THEN BEGIN RO : = 3TYPEERR0R; ERROR; END; 
R9 := 3B9<4); RO := 3CASEE; STC( R0,OP CR9 ) ) ; 
V51R8I :=R9; 

RO := 0; VKR8I := RO; 

Rl := PATCHPOINT; PATCHLISTCR1 ) *.= R9 ; 
Rl := Rl + 2; PATCHPOINT : = Rl; 
Rl := V34CR8+8); V34(R8) := Rl; 
END; 



98 



99 



COMMENT 
NULL; 



<SI T EXP> ::= <SI T EXP**>; 



100 



101 



COMMENT <SI T EXP> ::= <SI T EXP*> <EQL QP> <SI T EXP**>? 

BEGIN 

IC(Rl f V22(R8J ); IC<R0fV22(R7)» ; 

IF RO -•= Rl THEN 
BEGIN ARITHCHECK; 

IF RO < Rl THEN 

BEGIN IF RO = 3 ANO Rl = 4 THEN 



PL 360 COMPILATION 
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26 


0718 


07 


OF 84 


26 


0724 


u f 


OF 8 4 


26 


C724 


7 


OF 84 


26 


7 23 


07 


OF 84 


26 


0728 


07 


0F84 


26 


7 3 C 


07 


OF 8 4 


26 


7 44 


07 


OF 8 4 


26 


744 


07 


OF 84 


26 


7 4C 


7 


OF 84 


26 


G 7 4 C 


07 


OF 8 4 


26 


75 8 


07 


OF 84 


26 


C 7 5 3 


07 


OF 84 


26 


0766 


07 


OF 8 4 


26 


C7 76 


07 


OF 84 


26 


C776 


07 


OF 84 


26 


077A 


07 


F 8 4 


26 


C77E 


07 


0F84 


26 


G7 8E 


07 


OF 84 


26 


0796 


07 


0F84 


26 


CISC 


07 


OF 64 


26 


7A4 


07 


0F84 


26 


07. * 4 


07 


OF 84 


26 


C7B0 


07 


OF 84 


26 


C7B0 


07 


0F84 


26 


07C0 


07 


0F84 


26 


C7C0 


07 


OF 84 


26 


07D0 


07 


0F84 


26 


C7FG 


07 


OF 84 


26 


C7F0 


07 


OF 84 


26 


7F0 


07 


0F84 


26 


G7F0 


07 


OF 84 


26 


C7F0 


07 


0F84 


26 


(77 F4 


07 


0F84 


26 


C7FC 


07 


0F84 


26 


Q8 0C 


07 


OF 84 


26 


G81C 


07 


0F84 


26 


C81C 


07 


OF 84 


26 


0830 


07 


OF 8 4 


26 


0840 


07 


0F34 


26 


C£4Q 


07 


OF 84 


26 


0854 


07 


0F84 


26 


0864 


07 


OF 84 


2 6 


0864 


07 


OF 84 


26 


0878 


07 


0F84 


26 


C888 


07 


0F84 


26 


0888 


07 


OF 84 


26 


8 96 


07 


0F84 


26 


CSA8 


07 


OF 84 


26 


C 8 A 8 


07 


0F84 


26 


08AC 


07 


0F84 


26 


834 


07 


0F84 


26 


8 8C 


07 


OF 84 


26 


C8C6 


07 


0F84 


26 


8D0 


7 


OF 84 


26 


0808 


07 


OF 84 


26 


€8£2 


07 


OF 04 


26 


08F4 


07 


OF 84 


26 


8F4 


07 


0F84 



3561 


356 2 


3563 


3 5 64 


3565 


356 6 


356 7 


3568 


3569 


3570 


357L 


8 572 


3573 


3 574 


35 7 5 


35 76 


35 77 


3578 


35 7 9 


358 


3 581 


3 58 2 


3.583 


3 58 4 


3 585 


3586 


3 587 


3538 


35 30 


3590 


359 1 


3592 


3503 


3594 


3 595 


3 596 


359 7 


359 8 


3599 


360 


360 1 


3602 


3603 


3604 


3605 


360 6 


3607 


360 8 


360 9 


3610 


3611 


3612 


3613 


3614 


3615 


3616 


3617 


3618 



BEGIN Rl : = 5 J R2 := V5(R8); STC (R 1,CQNV( R2) ) ; 

END; 

STC ( Rl, CONV <R9)) ; 
END ELSE 
BEGIN IF Rl = 3 AND RO = 4 THEN 

BEGIN RO := 5 J STC<R0,CONV(R9) ) ; 

end; 

R2 := V5CR83; STC IRO t CONV(R2J ) ; 

END; 
END ELSE IF Rl = 9 THEN 
BEGIN 

R2 := VKR8); R3 := VUR7I; R2 := R2 AND R3j IF = THEN 

BEGIN RO := 3REF ERROR; ERROR; END; 

END; 

R0:=VKR8+8) ; COMMENT SET PATH AND NEW REG COUNT; 
R2 := VKR8) ; 

IF Rl = 7 AND R2 -»= VKR7) THEN 
BEGIN R9 : = V5CR8); R3 := 3UNEQ; 

IF RO = R3 THEN 

BEGIN RO := 3TRUE; Rl := 8; 

END ELSE 

BEGIN RO := OFALSE; Rl := 4; 

END; 

BOOLVALUE; STC < RO ,CCNV t R9|) ; 
END ELSE 
BEGIN IF Rl = 7 THEN STC <R2» CONV C R9+4) ) J 

REGPATH; OUTOP; RO := 6; V2CR8) := RO; 
END; 
E NO ; 

COMMENT <SI T EXP> :: = <SI T EXP*> <REL 0P> <SI T EXP**>; 

BEGIN 

IC(R0,V22<R8) ) ; IC(Rl f V22«R7) ) ; 

IF RO > 3 AND RO -.= 7 THEN 

BEGIN RO : = 3TYPEERR0R; ERROR; 

END ELSE 

IF Rl > 3 AMD Rl -•= 7 THEN 

BEGIN RO := S3 TYPE ERROR; ERROR; 

END ELSE 

IF RO = 7 AND Rl -.= 7 THEN 

BEGIN RO :* aTYPE ERROR; ERROR; 

END ELSE 

IF Rl = 7 AND RO -.= 7 THEN 

BEGIN RO := 3TYPE ERROR; ERROR; 

END ELSE 

IF Rl < RO THEN STCCRO, C0NV1 R9) )ELSE 

IF RO < Rl THEN BEGIN R2 : = V5(R8); STC I Rl ,CONV ( R2) > J 

END; 
R0:= V1CR8+8) 5 
IF Rl ■= 7 THEN 
BEGIN Rl := V1CR83; R2 := VKR7); 

IF Rl = R2 THEN STC I Rl , CONV ( R9+4) ) ELSE 

IF Rl < R2 THEN 

BEGIN STC<Rl,C0NV(R9+4)>; R3 := 3LESS; 
IF RO = R3 THEN RO := 9LESSEQ ELSE 

BEGIN R3 := OGTEQ; IF RO = R3 THEN RO := 3GREATER; 
END; 

END ELSE 
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26 


8F4 


07 


OF 84 


26 


G9C0 


07 


0F84 


26 


09QA 


07 


OF 84 


26 


09 1C 


07 


0F8 4 


26 


G91C 


07 


OF 84 


26 


09 1C 


07 


0F84 


26 


o<nc 


07 


0F84 


26 


0*533 


07 


OF 84 


26 


9 3C 


07 


OF 8 4 


26 


C93C 


07 


OF 84 


26 


053C 


07 


OF 84 


26 


093C 


07 


OF 8 4 


26 


C94G 


07 


0F84 


26 


C944 


07 


OF 84 


26 


9 5C 


07 


OF 8 4 


26 


C95C 


07 


0F84 


2 6 


096C 


7 


OF 84 


26 


0974 


07 


0F84 


26 


C974 


07 


OF 84 


26 


0974 


07 


OF 8 4 


26 


0974 


07 


0F84 


26 


09 7 8 


07 


OF 84 


26 


C978 


07 


OF 84 


26 


<i 7 8 


07 


0F84 


26 


C9 7C 


07 


0F84 


26 


09 7 C 


07 


OF 8 4 


26 


C97C 


07 


OF 84 


26 


0980 


07 


OF 84 


26 


9 8 4 


07 


0F84 


26 


C99C 


07 


GF84 


26 


09 A 4 


07 


OF 84 


26 


0944 


■Jl 


0F84 


26 


09A4 


07 


OF 84 


26 


09A4 


07 


OF 8 4 


26 


0*3 A 8 


07 


OF 84 


26 


09 AC 


07 


OF 84 


26 


09C4 


07 


OF 84 


26 


09CC 


07 


OF 84 


26 


09 DC 


07 


OF 84 


26 


09 DC 


07 


0F84 


26 


G9DC 


07 


0F84 


26 


090C 


07 


OF 84 


26 


09 EO 


07 


OF 84 


26 


09 63 


07 


OF 84 


26 


OAOO 


07 


0F84 


26 


0A94 


07 


0F84 


26 


0A1C 


07 


0F84 


26 


0A1C 


07 


OF 8 4 


26 


0.A1C 


07 


OF 8 4 


26 


0A1C 


07 


OF 84 


26 


0A20 


07 


OF 8 4 


26 


0A2 3 


07 


OF 84 


26 


CA4 


07 


OF 84 


26 


0A44 


07 


OF 84 


26 


0A5C 


07 


0F84 


26 


0A5C 


07 


0F84 


26 


0A5C 


07 


OF 84 


26 


GA 5C 


07 


OF 8 4 



3619 
36 20 
36 21 
3622 
36 23 
3624 
362 5 
362 6 
3627 

362 8 
3629 
3630 
3631 
3632 
3633 
3634 
3635 

363 6 
363 7 

363 8 
3 339 
3640 
3 641 

364 2 
3643 
3644 
3645 
3646 
3647 
3648 

364 9 
36 5 
3651 
3652 

365 3 
3654 
365 5 
3656 
3657 

365 8 
3 659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 

366 8 
3669 
3670 

367 1 
3672 
3673 
3674 
3675 
3676 



BEGIN STC<R2,C0NV(R9+4) ); R3 :=3LESSEQ; 
IF RO = R3 THEN RO : = 3LESS ELSE 

BEGIN R3 := ^GREATER; IF RO = R3 THEN RO := 3GTEQ; 
END; 
END; 
END; 

REGPATH; UUTOPI RO := 6; 

STC(R0,V22(R8))J COMMENT RESULT IS TYPE LOGICAL; 

E NO ; 



103 



<SI T EXP> 



:= <SI T EXP*> IS 



COMMENT 
BEGIN 

IC(R0,V22(R8) ) ; 

IF RO -»= 9 THEN BEGIN RO : = 3TYPEERR0R; 

END; 

RO := aiS; OUT OP; 

RO := 6; STC(R0 f V22CR8) )J COMMENT SIMPLE TYPE IS LOG; 

E NO ; 



<RC CL io> ; 

ERROR; 



COMMENT 
NULL; 

COMMENT 
NULL; 



<SI T EXP**> 



<si t exp*>; 



<S I T EXP*> ::= <T TERM> ; 
<SI T EXP*> 



104 



105 



106 



:■■= + 



<T TERM> 



COMMENT 
BEGIN 

IC<R0,V22LR7) ); 

IF R0>5 THEN BEGIN RO := 3TYPEERR0R; ERROR; END; 

F01:=V{R7); V(R8):=F01; COMMENT SAVE STACK INFO; 

END; 

COMMENT <SI T EXP*> s:= - <T TERM> ; 

BEGIN 

IC<RO f V22<R7) J; 

IF R0>5 THEM BEGIN RO := 3TYPEERR0R; ERROR; END; 
F01 :=V«R7J ; VCR8 } : = F01 J 

RO := aUMINUS; R9 := SB9C4); STC< RO ,0P( R9) ) ; V5<R8M = R9; 
END; 

COMMENT <SI T EXP*> ::= <SI T EXP*> + <T TERM>; 

8 EG I N 

IC(Rl,V22<R8)}; R2 := V5(R8); 
ARITHCHECK; CONVERTl; 
RO := 3PLUS; 

regpath; outop; 
end; 

COMMENT <SI T EXP*> :: = <SI T EXP*> - <T TERM>; 

8 EG I N 

IC(R1,V22(R8) ); R2 := V5(R8>; 

ARITHCHECK; CONVERTl; 
RO :■= 3MINUS; 
REGPATH; OUTOP; 

end; 



107 



108 



109 



110 



COMMENT 
BEGIN 



<SI T EXP*> ■::= <SI T EXP*> OR 



<T TERM>; 



PL360 COMPILATION 



26 


OA60 


07 


OF 84 


26 


0A64 


07 


OF 84 


£ 26 


CA6E 


07 


0F8 4 


2 6 


CA7E 


07 


OF 84 


26 


CA7E 


07 


OF 84 


• 26 


OA06 


07 


0F8 4 


26 


0A9E 


07 


OF 84 


26 


0A9E 


07 


0F34 


£ 26 


A A A 


07 


0F84 


26 


OABA 


07 


OF 84 


26 


OABA 


07 


0F84 


• 26 


0AD2 


07 


OF 8 4 


26 


0A02 


07 


OF 8 4 


26 


OACE 


07 


OF 84 


• 26 


OADE 


07 


OF 8 4 


26 


OADE 


07 


OF 84 


26 


OADE 


07 


0F84 


$ 26 


A E 2 


07 


0F84 


■■: 26 


0AF2 


07 


0F84 


I 26 


0AF6 


07 


0F84 


k # 26 


OAFE 


07 


OF 8 4 


r, 26 


OAF 6 


07 


OF 8 4 


;; 26 


OAFE 


07 


0F84 


;: 26 


OAFE 


07 


OF 84 


26 


OB02 


07 


0F84 


26 


OB06 


7 


OF 8 4 


# 26 


OB IE 


07 


OF 84 


26 


oeie 


07 


OF 84 


26 


OB 22 


07 


OF 84 


£ 26 


0826 


07 


OF 84 


26 


OB2A 


07 


OF 84 


26 


0B36 


07 


OF 84 


£ 26 


0B4 6 


07 


OF 8 4 


26 


004 A 


07 


Of 84 


26 


OB 5 2 


07 


OF 84 


• 26 


65 A 


07 


0F84 


26 


0B5A 


07 


OF 84 


26 


OB tl 


07 


OF 84 


26 


0072 


07 


0F84 


26 


0382 


7 


OF 84 


26 


08 8 8 


07 


OF 84 


26 


0E90 


07 


0F84 


26 


0.80 


07 


OF 84 


26 


0808 


07 


OF 8 4 


26 


089 8 


07 


0F84 


26 


0398 


07 


OF 34 


26 


09 3 


07 


OF 84 


£ 26 


08 9C 


07 


0F84 


26 


03B4 


07 


OF 84 


26 


OBBC 


07 


0F84 


• 26 


OBBC 


07 


OF 84 


26 


OBBC 


07 


OF 84 


26 


OBBC 


07 


OF 84 


^ 26 


OBCO 


07 


OF 84 


26 


0BC4 


07 


0F84 


26 


oacc 


07 


0F84 


^ 26 


0BD4 


C7 


OF 84 


26 


OBFO 


0? 


OF 84 



3677 
3 67 8 
3679 
363 
368.1 
3682 
8633 
3604 
3635 
36 3 6 
36 87 

368 8 
3689 
3690 
3691 
3692 
8693 
3694 
3695 
3696 
36 97 

369 8 
3699 
3700 
3701 
3702 
3703 
3704 

370 5 
.3 706 
3707 
3708 
370 9 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
372 3 
3724 
3725 
3726 
3727 
3728 
3 729 
3730 
3731 
3732 
3733 
3734 
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IC(R0»V22(R8) ) ; 

IC(R1,V22(R7) ) ; IF RO -.= Rl THEN 

begin ro := 3typeerr0r; error; 
end; 
if ro = 6 them 

BEGIN F01 := VCR.7); V<R0+8) := F01; MAXREG; RO := 3L0GGR; 

END ELSE 

IF RO = 8 THEN 

BEGIN RO : = 3BITUR; REG PATH; 

END ELSE 

begin ro := 3type error; error; ro := 0; 
end; 
out op; 
E NO ; 

COMMENT <SI T EXP*> :: = <RC CL ID> ; 

BEGIN 

IC(R1.V22(R8))3 R2 := 1; R2 := R2 SHLL Rl SHRL 11 

VI (R8) := R2; 

RO := 9; V2CR8J := RO; COMMENT SIMPLE TYPE := REF; 
END; 



1 1 1 
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<SI T EXP*> 



<RC OES HD> 



<T EXP> ) % 



COMMENT GET NUMBER OF FIELDS LEFT J 

ERROR; 

COMMENT POINTER TO FIELDS J 
COMMENT TYPE CHECK AND CONVERSION; 



COMMENT 
BEGIN 

IC(R0,V21(R8) ) ; 

IF RO -.= 1 THEN BEGIN RO := 3FIELDERR0R? 

END; 

R2 : = VKR8); 

IC<RO f SIMPLETYPECR2)) ; 

R4 := S I MT YP E I NF i R2 ) J 

cmvrtassm; 

RO : = aRPAREN; OUTOP; 

IC(R0 t V22(R8+8) ) ; 
IF RO = 7 THEM 

BEGIN Rl := VKR8+83; STC(RL f C0NVCR9) ) ; 
END; COMMENT OUTPUT STRING LENGTH; 

Rl := OS ICIR1»V22{R8)J; COMMENT MOVE RCCLNOJ 
R2 := 1; R2 := R2 SHLL Rl SHRL 1; VHR8) := R2j 
MAXREG; IC{R0,V3(R8)J; 
IF RO = THEN 

BEGIN RO := 1; STC< RO, V3C R8 } ) ; 
END; 

RO z- 9; V2CR8) := RO; COMMENT SIMPLE TYPE := REF; 
END; 

COMMENT <S! T EXP*> :: = <STRING> ; 

BEGIN 

RO := 3STRINGG; OOTID; RO := 0; V34CR8) := RO; 

ICfRQiSTRINGLENGTH); V1CR8) : = RO; 

END; 
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114 



<SI T EXP*> 



NULL; 



COMMENT 
BEGIN 

R9 := 5)B9(4); 

RO := 3NUL; STC I R0,OP (R9 ) I J 

RO := 9; STC(R0,V22(R8) ); COMMENT SIMPLE TYPE := REF; 

V5<R8) := R9; RO := 0; V34IR81 := RO; 

Rl := #FFFF; VKR8I s= Rl; COMMENT SET RC CL MASK? 






PL36G CO 


M PI L ATI ON 


26 


3 E 3 


7 


OF 84 


26 


8E8 


07 


OF 84 


£ 26 


0BE3 


07 


OF 84 


26 


8 E 8 


07 


0F8 4 


26 


CBEC 


07 


0F84 


• 26 


OB EC 


07 


OF 8 4 


26 


OB EC 


07 


0F84 


26 


GBFQ 


07 


OF 84 


% 26 


OBFO 


07 


0F84 


26 


OBFO 


07 


0F84 


26 


OBF4 


07 


OF 84 


% 26 


OC04 


07 


OF 84 


26 


QC04 


07 


0F84 


26 


OCOA 


07 


OF 84 


26 


OCOE 


07 


OF 84 


26 


OCOE 


07 


0F84 


26 


OC1A 


07 


OF 8 4 


26 


0C36 


07 


0F84 


26 


0C3A 


07 


OF 84 


26 


OC 3A 


07 


OF 84 


# 26 


0C4A 


07 


0F84 


26 


OC56 


7 


OF 8 4 


26 


0C56 


07 


OF 84 


$ 26 


OC6E 


07 


F 8 4 


26 


0C6E 


07 


OF 34 


26 


GC7A 


07 


OF 84 


26 


0C82 


07 


OF 84 


26 


CC8E 


07 


0F84 


26 


0C96 


07 


0F84 


9 26 


OC9E 


07 


OF 84 


26 


OC 9E 


07 


OF 84 


26 


OCAA 


07 


0F84 


• 26 


OCA A 


07 


0F84 


26 


OC B6 


07 


OF 84 


26 


0CC2 


07 


0F84 


• 26 


OCD2 


07 


OF 84 


26 


0CE2 


07 


0F84 


26 


0CE2 


G7 


OF 84 


26 


0CE6 


07 


OF 84 


26 


0CE6 


07 


0F84 


26 


0CF2 


07 


0F84 


• 26 


0CF2 


C7 


OF 8 4 


26 


ODOA 


7 


0F84 


26 


ODL6 


07 


OF 8 4 


26 


OD IE 


07 


OF 84 


26 


0D2A 


07 


0F84 


26 


0C32 


07 


OF 84 


• 26 


C032 


07 


OF 8 4 


26 


CC36 


07 


OF 84 


26 


CD4E 


07 


OF 8 4 


£ 26 


004E 


07 


0F84 


26 


0D4E 


07 


OF 84 


26 


0D4C 


07 


OF 84 


% lb 


0C52 


07 


0F84 


26 


005 A 


07 


OF 84 


26 


D 7 2 


07 


OF 84 


w ^ :> 


0082 


07 


OF 84 


26 


0D8A 


07 


OF 84 



373 5 

3 736 
3737 

3 7 3 8 
3 7 39 
3740 
3741 

374 2 

374 3 
3744 
3 74 5 
3746 
3 747 
3748 
3 749 
3750 
3751 
3 75 2 
3 753 
3 754 
3 75 5 
3756 
3757 

375 8 
3759 
3760 
3 76 1 
3 762 
3763 
3764 
3 76 5 

376 6 
3 767 
3768 
3769 
3770 
3771 
3 772 
3773 
3774 

377 5 
377 6 

377 7 
3778 
3779 
3780 

378 1 
3 782 
378 3 
3784 
3785 
3736 
8 70 7 
3738 
378 9 
3790 
3 791 
3792 
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end; 
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COMMENT 
NULL; 

COMMENT 

NULL; 



<T TERM> ::= <T TERM*>J 
<T TERM*> ::= <T FACTV; 



PAGE 66 
115 
116 
117 



• 



COMMENT <T TERM*> i : - <T TERH*> * <T FACT> *, 
BEGIN 

I C < R 1 , V 22 ( R 8 ) ) ; AR I THCHECK ; 

COMMENT CHECK TYPES. FIRST ARG IN Rl, SECOND IN RO J 
IF RO -*= Rl THEN 

BEGIN R2 : = V5(R8)S CASE Rl OF 
BEGIN 

BEGIN STC(R0,CONV(R2n ; 

IF RO = 2 THEN RO := 3 ELSE IF RO = 4 THEN RO s= 5; 
STC(R0,V22(R8)); 
END; 

BEGIN IF RO >1 THEN STC (ROs C0NVCR2) )ELSE 

BEGIN Rl := 2; STC(R1 ,CONV( R9 >) J 

end; 

if ro >3 then ro := 5 else ro := 3; stc<ro, v22cr8) ) ; 

END; 

IF RO < 3 THEM 

BEGIN RO := 3; STCC RO ,CQNVC R9 ) J ; 

END ELSE IF RO = 4 THEN 

BEGIN RO := 5 ■; STC( RO.CONVC R2) ) J 
STC ( RO , C ONV < R9 ) ) ; STC < RO , V 2 2 < R8 ) ) 5 

END ELSE 

BEGIN STC {RO, CONV ( R2 )} ; STC <R0, V22CR 8 J ) ; 

END; 
BEGIN IF RO = 3 THEN 

BEGIN RO := 5; STC(RO f C0NV1R9) I S STC< RO, CONV{ R2) ) I 

END ELSE IF RO = 5 THEN STC t RO ,C0NV<R2 ) )ELSE 

BEGIN RO := 4; STCI RO f C0NVCR9) ) ; RO := 5; 

END; 

STC(R0 t V22(RR) ); 

end; 

BEG I H RO : = 5 ; STC C RO , CONV { R9 I ) ; 
END; 

end; 
end else if ro = 2 then 

BEGIN RO := 3J STC(R0,V22(R8)) ; 

END ELSE IF RO = 4 THEN 

BEGIN RO := 5; STC <R0,V22(R8) ) ; 

END; 
RO := 2TIMES; 
REGPATH; outop; 
END; 



# 



118 



<T TERM*> t*-= <T TERM*> / 



COMMENT 
BEGIN 

IC(R1,V22<R8) ) ; R2 : = V51R8); 

ARI THCHECK; CQMVERT1; 

If RO = 1 THEN IF Rl = 1 THEN 

BEGIN RO := 3; STCCRO,V22 (R8) ) ; 

STC { RO, CONV < R9 ) ) ; STC i R , CONV ( R2 ) ) 5 



<T FACT> 



# 
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26 


CD 92 


07 


OF 34 


2 6 


DCS 2 


07 


OF 34 


26 


0096 


07 


0F84 


26 


OCAE 


07 


OF 34 


26 


OCAE 


07 


0F84 


26 


CE7A 


07 


0F84 


26 


CE7E 


07 


OF 84 



25 
2 5 



CAS A 

04 64 



07 
07 



0F84 
0F84 



2 3 


04 74 


07 


OF 84 


23 


0474 


07 


OF 84 


23 


0474 


07 


0F84 


27 


ocoo 


07 


0F84 


27 


0000 


07 


OF 84 


27 


00 00 


07 


OF 84 


27 


00 C 4 


07 


OF 84 


27 


0014 


07 


OF 84 


27 


0020 


07 


0F84 


27 


0024 


C7 


OF 84 


27 


0028 


07 


0F84 


27 


0C2C 


07 


OF 84 


27 


0034 


07 


OF 8 4 


27 


0C38 


07 


0F84 


27 


0G36 


07 


OF 34 


27 


0036 


07 


OF 84 


21 


{ 03 6 


07 


OF 84 


27 


00 3 A 


07 


OF 84 


27 


0053 


07 


OF 8 4 


27 


0C64 


07 


0F84 


27 


0C6C 


07 


OF 84 


27 


006 E 


07 


OF 84 


27 


0C6E 


07 


OF 84 


27 


0C6E 


07 


OF 84 


27 


006E 


07 


0F84 


27 


G0 7A 


07 


0F84 


27 


0C92 


07 


OF 84 


27 


0092 


07 


0F84 


27 


CC9E 


07 


OF 84 


27 


0086 


07 


OF 84 


27 


OCfiE 


07 


OF 84 


11 


00C6 


07 


OF 84 


27 


0002 


07 


0F84 


27 


OOCA 


07 


OF 84 


2 7 


CODA 


07 


OF 84 


27 


00 E 6 


07 


OF 84 


27 


O0E8 


37 


OF 84 


27 


00E8 


07 


OF 84 


27 


00 E 8 


07 


OF 84 


27 


O0E3 


07 


OF 84 


27 


C0F8 


07 


OF-84 


27 


0104 


07 


OF 84 


27 


one 


07 


OF 84 



3793 




3794 




3 79 5 




3 79 6 




3 797 




379 8 




37 99 




SEGMENT 


26 


3800 




3 301 


EM 



END; 
RO .:= a 01 VIDE; 
REGPATH; 1.1UT0P; 

END; 
END; COMMENT END OF CASE STATEMENT; 

RIO := RASAVE; 
END; COMMENT END OF LEVELTWOj 



NAME = SEG#26 



LENGTH = OEOO BASE REG = 15 



LEVEL TWO; 
END; COMMENT END OF EXECUTE2; 



SEGMENT 25 NAME = SEG#25 



3 302 
3803 
3304 
3805 
3806 
3807 
3 808 
380 9 
3310 
3811 
3312 
3313 
3814 
3815 
3316 
3 817 
3818 
3 819 
3820 
3821 
3822 
3323 
3324 
3825 
3326 
3827 
3328 
3829 
3 33 
3831 
3332 
3833 
3334 
3835 
3836 
3 8 3 7 
3838 
3839 
3840 
3 341 
3842 
3843 
3844 



SEGMENT PROCEDURE 
BEGIN 



LENGTH = 04A3 BASE REG = 15 
EXECUTE3<R6); 



PR DC ED UR E I F TH £ NS T AT EM E NT ( R 5 ) ; 
8 EG I N 

Rl := V5CR8+8); R2 := V5tR8) - OUTBASE; POINTER(Rl) := R2; 
R9 := aB9J4); RO := 3IFST; STC ( RO , OP <R9 1 I ; 

Rl := Rl - OUTBASE; 
POINTER I R9 I s=Rls 
V5JR8) :=R9; 

RO := 0; V34iR8) := RO; 
E ND ; 

PROCEDURE F0RSTATEMENTCR5) ; 
BEGIN 

Rl:= VKR8J; 

IF Rl =0 THEN Rn := SITERST ELSE RO := 3ITERST2? OUTOP ; 

R1:=BNCJ Rl:= BL0CKLIST2 (Rl ) ; BNC := Rl; 

RO := 0; V34(R8) := RO; 
END; 

PROCEDURE ASSIGNMENKR5) ; 
BEGIN 

RO := V2(R8); IF RO > #FF THEN 

BEGIN RO := 3AR RAY ERROR J ERROR; RO := V2<R8) AND #FF; 

ENDS 

F01 := V(R7); V<R8+8) ■:= F01; R4 : = VI (R8); 

CNVRTASSN; REGPATH; 

Rl := 0; ICCR1,V22{R7) ); 

IF Rl = 7 THEN 

BEGIN Rl '.= VKR7); STCCR 1 ,C0NV(R9+4) ) J Rl := V5CR8); 
R 1 : = aC ONV C Rl ) ; STC ( R4 , Bl ) ; 

END; 

OUTOP; 
END; 

PROCEDURE CASESEQEN0<R5); 

BEGIN 

Rl := PATCHPOINT - 2; PATCHPOINT := Rl; Rl : = PATCHUST(Rl) I 
IC(R0,V21<R8))S RO := RO + 1; POINTER(Rl) := RO; 
RO := aCLL; OUTOP; RO := 0; V34CR8) := RO; 

EMC); 
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69.325 a 23:49 



PAGE 68 



27 


CUE 


07 


OF 84 


27 


1 1 E 


07 


0F84 


27 


out 


07 


Of 84 


27 


01 IE 


07 


OF 84 


27 


0126 


07 


0F84 


27 


CI 36 


07 


0F84 


27 


G136 


07 


OF 8 4 


2 7 


013 A 


07 


0F84 


27 


01 3 E 


07 


OF 8 4 


27 


0146 


07 


OF 84 


27 


0156 


07 


0F84 


2 7 


0156 


07 


OF 84 


27 


0170 


07 


OF 84 


27 


0184 


07 


0F84 


27 


018 6 


07 


OF 84 


27 


0186 


07 


0F84 


27 


0186 


07 


OF 84 


27 


0186 


07 


OF 84 


27 


018A 


07 


0F84 


27 


0192 


07 


OF 84 


27 


C19A 


07 


OF 84 


27 


01EA 


07 


0F84 


2 7 


01 C A 


07 


0F84 


27 


01CA 


07 


OF 84 


27 


01 DA 


07 


OF 84 


27 


01 DA 


7 


OF 84 


27 


01DC 


07 


OF 84 


27 


010C 


07 


OF 84 


27 


01 DC 


07 


OF 84 


28 


0004 


07 


OF 8 8 


28 


00C8 


07 


0F8 8 


28 


O0C8 


07 


0F88 


28 


OCCC 


07 


0F8 8 


2 8 


occc 


07 


0F8 8 


28 


OCCC 


07 


0F88 


28 


00 OC 


07 


0F88 


28 


0014 


07 


OF 8 8 


28 


00 2 8 


07 


OF 8 8 


28 


C02C 


07 


0F88 


2 8 


0C44 


07 


0F88 


28 


05A 


07 


OF 8 8 


28 


0C74 


07 


0F88 


28 


0014 


07 


OF 8 8 


28 


0C74 


07 


0F88 


28 


00 74 


07 


OF 8 8 


28 


0C7H 


07 


OF 8 8 


28 


00 8 C 


07 


OF 8 8 


2 8 


0090 


07 


0F88 


28 


O0A8 


07 


0F88 


28 


008E 


07 


DF88 


23 


008 


07 


0F88 


28 


0C8 


07 


OF 8 8 


28 


0D8 


07 


GF88 


28 


00 8 


07 


OF 8 8 


28 


OOOC 


07 


0F88 


28 


0E4 


07 


0F88 


23 


OOEA 


07 


OF 8 8 


28 


OOFA 


07 


0F88 



3 845 
3346 
3 847 
3848 
3 340 
3850 
385 1 
3852 
3853 
38 54 
3855 
3 856 

385 7 
3 35 8 
335<> 
3860 
3 86 1 
3 86 2 
3863 
3 864 
3365 
3 866 
3867 
3368 

386 9 
3870 
38 71 
3 8 72 
3873 
3874 
3375 
3876 
3 87 7 
3878 
3879 
3880 
3 881 
3882 
3833 
3834 
3835 
3 386 
3837 

388 8 
3839 
3390 

389 1 
3392 
3893 
3394 
3395 
3896 
3 397 
389 8 
3 89 9 
3900 
3901 
3902 



PROCEDURE SHIFT(RS); 

COMMENT OUTPUT NODE IS IN Rl, SIMPLE TYPE IS IN RO; 
IF RO ->= 8 THEN 

BEGIN RO := aTYPE ERROR; ERROR; 
END ELSE 
BEGIN 

IC(R0,V22(R7) ) ; 

IF RO -i= 1 THEN 

BEGIN RO := OTYPEERROR; ERROR; 

END; 

RO : = Rl; REGPATH; OUTOP; 

IC(R0,V3{R8)); IF RO < 2 THEN RO := 2; STCI RO , V3(R 8)) J 
END; 

PROCEDURE RESULTIR5) J 
BEGIN 

Rl := V34LR8) ; 

IF Rl = 2 THEN 

BEGIN IC(R0,0P(R9) }; RO := RO AND £7F; 

IF RO -.= 30 AND RO -.= 31 AND RO -.= 40 AND RO -= 62 AND RO -*= 87 

AND RO -* = 89 THEN 
BEGIN RO := 3R 6SULTERRQR; ERROR; 
END; 
END ; 
END; 

SEGMENT PROCEDURE LEVELTWQ(RIO) ; 

BEGIN INTEGER RASAVE; RASAVE := RIO; 
RULENUMBER := R5; 



15 := R5 
BEGIN 



118 J CASE R5 OF 



119 



<T TERM*>. ::= <T TERM*> DIV <T FACT> ; 

TYPE INTEGER; 



COMMENT 
BEGIN 

IC(R0,V22<R8) ); IC<Rl f V22(R7)) ! 

ro := aoiv; 

REGPATH; OUTOP; 

R2 := V34IR8); IF R2 < 3 AND R.3 -.= THEM R2 5 = 3 ELSE 
IF R2 < 2 AND R3 = THEN R2 := 2; V34CR8) :« R2; 

END; 



120 



<T TERM*> ::= <T TERM*> REM <T FACT> 

TYPEINTEGERj 



COMMENT 

B EG I N 

IC<R0,V22(R8}}; IC(R1,V22(R7}); 

RO := 3REM; 

REGPATH; OUTOP; 

R2 := V34IR8); IF R2 < 3 AND R3 -.= THEN R2 := 3 ELSE 
IF R2 < 2 AND R3 = THEN R2 := 2; V34(P.8) := R2 1 
END; 

COMMENT <T TERM*> s:= <T TERM*> AND <T FACT> 5 

BEGIN 

IC(R0,V22(R8) ); IC(Rl t V22(R7)) ; 

IF RO -•= Rl THEM 

BEGIN RO := 3TYPEERR0R; ERROR; 
END; 



121 
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?.8 


OOFA 


07 


OF 8 8 


28 


0102 


07 


0F83 


• ■ '' 


011A 


07 


OF 8 8 


2 3 


01 IA 


07 


OF 8 8 


23 


0126 


07 


0F8 8 


% 28 


0136 


07 


OF 8 3 


28 


0136 


07 


OF 8 8 


28 


01 4 E 


07 


0F88 


£ 28 


014E 


07 


OF 8 8 


28 


015A 


07 


OF 83 


28 


015A 


07 


OF 8 8 


% 28 


015A 


07 


OF 8 8 


28 


015 A 


07 


0F88 


2 3 


Q15E 


07 


OF 8 8 


£ 28 


015E 


07 


OF 8 8 


28 


015E 


07 


0F88 


28 


0162 


07 


OF 88 


• ZB 


0166 


07 


0F88 


- ' 28 


CI 72 


07 


0F88 


28 


0182 


07 


0F88 


L : # 28 


1 9 6 


07 


0F8 8 


2 8 


0196 


07 


0F88 


23 


019E 


07 


OF 8 8 


28 


01A6 


07 


0F88 


2 8 


01 A A 


07 


OF 8 8 


28 


01AA 


07 


OF 8 8 


28 


01AA 


07 


OF8 8 


28 


01AA 


07 


OF 8 8 


28 


01AE 


07 


OF 8 


% 28 


01AE 


07 


OF88 


28 


01AE 


07 


OF 3 8 


28 


01B2 


07 


OF 8 8 


# 28 


0106 


07 


0F88 


28 


01BE 


07 


0F88 


28 


01C6 


07 


OF 8 8 


% 2 8 


oi ce 


07 


OF 88 


28 


01D6 


07 


OF 8 8 


28 


01D6 


07 


0F88 


• 28 


010A 


07 


OF 8 8 


28 


OIF 2 


07 


OF 8 8 


28 


020E 


07 


0F88 


ft 2 3 


020E 


07 


0F88 


28 


0222 


07 


OF 8 8 


28 


0222 


07 


0F88 


28 


222 


C7 


0F88 


28 


22 2 


07 


0F88 


28 


0222 


07 


0F88 


• 28 


022 6 


07 


OF 8 3 


28 


023 A 


07 


OF 3 8 


23 


023A 


07 


OF 8 8 


ft 23 


02 3A 


07 


OF 8 8 


28 


023 A 


07 


0F88 


2 3 


023 E 


07 


OF 8 8 


ft 2 3 


023E 


07 


OF 8 8 


28 


023 E 


07 


0F88 


28 


0242 


.37 


0F88 


28 


2 46 


07 


OF 88 


28 


0250 


07 


0F88 



390 3 
30 04 
3 90 5 
390 6 
3907 
390 8 
3<K)9 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3913 
3919 
392 
3921 
392 2 
392 3 
3924 
392 5 
3926 
3927 

392 8 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 

393 8 
3939 
3940 
3941 
3942 
3943 
3944 

394 5 

394 6 
3947 
3948 
3949 

395 
3951 
395 2 
3953 
3954 
39 55 
3956 
395 7 
3958 
395 9 
3960 
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IF RO = 6 THEN 

BEGIN F01 : = V(R7); V(R8+8) := FQ1 ; MAXREG; RO := 3L0GAND; 
END ELSE 
IF RO = 8 THEN 

BEGIN RO := 3BITAND; REGPATHj 
END ELSE 

BEGIN RO := 3TYPEERR0R; ERROR; RO : = 0; 
EN D ; 
OUT OP; 
E NO ; 



COMMENT 
NULL; 



<T FACT> 



<T FACT> 



<T SECON> » 

<T FACT>; 



122 



123 



COMMENT 
BEGIN 

IC(R0,V22(R7>) ; 

IF RO = 6 THEN RO z= aLQGNOT ELSE 
IF RO = 8 THEN RO := atJITNOT ELSE 
BEGIN RO := STY PE ERROR; ERROR; 
END; 

R9 := 389(4); STC IRQ ,0P{ R9H ; 
F01:=V(R7); V(R3):=F0i; 

V51R8) ;=R9; 
END; 



COMMENT 

mull; 



<T SECON> 



<T PRIM> 



<T SECON> <SHL OR **> <T PRIM> 



124 



125 



COMMENT <T SECON> a 
BEGIN 

IC(R0 t V22lR8) ) ; 

IF R0<6 THEN 

BEGIN IF RO = 1 THEN 

BEGIN R2 := V5CR8); RO := 3; 

STC<RO,CUNV< R2) ); STC( RO, V22(R8) ) ; 

END; 
IC(R0 f V22<R7) ) ; 

IF RO -.= 1 THEN BEGIN RO := 3TYPEERR0R; ERROR? END; 



REGPATH; RO : = 3EXP0N; OUTOP; 
END ELSE 
BEGIN Ri := 3SHLS SHIFT; 

END; 



COMMENT FORCE LEFT; 



END; 
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::= <T S£CON> SHR <T PRIM> 



COMMENT <T SECON> 
BEGIN 

IC<R0,V22(R8) ); Rl : = 3SHR; SHIFT; 
E ND ; 



COMMENT 
NULL; 



<T PRIM> 



<T PRIM> 



COMMENT 
BEGIN 

IC(R0,V22(R7) ) ; 

IF RO =0 THEN SET (FLAG JELSE 
BEGIN 



= <T VAR>; 

= <T FUNC OES> ; 
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PAGE TO 



2 8 


0254 


07 


0F88 


2 8 


02 6 8 


07 


OF 8 8 


2 a 


02 70 


07 


OF 8 8 


28 


276 


7 


0F8 8 


2 8 


G27E 


07 


OF 8 8 


26 


276 


07 


OF 8 8 


23 


027E 


07 


0F88 


28 


027E 


7 


OF 88 


26 


2 7E 


07 


OF 8 8 


28 


2 7 E 


07 


0F88 


28 


2 82 


07 


OF 8 8 


28 


028E 


07 


OF 88 


28 


02 96 


07 


0F8 8 


2 8 


2A6 


07 


OF 8 8 


28 


2A6 


07 


0F8 3 


28 


02 82 


07 


0F88 


2 8 


02B2 


07 


OF 88 


28 


0202 


07 


OF 8 8 


28 


02 B 2 


07 


OF 8 8 


28 


28 6 


07 


OF 8 8 


28 


02 DA 


07 


0F38 


2 8 


02C8 


07 


OF 8 8 


28 


02C8 


07 


OF 3 8 


28 


02 CC 


07 


0F88 


28 


0200 


07 


OF 8 8 


28 


0204 


07 


0F88 


28 


02F0 


07 


0F88 


20 


02FC 


07 


OF 88 


28 


02 fC 


07 


0F88 


2 8 


02 FC 


07 


OF 88 


28 


02 FC 


07 


0F88 


28 


2FC 


07 


OF80 


28 


03 


07 


OF 8 8 


28 


0314 


07 


OF 8 8 


28 


0314 


07 


0F88 


28 


03 14 


07 


OF 88 


28 


0314 


07 


OF 8 8 


28 


0318 


07 


0F88 


23 


032C 


07 


0F88 


28 


32C 


07 


OF 88 


28 


032C 


07 


0F88 


28 


032C 


07 


OF 8 8 


28 


0330 


07 


0F38 


28 


033 


07 


0F88 


23 


0330 


07 


OF 8 8 


28 


0334 


07 


0F88 


23 


033C 


07 


GF88 


28 


03 40 


07 


OF 88 


28 


0354 


07 


OF 8 8 


28 


0364 


07 


OF 8 8 


28 


0378 


7 


OF 88 


2 8 


03 8 


07 


0F83 


2d 


03 8 


07 


0F88 


2 8 


0380 


07 


0F88 


28 


0380 


07 


0F88 


28 


384 


07 


0F88 


28 


03 OC 


07 


0F88 


28 


0390 


07 


0F88 



3 961 

396 2 
39 63 
3964 
3^65 
3966 
3 96 7 
3968 
39 69 
39 70 
3971 

397 2 
3073 

397 4 
39 7 5 
3976 
3977 
39 78 
3979 
3980 
3981 

398 2 
3983 
3984 
3985 
3986 
3987 

398 8 
3939 
3990 
3991 

399 2 
3993 
399 4 
399 5 
3996 
399 7 

399 8 
3999 

400 
4-00 1 
400 2 
4003 
4004 

400 5 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 

40 1 5 
4016 
40 1 7 
4018 



RO := 8; STC{R0,V4<R8) ); Rl := HN-2; STCCR1, V3( R8 )) ; 
IC (R0,0P(P,9)) ; R4 := SFUNCID; 

IF RO -%= R4 THEN 

BEGIN Rl := 0; STC(K1,V2UR8) ) ; 
END; 
END; 
E NO ; 

COMMENT <T PRIM> : -:= <ST FUNC ID>; 

BEGIN 

R8 := R8 SHRL 3; IC i RO, S (R8-1 ) ) ; R8 := R8 SHLL 3; 

IF RO -.= APARHEAD THEN 
BEGIN RO := 3APAR ERROR; ERROR; 
END; 

Rl := V1CR8); Rl := SIMTYPEI NFOC Rl ) ; VKR8) := Rl; 
end; 



129 



130 



<T PRIM> 



<LEFT PAR> <T 6XP> 



) 



COMMENT 
BEGIN 

Rl := V1CR8); 

IF Rl = THEN BEGIN F01 := V1R8+8I; V(R8) ? = FOl; 

END ELSE 
BEGIN 

RO := TYPEINFO(Rl); COMMENT GET SIMPLE TYPE OF FPAR; 
R4 := IDL0CHR1); COMMENT GFT SIMTYPFINFO OF FPAR; 

CNVRTASSM; RO s- 3APPAREN; OUTOP; 

Rl := VKR8); Rl := SI MTYPEI NF0IR1) ; VUR8I i=RI; 
END; 
end; 



131 



COMMENT 
BEGIN 

RO .:= 3TRUE; Rl 
END; 



<T PRIM> ::= TRUE; 

= 8; 600LVALUE; 



132 



COMMENT <T PRIM> :: = FALSE ; 
BEGIN 

RO s= OFALSE; Rl := 4; BOOLVALUE; 
END; 



COMMENT 
NULL; 



<T PRIM> 



<CON ID>; 



133 



134 



COMMENT <T PRIM> :: = LONG <T PRIM> ; 
BEGIN 

F0l:=V(P.8+8) ; V(R8)s=F01; COMMENT SAVE VALUE INFO; 

IC(R0,V22(H8) ) ; 

IF RO = 1 OR RO = 2 THEN RO s= 3 ELSE 

IF RO = 4 THEN RO := 5 ELSE 

BEGIN RO := 3TYPEERR0R; ERROR; END; 

STC(R0»CONV«R9)}; STCiRO ,V22 (R8 ) ); 
END; 



135 



COMMENT 
BEGIN 

FOl t= VCR8+8); VCR8) 

IC(R0,V22<R8) ); 

IF RO = 3 THEN RO := 2 ELSE 



<T PRIM> :: = SHORT <T PRIM>; 

= FOl; COMMENT SAVE VALUE INFO; 



PL360 COMPILATION 



ALGOL W COMPILER - PASS 1 £ 2 



69.325 a 23:49 
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28 


03 9C 


07 


0F83 


28 


03AC 


07 


OF 8 8 


28 


03 CO 


7 


0F88 


28 


cnc8 


7 


OF 8 8 


2 3 


C3C8 


07 


F 8 8 


28 


03C8 


07 


OF 8 8 


28 


3C 8 


07 


OF 8 8 


28 


3CC 


07 


OF 8 3 


2 8 


03CG 


07 


OF 8 8 


23 


03D8 


07 


OF 8 8 


28 


03 E6 


07 


Of 88 


28 


03 F 2 


07 


OF 8 8 


28 


0400 


07 


OF 8 8 


28 


0404 


07 


0F8 8 


28 


0404 


07 


0F88 


28 


0418 


07 


OF 8 8 


28 


042 C 


07 


0F88 


28 


04 3 


07 


OF 8 8 


28 


04 30 


07 


OF 8 8 


2 8 


043 8 


07 


0F83 


28 


04 4 8 


07 


OF 88 


28 


04 54 


07 


0F83 


28 


045 C 


07 


0F88 


28 


0463 


07 


OF 8 8 


28 


04 70 


07 


0F88 


2 8 


0470 


07 


OF 8 8 


28 


04 74 


07 


OF 8 8 


28 


047C 


07 


0F8 8 


28 


04 84 


07 


F 8 8 


28 


0483 


07 


OF 8 8 


28 


048 8 


07 


0F88 


23 


046 8 


07 


0F88 


2 8 


48 8 


07 


OF 83 


2 8 


0430 


07 


0F88 


23 


04 A 4 


07 


OF 88 


28 


04 84 


07 


0F8 8 


28 


043C 


07 


F 8 8 


28 


04BC 


07 


OF 8 8 


28 


4 8 C 


07 


F 8 8 


23 


04BC 


07 


0F88 


28 


4CO 


07 


OF 8 8 


28 


04 8 


07 


0F88 


28 


C4DS 


7 


OF 8 8 


28 


4D8 


07 


0F88 


28 


040 8 


07 


OF08 


23 


C4CC 


07 


OF 8 3 


28 


04 E4 


07 


0F8 8 


28 


04 E 4 


C7 


0F88 


2 8 


04E4 


07 


OF 8 8 


23 


04 E4 


07 


0F8 8 


2 8 


04 £8 


37 


OF80 


28 


C4F0 


7 


0F88 


28 


04FQ 


07 


0F83 


28 


04 F 


07 


0F88 


28 


04F0 


07 


OF 3 8 


28 


04 f 4 


n 


0F88 


2 8 


04 FC 


7 


OF 8 8 


28 


04FC 


07 


OF 8 8 



4019 
4020 
4021 
402 2 
4023 
40 2 4 
4 02 5 
40 ? 6 
4027 

402 8 
4029 
4030 
4031 
40 32 
4033 
4034 
4035 
4036 
4037 

403 8 
4039 
4040 

404 1 
4042 
4043 
4044 
4045 
4046 
4047 
4043 
4049 
4050 
4051 

405 2 
4053 
40 54 
4055 
405 6 
4057 
4058 

405 9 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 

406 8 
4069 
4070 
4071 
4072 
4073 
4074 
4075 

407 6 



IF RO = 5 THEM RO := 4 ELSE 
BEGIN RO := 3TYPEERP0R; ERROR; END; 
STC ( KO , CON V { P 9 > ) ; STC < RO , V22 { R8 )) ; 
END; 

COMMENT <T PKIM> :: = A8S <T PRIM> ; 

BEGIN 

ICCR0 f V22(R7) ) ; 

IF RO = 1 THEM 

BEGIN IC(R1,V3U<8 )) ; IF Rl = THEN STC ! RO, V3{ R8H J 

END ELSE IF RO < 4 THEN 

BEGIN IC(R1,V4(R8)) ; IF Rl = THEN Rl := 1; 

STCCR1,V4(R8)); 
END ELSE 

BEGIN IC<R1,V3(K8)); IF Rl < 4 THEN Rl := 4; 
STC(R1,V3(R8I); IC(R1,V4(R8J); IF Rl < 4 THEN Rl := 4; 

STC(Rl,V4iR8)) ; 
END; 

IF RO > 5 THEN 

BEGIN RO := 3TYPEERR0R; ERROR; 
END ELSE IF RO = 4 THEN 
BEGIN RO := 2; STC( RO, V22(R7) ) ; 
END ELSE IF RO = 5 THEN 
BEGIN RO := 3; STC< RQ,¥22 CR7) ) ; 
END; 

R9 := 389(43; 

RO ;= aABSSl STCIR0,0P(R9)I ; 
F0l:=V(R7); V(R8):=F0l; 
V5(R8):=R9j 
END; 



136 



137 



COMMENT <T PRIM> ::= <T NUMBER> 

BEGIN 

R4 := aNUMVALUE; IC ( RO, V22 < R 3) ) ; 

RO := 3NUM8ER; OUT ID; 

RO := 0; V34(R3) := RO; 

END; 



LITERAL: 



VKR8) := R5; 



138 



COMMENT 
BEGIN 

RO := SBITT; 
END; 



<T PRIfO ::= <BIT SEQ> ; 

OUT ID; RO := 0; V34(R8) := RO ; 



139 



COMMENT 
BEGIN 

RO := a LESS; 
END; 



<REL 0P> : := < ; 
VKR8):=R0; 

:■= < = 



140 



COMMENT <REL 0P> 
BEGIN 

RO := 3LESSEQ; V1CR8):=P.0; 

END; 

COMMENT <REL 0P> a= > 

BEGIN 

RO := aGREATER;Vl(R8) :=R0; 
END; 



141 



142 



PL3 60 COMPILATION 



28 


04FC 


7 


0F88 


28 


04 fC 


07 


0F8 3 


28 


C 5 C 


07 


OF 88 


28 


5C8 


07 


OF 8 8 


28 


508 


07 


GF88 


28 


0508 


07 


OF 8 8 


28 


5C8 


07 


OF 8 8 


28 


050C 


07 


OF 88 


28 


C514 


07 


OF 8 8 


28 


514 


07 


OF 8 8 


28 


0514 


07 


0F88 


28 


0514 


07 


0F88 


28 


C518 


07 


OF88 


28 


052 


07 


OF 8 3 


28 


0520 


07 


OF 8 8 


28 


52 


7 


OF 8 8 


28 


52 


07 


0F88 


28 


524 


7 


OF 88 


28 


052C 


07 


0F88 


28 


G52C 


07 


OF 8 3 


28 


052C 


07 


Of 88 


28 


52C 


07 


0FS8 


28 


0530 


7 


OF 8 8 


28 


0538 


07 


OF 8 8 


28 


0538 


07 


OF 8 3 


28 


0538 


07 


OF 8 8 


28 


0538 


07 


0F88 


2 8 


C5 3C 


07 


0F88 


28 


540 


07 


OF 8 a 


28 


0544 


07 


0F88 


zL o 


054 A 


07 


0F88 


28 


0552 


07 


OF 8 8 


12, 


55 A 


07 


0F88 


28 


05-66 


07 


CF88 


28 


C56A 


07 


OF 8 8 


28 


572 


07 


0F83 


28 


0572 


07 


OF 8 8 


28 


576 


07 


OF 8 8 


28 


C57A 


07 


0F88 


28 


57E 


07 


0F88 


28 


G51E 


07 


0F88 


28 


C57E 


07 


0F88 


28 


57E 


07 


OF 8 8 


28 


0582 


07 


OF 8 8 


28 


05 86 


07 


0F88 


28 


C5SE 


07 


OF 8 8 


28 


59E 


07 


OF 88 


28 


05A6 


07 


Of 88 


28 


5AA 


07 


0F88 


28 


05AE 


07 


0F88 


28 


5B 2 


07 


Of 88 


28 


05 E A 


07 


OF88 


28 


Q5C6 


07 


OF 88 


28 


0506 


07 


OF 8 8 


28 


5CA 


07 


F 8 8 


28 


G5E2 


07 


0F88 


28 


5EA 


07 


OF 88 


28 


5EA 


07 


0F88 



40 7 7 

407 8 
4079 
40 3 
4031 
403 2 
40 33 
4084 
4085 
40 3 6 
4037 
4088 
4039 
4090 
4091 
4092 

4QQ3 

409 4 
4095 
409 6 
409 7 
40^8 

409 9 
4100 
4101 
4102 
4103 
4104 

410 5 
410 6 
410 7 
4108 
410 
41 1 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
412 5 
4126 
4127 
412 8 
■4129 
4130 
4131 
4132 
4133 
4134 



ALGOL W COMPILER - PASS 1 & 2 

COMMENT <REL l)P> :: = > = 

B EG I N 

RO : = <s)GT EQ ; V L ( R8 ) :=R ; 

END; 

COMMENT <EQL 0P> :: = = ; 

BEGIN 

RO := at QUA L; Vl(R8): = P.O; 
END; 
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143 



144 



COMMENT 
B EG I N 

RO := 3UNEQ; 

end; 



<EQL 0P> ::= NOT 
VKR8J :=R0; 



145 



COMMENT 
BEGIN 

RO := 0; 
END; 

COMMENT 
BEGIN 

RO :■= 0; 
END; 



<LEFT PAR> 
VKR8J '. 



(; 



RO; 



146 



CLEFT PAR> :J= <ST FUNC ID> i S 

STC(R0,V21(R8))S COMMENT TYPE SET TO ZERO; 

<RC OES H0> ::= <RC CL I0> <; 



147 



COMMENT 
BEGIN 

R2 i- VKR8); 

IC<RliVR<R2J) 5 COMMENT GET NUMBER OF FIELDS; 

IF Rl = THEN 

BEGIN R2 := H2 + 12; ICJ RO, TYPE (R2) ) ; 

WHILE RO = 5 DO 

BEGIN R2 := R2 + 12; Rl *= Rl + 1; IC(R0,TYPE<R2) ) S 

END; 

R2 := VKR8); STC C Rl , VRCR2 ) ) ; 

END; 

STC (R1.V2KR8) )l 
R2 :=■ R2 + 12; 
VI (R8) ;= R2; 
END; 



COMMENT POINTER TO FIELDS IN V1(J)5 
<RC DES H0> ::= <RC DES HD> <T EXP> , ; 



148 



COMMENT 
B EG I N 

IC(R0,V21(R8)); COMMENT GET NUMBER OF FIELDS LEFT; 

IF RO = 1 THEN BEGIN RO := i)FI ELDERROR; ERROR; 

END; 
RO := RO - 1; STC<R0,V21(R8H ; COMMENT DECREASE FIELD CNT; 

COMMENT POINTER TO FIELDS; 



R2 := VHR8); 

R4 2= SIMTYPEINF0(R2); 

IC(R0,SIMPLETYPE<R2)l; 

R2 := R2 + 12; VHR8) := R2; 



COMMENT STEP FIELD POINTER; 



CMVRTASSN; COMMENT TYPE CHECK AND CONVERSION; 

RO := 8R COMMA; OUTOP; 

IC(ftO,V22(R8+8)); 

IF RO = 7 THEN 

BEGIN Rl := VKR8+8); STC (R i,CONV( ROD ; 

END; COMMENT OUTPUT STRING LENGTH; 

MAXREG; COMMENT ADJUST REGISTER COUNTS. 



PL 360 COMPILATION 



28 


05F6 


07 


0F8 8 


28 


C5F6 


07 


OF 8 8 


£ 28 


C5F6 


07 


OF 8 8 


28 


5F6 


7 


OF 88 


28 


5FA 


07 


OF 8 8 


£ 28 


5FA 


07 


OF 88 


2 8 


05 FA 


07 


0F88 


28 


5 FA 


07 


0F88 


• 23 


5FE 


07 


OF 8 8 


2 8 


C5FE 


07 


OF 8 8 


28 


5FE 


07 


OF 8 8 


• 28 


5FE 


07 


0F88 


28 


06 C 2 


07 


OF 8 8 


28 


0602 


07 


OF 8 8 


• 28 


0602 


07 


0F88 


28 


C6C6 


07 


0F88 


28 


06 C A 


07 


OF 8 3 


28 


0612 


07 


OF 88 


28 


C61E 


07 


0F88 


28 


Of. 11: 


7 


OF 8 8 


28 


6 1 E 


07 


0F88 


28 


06 IE 


7 


OF 8 8 


28 


06 2E 


07 


OF 8 8 


• 23 


062 e 


07 


OF 8 8 


26 


06 2 E 


07 


OF 8 8 


20 


0*32 


07 


0F8 8 


28 


06 36 


07 


OF 8 8 


28 


06 3E 


07 


OF 8 3 


28 


064E 


07 


0F88 


• 28 


0656 


07 


0F8 8 


2 8 


06 56 


07 


0F83 


28 


06 56 


07 


0F88 


• 2 8 


C656 


07 


0F8 8 


28 


6 5A 


07 


OF 8 8 


28 


066A 


07 


F 8 8 


28 


6 72 


07 


0F88 


28 


0672 


07 


0F88 


28 


0672 


07 


OF 8 8 


^ 28 


G672 


07 


0F88 


28 


0676 


7 


OF 8 8 


2 8 


06 7 A 


07 


0F8 8 


£ 28 


06 82 


07 


OF 8 8 


28 


069 2 


07 


0F83 


28 


C69A 


07 


0F8 8 


• 2 8 


C6 9A 


7 


OF 8 8 


2 8 


069A 


07 


0F88 


28 


C6 9A 


07 


OF 8 8 


• 2 8 


069 E 


07 


0F88 


28 


C6AE 


07 


0F88 


28 


068 6 


07 


0F8 8 


28 


0686 


7 


OF 8 8 


28 


0636 


07 


0F8 8 


28 


0686 


07 


OF 8 8 


• 28 


06BA 


07 


OF 8 3 


28 


06 BE 


07 


0F88 


2 8 


06C6 


7 


0F£8 


£ 28 


06D2 


07 


0F88 


28 


06C2 


07 


0F83 



■13 5 



4136 


4 1 3 7 


4138 


4139 


4140 


4141 


4142 


4143 


4144 


4145 


4146 


4147 


414 8 


4149 


4150 


4151 


4152 


4153 


4154 


415 5 


4156 


4157 


415 8 


4159 


4160 


4161 


4162 


416 3 


4164 


4 1 6 5 


416 6 


4167 


416 3 


4169 


4170 


4171 


417 2 


4173 


4174 


4175 


4176 


417 7 


417 3 


4179 


4130 


4181 


4132 


4183 


4134 


4185 


4136 


4187 


4138 


4189 


4190 


4191 


419 2 



ALGOL W COMPILER - PASS 1 £ 2 
E ND ; 

<PROGRAM> ::= 
NEVER ENTERED. 
<STATEMENT> :: = 
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COMMENT 
NULL; 
COMMENT 



COMMENT 
NULL; 



COMMENT 
NULL; 



<BLOCK> 
SEE END OF PROGRAM; 
<STATEMENT*> ; 



PAGE 73 
149 

150 



149 
151 



<STATEMENT*> ::=<SI ST> 



<STATEMENT*> :: = <FOR CL> DO; 



152 



COMMENT 
BEGIN 

R9 := R9 + 4; COMMENT STEP OUTPUT POINTER; 

RO := SNULLST; STC <R0 f 0P(R9) ) ; 

FQRSTATEMENT; 
END; 

COMMENT <STATEMENT*> :: = <FOR CL> DO <STATEMENT*> ; 

FORSTATEMENT; 

COMMENT <STATEMENT*> ::= <WHILE CL> DO; 

BEGIN 

R9 := R9 + 4; COMMENT STEP OUTPUT POINTER; 

RO := 3NULLST; STC( R0,OP<R9) ) ; 

RO := aWHILEST; OUTOP; 

RO := 0; V34CR8) := RO; 
END; 

COMMENT <STATEMENT*> :: = <WHILE CL> DO <STATEMEMT*> 

BEGIN 

RO := aWHILEST; OUTOP; 
RO := 0; V34IR3! := RO; 

END; 

COMMENT <STATEMENT*> :: = <IF CL> ; 

BEGIN 

R9 ;= rq + 4; COMMENT STEP OUTPUT POINTER; 

RO := 3NULLST; STC ( RO, 0P<R9) ) ; 

RO :=. aiFST; OUTOP; 

RO := 0; V34(R8) := RO; 
END; 

COMMENT <STATEMENT*> ::= <IF CL> <STATEMENT*> ; 

BEGIN 

RO := aiFST; OUT op; 

RO : = 0; V34IR8) -: = RO; 
END; 

COMMENT <STATEMENT*> :: = <IF CL> <TRUE PART> ; 

BEGIN 

R9 := R9 + 4; COMMENT STEP OUTPUT POINTER; 

RO := 3NULLST; STC ( RO, 0PFR9) } ; 

IFTHENSTATEHENT; 
E ND ; 



153 
154 



155 



156 



157 



158 



159 



PL360 COMPILATION 



ALGOL W COMPILER - PASS 1 £ 2 
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28 


06 D2 


07 


0F88 


28 


0602 


7 


OF 8 8 


28 


06 E2 


07 


OF 8 3 


2 8 


Q6E2 


07 


OF 8 8 


28 


06E2 


07 


OF 8 8 


28 


06 E8 


07 


0F8 8 


28 


06 F 2 


07 


0F8 3 


23 


06FE 


07 


OF 8 8 


28 


06 FE 


07 


OF 8 8 


2 3 


06 FE 


07 


OF 8 8 


28 


06FE 


07 


OF 8 8 


28 


OTOE 


07 


0F88 


28 


7 OF. 


07 


0F88 


28 


07CE 


7 


OF 8 8 


28 


712 


07 


0F88 


2 8 


G"'12 


07 


OF 8 8 


23 


712 


07 


OF 8 8 


28 


7 1 6 


07 


0F8 8 


28 


7 IE 


07 


0F88 


28 


CUE 


07 


OF 8 8 


28 


71E 


07 


0F83 


28 


7 IE 


07 


OF 8 8 


23 


72 A 


07 


OF8 8 


28 


C72A 


07 


0F83 


28 


C7 2A 


07 


OF 8 8 


28 


72 A 


07 


0F8 3 


2 8 


072 £ 


07 


OF 8 8 


28 


73 A 


07 


OF 38 


28 


G73E 


07 


0F88 


2 8 


C 746 


07 


0F8 8 


28 


746 


07 


OF 8 8 


28 


7 46 


07 


0F38 


28 


7 4 6 


07 


OF 3 8 


28 


Q7 4A 


07 


OF 88 


28 


7 56 


07 


OF 8 8 


23 


C766 


07 


OF 8 8 


28 


7 6 E 


07 


0F88 


28 


C76E 


07 


0F8 8 


28 


76E 


07 


OF 8 3 


28 


076E 


07 


OF 8 8 


28 


7 72 


07 


OF 8 8 


2 8 


€77 E 


07 


OF 8 8 


28 


Q78E 


07 


OF 8 8 


23 


78E 


07 


OF 3 8 


28 


C7 8E 


07 


OF 8 8 


2 8 


078E 


07 


0F8 8 


28 


C79 2 


7 


OF 8 8 


2 8 


C79E 


7 


OF 8 8 


28 


7AE 


07 


0F88 


28 


78A 


07 


OF 8 8 


28 


G7CA 


07 


0F8 3 


28 


C7CA 


07 


0F88 


28 


Q7CA 


07 


OF 8 8 


28 


07CA 


07 


0F88 


2 8 


G7CE 


07 


OF 8 8 


28 


0702 


07 


Of 8 3 


28 


07D8 


07 


0F88 


2 3 


C7F2 


07 


OF 8 8 



410 3 


419 4 


419 5 


4196 


419 7 


4.19 8 


4109 


4200 


420 1 


420 2 


4203 


4204 


420 5 


420 6 


420 7 


4208 


4209 


4210 


4211 


4212 


4213 


4214 


4215 


4216 


4217 


4218 


4219 


422 


4221 


4222 


422 3 


422 4 


422 5 


4226 


4227 


422 


4229 


423 


4231 


423 2 


4233 


4234 


423 5 


4 23 6 


4237 


4288 


4239 


4240 


4241 


4242 


4243 


4244 


4245 


4246 


4247 


424 8 


4249 


4250 



comment <statemfnt*> ::= <if cl> <truf part> <stat enent*>; 
ifthenstatement; 

comment <statement*> ::= <case seq> end 

BEGIN 

R9 := 389(4); RO := dNULLSTj STC <R0 ,0P (R9 ) ) ; 
CASESEQEND; 

END; 



160 



COMMENT <STATEMENT*> ::= <CASE SEQ> <STATEMENT> 

CASESEQEND; 



END J 



COMMENT 
NULL; 



<SI ST> ::= <8L0CK> ; 



COMMENT 

BEGIN . 

RO := OJ V34CR8) 
END; 



<SI ST> ::= <T ASS ST>; 

= RO; 



161 



162 



163 



COMMENT <SI ST> J:= <T FUNC DES>; 
BEGIN RO := 0; V34 1R8) : = RO; 

end; 

COMMENT <SI ST> ::= GOTO <LA8EL ID> ; 
BEGIN 

R9 := 3B9(4); RO := 3G0T00 jSTC (RO, OP (R9I) ; 

V5(R8) :=R9; 

RO := 0; ¥34 (R8) := RO; 
END; 

COMMENT <ST ST> ::- <ST PROC HD> <T EXP> }; 
BEGIN 

RESULT; 

RO := 3APPAREN; OUTOP; 

RO := 0; V34IR8) := RO; 
END; 



164 



165 



166 



COMMENT <8L0CK> :: = <8LCCK80DY> END J 

BEGIN 

BLOCKEXITs 

RO : = 3ENUD; OOTID; 
END; 

COMMENT <BLDCK> ::= <BL0CK300Y> <STATEMENT> END; 
BEGIN 

BLOCKEXIT; 

RO := 3C0MMA; OUTOP; 

CARDOUT; 

RO := 3ENDDJ OOTID; 
END; 

COMMENT <8L0CKB0DY> ::= <BLOCKHEAD> ; 

BEGIN 

R3 := V2(R3) I 

IF R3 -»= THEN 

BEGIN RO := 3BBB; OUTtO; R3 := R9 - OUTBASE; V1CR8) := R3J 

Rg := R9 «■ 4; RO : = iNULLST; STCf RO t OP<R9) ) ; CARDOUT; 



167 



168 



16<5 



PL 360 COMPILATION 


2 8 


8 0A 


07 


0F88 


28 


81A 


07 


OF 8 8 


£ 28 


■0 82 4 


07 


OF 8 8 


28 


824 


07 


OF 8 8 


28 


C8 34 


07 


OF 8 3 


% 28 


940 


07 


0F88 


28 


84C 


07 


OF 8 3 


28 


C84C 


07 


0F88 


^ 28 


C 8 56 


07 


0F38 


2 8 


C8 5A 


7 


OF 8 8 


28 


C85A 


07 


0F88 


2 3 


C85A 


07 


OF 88 


28 


0S5A 


07 


OF 6 8 


28 


8 5A 


07 


0F83 


# 2 8 


C3 5E 


07 


OF 8 8 


28 


3 56 


07 


OF 88 


28 


3 5 E 


07 


0F8 8 


• 28 


C86 2 


07 


0F88 


28 


8 72 


07 


0F88 


2 8 


CS7E 


07 


0F38 


• 28 


C8 7E 


07 


OF 8 3 


28 


8 7 E 


07 


0F83 


28 


C87E 


07 


0F88 


2 8 


0882 


07 


0F88 


28 


0892 


07 


0F88 


2 a 


C892 


07 


OF 8 8 


28 


8 92 


07 


OF 8 8 


28 


0892 


07 


0F38 


28 


C8 96 


07 


0F8C 


% 2 8 


C89E 


07 


F 8 C 


28 


08AA 


07 


0F8C 


2 8 


8AE 


07 


0F8C 


% 28 


03B2 


07 


0F8C 


2 3 


C8B6 


07 


0F8C 


28 


C8C2 


07 


0F8C 


% 28 


8 CO 


07 


0F8C 


28 


C 81)4 


07 


0F8C 


28 


081:4 


07 


0F8C 


• 28 


O8F0 


07 


0F8C 


28 


Q8FQ 


07 


0F8C 


28 


C8F4 


07 


0F8C 


• 28 


C8FC 


07 


0F8C 


28 


09 8 


07 


0F8C 


28 


0914 


07 


0F8C 


% 28 


0918 


07 


0F3C 


28 


924 


07 


0F8C 


28 


0.930 


07 


0F8C 


# 28 


093 


07 


0F8C 


28 


09 34 


07 


0F8C 


28 


093C 


07 


0F8C 


% 28 


09 40 


07 


0F8C 


28 


09 40 


07 


0F8C 


28 


0949 


07 


0F8C 


£ 28 


09 50 


07 


0F8C 


28 


9 50 


07 


0F8C 


28 


C 9 54 


07 


0F8C 


28 


09 5A 


07 


0F8C 


28 


09.8 E 


07 


0F3C 



ALGOL W COMPILER 
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425 1 

42 52 
42 53 
4254 
42 5 5 
42 5 6 
4257 
4258 
4259 
4260 
4261 
4262 
4 263 
4264 

426 5 
426 6 
4267 
4268 

426 9 
4 270 
4 27 1 

427 2 
4273 
4274 
427 5 
4276 
42 77 
42 7 8 
4279 
4280 
4281 
4282 
4233 
4284 
42 8 5 
42 86 
4287 
4288 
4289 
429 
4291 
429 2 
429 3 
429 4 

429 5 
4296 
4297 
4293 
4299 
4300 
4301 
4 302 
4303 
4304 
4305 
4306 
4307 

430 8 



R3 := BNC SHLL 1; R2 : = BLENGTHLR3); R3 := NP0INKR3)! 

R4 := ORELAO; R2 := R2 + R3 -12; 

FOR R3 := R3 STEP 12 UNTIL R2 DO 

BEGIN R5 := TYPES* R3); IF R5 = #209 THEN 

BEGIN R4 := R4 + 3 SHRL 2 SHLL 2; 

R5 := IDLOC2<R3) + R4 ; I0L0C2(R3) := R4; R4 i- R5 ; 

END; 

end; 

OREL AD := R4j 
END; 



END; 

COMMENT 
NULL; 



<BLOCKBODY> 



:= <BL0CK800Y> 



• > 



170 
171 



= <BL0CK30DY> <STATEMENT> 



• » 



:= <BLOCKBODY> <LABEL OEF> 



C OH M E NT < B L C K BO D Y> 
BEGIN 

RO := aCOMMAj OUT OP; 

CARDOUT; 

END; 

COMMENT <BLOCKBODY> 

BEGIN 

RO .:= aCOMMA; OUT OP; 

END; 



COMMENT <3L0CKHEAD> ::= BEGIN ; 
BEGIN INTEGER R1SAVE; 

R3 := DRELAD; V34CR8) := R3 ; 

BLOCKSTEP; COMMENT STEP BM, LEAVE NEW BNC IN RiJ 

Rl := Rl SOLA I; COMMENT INDEX TO BLACKLIST; 

R2 := BLENGTH(Rl); COMMENT R2 CONTAINS LENGTH OF NAM ET ABLE; 
Rl := NPOINT (Rl); COMMENT Rl POINTS TO NAMETABLE; 
R8 := R8 SHRL 3; IC ( RO, S (R8-1) ) ; R8 := R8 SHLL 3; 
IF R2 ~*= OR RO = ENOFILE THEN 
BEGIN R3 := TYPES (Rl); 

IF R3 = #0100 AND RO -»= ENDFILE THEN 
BEGIN R4 := 0; V2JR8) := R4; GOTO DONE; 
END ELSE 
BEGIN 

IF RO -> = TPRQCHD THEN 

BEGIN R3 := VARORIGIN+4; VARORIGIN : = R3; 
ORELAO := R3; R3 := HN-l; 
HH := R3 ; 

IF R3 < = 5 THEN BEGIN RO := aHIERARCHYERROR; 

ERROR; 
END; 
R3 3= #FF; 
END ELSE R3 : = #F; 
V2CR3) ; = R3; 

end; 

END ELSE 

BEGIN R4 := Oj V2(R8) := R4; GOTO DONE; 

END; 
R4 := DRELAD; 
WHILE R2 > DO 
BEGIN ICCROiSIMPLETYPEiRll) ; 

IF RO = 9 THEN 



172 



173 
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28 


09 66 


07 


0F8C 


2 8 


C5 76 


07 


0F8C 


28 


C9 7C 


07 


0F8C 


28 


09 8 3 


7 


0F8C 


2 8 


C9 8C 


07 


0F8C 


2 8 


G5 8C 


07 


OF 3C 


28 


0990 


07 


0F8C 


28 


C99 8 


07 


0F8C 


28 


09A0 


07 


0F8C 


28 


09 A 6 


07 


0F8C 


28 


09 A E 


07 


0F8C 


28 


09 B 8 


7 


0F8C 


28 


9U0 


07 


0F8C 


28 


09D8 


07 


0F8C 


28 


09 CC 


07 


QF8C 


2 8 


09 EO 


07 


0F8C 


28 


G9E0 


07 


0F8C 


28 


09 EO 


07 


0F8C 


28 


09E8 


07 


0F8C 


28 


09EC 


07 


GF8C 


28 


09 FO 


07 


0F8C 


28 


Q9F8 


07 


0F8C 


28 


0A04 


07 


0F8C 


28 


0A1.E 


07 


0F8C 


28 


0A2 6 


07 


0F8C 


28 


0A2E 


07 


0F8C 


2 8 


GA2E 


07 


0F8C 


28 


0A2E 


07 


0F8C 


28 


0A2E 


07 


0F8C 


28 


0A32 


07 


0F8C 


28 


0A32 


07 


0F8C 


28 


GA32 


7 


0F8C 


28 


0A36 


07 


0F8C 


28 


0A36 


07 


0F8C 


28 


0A36 


07 


0F8C 


28 


CA3A 


07 


OF 8C 


28 


0A4A 


07 


0F8C 


2 


0A4A 


07 


0F8C 


28 


QA4A 


07 


0F8C 


28 


0A4A 


07 


0F8C 


28 


OME 


07 


0F8C 


28 


0A5E 


07 


0F8C 


28 


GA5E 


07 


0F8C 


28 


0A5E 


07 


0F8C 


28 


0A5E 


07 


0F8C 


28 


QA62 


07 


0F8C 


28 


QA 72 


07 


C-F8C 


28 


0A7 2 


C7 


0F3C 


28 


OA72 


07 


0F8C 


28 


0A72 


07 


0F8C 


28 


0A76 


07 


0F8C 


28 


0A76 


07 


0F8C 


28 


0A76 


07 


0F8C 


28 


0A7A 


07 


0F8C 


28 


OA82 


7 


0F8C 


28 


0A9E 


07 


0F8C 


28 


OA.AA 


07 


0F8C 


2 8 


OAAE 


07 


0F8C 



4 309 


4310 


43 1 1 


4312 


4313 


4 3 1 4 


4315 


4316 


4317 


4318 


4319 


4 320 


432 1 


4322 


4323 


4324 


4 32 5 


4326 


4327 


4 32 8 


432 9 


4330 


4331 


4332 


4333 


4334 


4335 


433 6 


433 7 


4338 


4339 


4 340 


4341 


4342 


4343 


4344 


4345 


4346 


4347 


4 348 


4349 


4350 


435 1 


435 2 


4 35 3 


4354 


4 35 5 


4356 


4357 


4358 


4359 


4360 


436 1 


436 2 


4363 


4364 


4 36 5 


4366 



DONE: 



BEGIN REFBIND; IC < RO , TYPE < Rl ) ) ; 
IF RO = THEN 
[JEGIN R4 := h'4 + 3 AND #FFFC; I0L0C2<RI) s= R4; R4 := R4+4J 

END; 

END; 
IC(RO f TYPE(Rl) ); 

IF RO = PP.GCEDURETYPE THEN 
BEGIN R3 := TYPEINFO(Rl) SHLL 2; 
IF R5 i= THEN 

BEGIN R1SAVE := Ri; Rl := NP0INT(R5); R5 := BL£NGTH(R5)J 
WHILE R5 > DO 
BEGIN IC<ROiSIMPLETYPE(Rl))j IF RO = 9 THEN REFBIND; 

Rl := Rl + 12; R5 s= R5 - 12; 
END; 

Rl : = Rl SAVE? 
ENDS 
END; 

Rl := Rl + 12; R2 := R2 - 12; 
END; COMMENT END OF WHILE STATEMENT; 

DRELAD := R4; 

R9 :■= R9 + 4; RO s= 3BEGINN; 
Rl := BMC SHLL 11; P(R9) := Rl; 

STC<R(),0P{R9) ); CARDOUT; Rl := R9 - OUTBASE; VUR8) := Rl; 
R9 := R9 + 4; RO := 3NULLST; 
STC(R0,0P(K9) ); V5CR8) : = R9; 
END; 

COMMENT <BL0CKHEAD> ::= BEGIN PARALLEL; 
NULL; COMMENT # * **** ^****-; 



COMMENT 
NULL; 



<8L0CKHEAD> :*= <BLQCKH£AD> <S I VAR DO 



<BLOCKHEA0> : : = <SLOCKHEAD> <ARRAY DO 



174 



175 



176 



COMMENT 
BEGIN 

RO := 3C0MMA; OUT OP; 
END; 

COMMENT <BLOCKHEAD> 

BEGIN 

RO 5= 3C0MMA; OUTOP; 
END; 

COMMENT <BLOCKHEAO> 

BEGIN 

RO := 3C0MHA; OUTOP; 
END; 



• t 



177 



:=<8L0CKHEAD> <PROC DECL> 



178 



:=<BLOCKHEAD> <RC CL DO 



* » 



COMMENT 
NULL; 



<BLOCKHEAD> 



<LABEL DEF> 



::= <8L0CKHEAD> <FIL£ 0C> 



<I0> 



179 



180 



COMMENT 
B EG I N 

Rl := V11R8J; V1CR73 s= Rl; 

DECLARETESTJ RO := aiD; OOTID; 

R2 := LABELADDR; IDL0C2<RL) := R2; R2 : = R2 + 4; 

L.ABELADDR := R2; 

R2 ■:= HM; TYPEINF0CR1I := R2; 
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28 


GAB 6 


07 


0F8C 


28 


OABA 


07 


0F8C 


28 


0AC2 


7 


0F8C 


28 


0AC6 


07 


0F8C 


28 


OACE 


7 


0F3C 


26 


DACE 


07 


0F8C 


2 8 


OACE 


07 


CF8C 


28 


OACE 


07 


0F8C 


28 


OAOE 


07 


0F8C 


28 


OADE 


07 


0F8C 


28 


OACE 


07 


0F8C 


28 


OAE2 


07 


0F8C 


28 


OAE2 


07 


0F8C 


28 


OAEE 


07 


OFSC 


28 


0BC6 


07 


0F8C 


28 


08 06 


07 


0F8C 


28 


0BC6 


07 


0F8C 


28 


08 06 


7 


0F8C 


28 


OBOA 


7 


0F8C 


28 


OS1A 


07 


CF8C 


28 


OBI A 


07 


0F8C 


28 


OfilA 


07 


0F8C 


28 


oaiA 


07 


0F8C 


28 


08 IE 


07 


0F8C 


28 


826 


07 


OFSC 


28 


0B32 


07 


0F8C 


28 


0B36 


07 


0F8C 


28 


0E36 


07 


0F8C 


2 8 


0836 


07 


0F8C 


28 


OB 3 6 


07 


OF 8C 


28 


83 A 


7 


0F8C 


2 8 


846 


07 


0F8C 


28 


08 4E 


07 


0F8C 


28 


CBS A 


07 


0F8C 


28 


0862 


07 


0F8C 


Z8 


B 6 2 


7 


0F8C 


2 8 


0B62 


07 


0F8C 


28 


0862 


07 


OF 8C 


28 


0S66 


07 


0F8C 


28 


0872 


07 


0F8C 


28 


OB82 


07 


0F8C 


28 


0B82 


07 


0F8C 


28 


0B82 


07 


0F8C 


23 


OB 8 2 


07 


0F8C 


28 


886 


07 


CF8C 


28 


GB92 


7 


OFSC 


28 


089 E 


07 


0F8C 


28 


OBAE 


07 


OFSC 


28 


OBAE 


07 


0F8C 


28 


OBAE 


07 


OFSC 


28 


OBAE 


07 


0F8C 


28 


0BB2 


07 


0F8C 


28 


6 86 


07 


OFSC 


28 


OBBE 


07 


OFSC 


28 


08CE 


07 


OFSC 


28 


OBCE 


07 


OFSC 


28 


OBI36 


07 


OFSC 


28 


0BE6 


07 


0F8C 



4367 
4J6 8 
4 369 
4 370 
4 3 71 
4372 
4373 
4374 

437 5 
43^6 
4377 
4378 
4379 

438 
4381 
4382 
4383 
43 84 
4385 
4 386 
4 38 7 

438 8 
4389 
4390 

439 1 
439 2 
4393 
4394 
4 39 5 
4 39 6 
4397 
439 8 

439 9 
4400 
4401 

440 2 
4403 
4404 
440 5 
4406 
440 7 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
442 
4421 
4422 
4423 
4424 



HO := aLABELCOLUN; 
R9 : = h) B9 ( 4 } ; ST C ( RO , OP ( R9 ) ) ; 
V5(R8) ;=R9; 

R2 :■= SMC; IDLUCliRl) := R2; 
END; 



COMMENT <T ASS ST> 
ASSIGNMENT; 



<T VAR> := <T EXP*> 



181 



182 



COMMENT <T ASS ST> ::= <T VAR> := <T ASS ST> ; 
BEGIN 

COMMENT MULTIPLE ASSIGNMENTS FORCED TO RIGHT; 

IC(R0t0P(R9)); RO i= RO OR #90 J STC( RO, OP (R9) ) J 

ASSIGNMENT; IC< R0,0P(R9) ) ; RQ:=RO OR #80; STCtRO, 0P<R9) J J 
END; 

COMMENT <TRUE PART> :s= <SI ST> ELSE J 

BEGIN 

RO := aUJ; R9 := 389(4); STC< RG t 0P(R9 ) ) ;. V5(R8):=R9j 

END; 

COMMENT <TRUE PART> : := ELSE ; 
BEGIN 

RO := 3NULLST; STCi RO ,0P t R9 + 4) > ; 

RO : = aUJ; R9 := R9 + 8; STC < RO , 0PIR9 ) ); 

V5(R8) := R9; 

end; 

COMMENT <CAS£ SEQ> ::= <CASE CL> BEGIN J 
BEGIN 

CARDOUT; 

RO := 0; STCCR0,V21(R8)) J COMMENT INITIALIZE COUNT; 

Rl 2 = BN + 2; BN -= Rl; COMMENT STEP BN ; 

R2 := BNC; BLOCKL IST2 ( Rl ) s= R2; COMMENT CHAIN IN 8L0CKLST2; 

end; 

COMMENT <CASE SEQ> ::= <CASE SEQ> <STATEMENT> ., ; 
BEGIN 

IC(R0,V21 (R8)}; RO:=PO+1J STC i RO ,V21 ( R8 )) ; 

RO := auj; outop; 
END; 



183 



184 



185 



186 



187 



• » 



COMMENT <CASE SEQ> :: = <CASE SEQ> 
BEGIN 

IC(R0,V21(R8H ; RO:=RO+l; STC (R0,V21< R8M ; 

R9 := 3B9(4); RO := 9NULLST; STC<RO f 0P(R9) ) ; 

RO : = 3UJJ OUTOP; 
END; 

COMMENT <FOR CL> : 5= <FOR HEAD> <ST£PUNTIL> <T EXP> 

BEGIN 

IC(Rl t V22<R7) ).; 

IF Rl -•= 1 THEN 

BEGIN RO := 3TYPEERR0R; ERROR; 

END; 

RO :-= aSTEPUMTIL; R9 := R9 + 4; 

STCCR0»OP(R9) ) ; Rl := V5IR8+8) - OUTBASE; P0INTER(R9) '.= Rl J 

Rl := V1CR8); BNC := Rl 5 RO 5 = 0; V1(R8):=R0; 



188 
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28 


0BF6 


7 


0F8C 


28 


0C0 A 


07 


0F8C 


28 


OCCA 


07 


0F8C 


28 


CCCA 


07 


OF 8C 


28 


oca a 


07 


0F8C 


2 8 


CCCE 


07 


0F8C 


28 


DC IE 


07 


0F8C 


28 


GC26 


07 


0F8C 


28 


0C2 6 


07 


0F8C 


28 


0C2 6 


07 


0F3C 


2 8 


0C2 6 


07 


0F8C 


28 


0C2A 


07 


0F8C 


28 


0C2E 


07 


0F8C 


28 


0C46 


07 


0F8C 


28 


0C56 


07 


0F8C 


Z8 


OC5E 


07 


0F8C 


28 


0C5E 


07 


0F8C 


2 8 


GC5E 


07 


0F8C 


28 


0C5E 


07 


0F8C 


28 


0C6 2 


07 


0F8C 


28 


0C66 


07 


0F8C 


2 8 


0C7E 


07 


UF8C 


28 


0C7E 


07 


0F8C 


2 8 


OCdE 


07 


0F8C 


2 8 


QC9A 


07 


0F3C 


28 


0C9A 


07 


0F8C 


28 


0C9A 


07 


0F8C 


28 


0C9A 


07 


0F8C 


28 


0C9E 


07 


0F8C 


28 


0CA6 


07 


0F8C 


28 


OCA 6 


07 


0F8C 


28 


0CA6 


07 


0F8C 


28 


0CA6 


07 


0F8C 


28 


OCAA 


07 


0F8C 


28 


OCAE 


07 


0F8C 


28 


OCC6 


07 


0F8C 


2 8 


0CD6 


07 


0F8C 


28 


0CC6 


07 


0F8C 


2 8 


0CD6 


07 


0F8C 


28 


GCD6 


07 


0F8C 


28 


OCCA 


7 


0F8C 


28 


0CF2 


07 


0F3C 


28 


0006 


07 


0F8C 


28 


0D12 


07 


0F8C 


28 


0D1A 


07 


0F8C 


28 


0D2A 


07 


0F8C 


28 


0032 


07 


0F8C 


28 


0042 


07 


0F8C 


28 


004 2 


07 


0F8C 


28 


0D42 


07 


0F8C 


28 


0042 


07 


0F3C 


28 


0C46 


07 


0F8C 


28 


0D4A 


07 


0F8C 


28 


00 52 


07 


0F8C 


28 


0E62 


07 


0F8C 


28 


0D62 


07 


0F8C 


28 


0D6A 


07 


0F8C 


28 


CC6A 


07 


0F8C 



442 5 
4426 
442 7 
442 8 

442 9 
4430 
4431 

443 2 
443 3 
4434 
443 5 
4436 
443 7 

443 8 
4439 
4440 

444 1 
4442 
4443 

444 5 
4446 

444 7 
444 1 
44 4 V 

445 
445 1 
445 2 
4453 
4454 
445 5 
445 6 
445 7 
445 8 

445 9 
4460 

446 1 
4462 
4463 
4464 
4465 
4466 
446 7 

446 8 
4469 

447 
4471 
4472 
447 3 
4474 
44 7 5 
4476 
4477 

447 8 
4479 

448 
44 3 1 
448 2 



RO := aFORCL OR #80; 

end; 



<FOR CL> 



OUT OP ; 
= <FOR HEAD>; 



189 



COMMENT 
BEGIN . 

Rl :■= VI (R8); 8NC := Rlj RO := 1; VHR8I := RO; 

RO := tfENDFORLIST; STUROi 0P( R9 ) ) ; 

END; 

COMMENT <FOR CL> ::= <FOR LIST> <T EXP> ; 

BEGIN 

IC(R0»V22(R7) ); 

IF RO -.= 1 THEN BEGIN RO := 3TYPEERR0R; 
RO := 3EN0F0RLIST; OUTOP; 
Rl := VI (R8); BNC := Rl; 

END; 



190 



ERROR? ENOJ 



191 



<FOR> 



<T EXP*> 



COMMENT <FOR HEAD> :: = 

BEGIN 

IC(R0 f V22<R7) ) ; 

IF RO -»= 1 THEN BEGIN RO := aTYPEERROR; ERROR; 

E NO ; 
RO := 3AC0L0NEQ; REGPATH; 

OUTOP ; 
end; 

COMMENT <FOR LIST> :: = <FOR HEAD> , ; 

BEGIN 

RO := 3F0RLIST; ST C( RO ,0P ( R9 ) ) I 
END; 

COMMENT <FOR LIST> :: = <FOR LIST> <T EXP> , 

BEGIN 

IC(R0,V22{R8+8) ); 

IF RO -.= 1 THEN BEGIN RO := aTYPEERROR; ERROR; 
RO := aFORLIST; OUTOP; 
END; 

COMMENT <FOR> :: = FOR <ID> ; 

BEGIN 

BLQCKSTEP; OECLARETEST; 

Rl -:= V1CR8); R4 := OREL AD + 3 SHRL 2 SHLL 2% 

IDL0C2(R1) := R4; R4 := R4 + 4; DRELAD := R4| 

R4 := HN; IDL0CKR1) := R4; 

RO := 3CUNIDJ OOTID; 

RO := 0; V34CR8) := RO; COMMENT SET REGISTER COUNTS; 

Rl := BMC; VKR8) := Rl; Rl := BL0CKLIST2CR1 J ; BMC := Rl; 
END; 



192 



193 



END: 



194 



195 



<STEPUNTIL> 



:= STEP <T EXP> 



COMMENT 
BEGIN 

IC(Rl,V22<R8+8)); 

IF Rl -»= 1 THEN 

BEGIN RO := aTYPEERROR; ERROR; 

END; 

F01 := VCR8 + 8); V<R8) := F01; 
END; 



UNTIL; 
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PL360 COMPILATION 



28 


0D6A 


07 


0F8C 


28 


0C6 A 


07 


0F8C 


28 


0D6E 


07 


0F3C 


28 


CD7E 


07 


0F8C 


23 


CD7E 


07 


0F8C 


23 


0D7E 


07 


0F8C 


28 


007 E 


07 


0F8C 


28 


00 82 


07 


0F8C 


28 


0D86 


07 


0F8C 


2 8 


0D9E 


07 


0F8C 


28 


OOAA 


07 


OF 8C 


28 


00 86 


07 


0F8C 


28 


0DC2 


07 


0F8C 


28 


OCCA 


07 


0F8C 


28 


COCA 


07 


0F8C 


28 


ODCA 


07 


0F8C 


28 


OCCA 


07 


0F8C 


2 8 


ODCE 


07 


0F8C 


28 


ODD A 


07 


0F8C 


28 


C A 


07 


0F8C 


28 


00 DA 


07 


0F8C 


28 


ODOA 


07 


0F8C 


28 


ODDE 


07 


0F3C 


28 


ODEA 


7 


0F8C 


28 


ODEA 


07 


OF 8C 


28 


OCFA 


07 


0F8C 


28 


OOF A 


07 


0F8C 


28 


OOF A 


07 


0F8C 


28 


ODFE 


07 


0F8C 


28 


0EC6 


07 


0F8C 


28 


OEOE 


07 


0F8C 


2 8 


OEIE 


07 


0F8C 


28 


Of: IE 


07 


0F8C 


28 


0E2 2 


07 


0F8C 


28 


0E2A 


07 


0F8C 


28 


0E3A 


07 


0F8C 


28 


0E3A 


07 


0F8C 


28 


GE4A 


07 


0F8C 


28 


0E4A 


07 


0F8C 


28 


0E4A 


07 


0F8C 


28 


0E4A 


07 


0F8C 


28 


0E4E 


07 


0F8C 


28 


E 4 e 


07 


0F8C 


28 


0E4E 


07 


0F8C 


28 


OE5 2 


07 


0F8C 


28 


0652 


07 


0F8C 


28 


Of A 6 


07 


0F8C 


28 


OFAA 


07 


0F8C 



27 
27 



23 
23 



01DC 07 0F8C 
01 E6 07 0F8C 



4483 
4484 
4485 
4436 
4487 
4488 
44 89 
4490 
4491 
449 2 
4493 
4494 
449 5 
4496 
4497 

449 3 
4499 
4500 
4 501 
4502 

450 3 
4504 
4505 
4506 
4507 
450 8 
4509 
4510 
45 1 1 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
452 
4521 
4522 
452 3 
4524 
4525 
4526 
4527 
4 52 8 
4529 
4530 



ALGOL W COMPILER - PASS 1 £ 2 

<STEPUNTIL> ::= UNTIL; 



69.325 3 23:49 
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COMMENT 
B EG I N 

R9 := R9+41 RO := aNUMBER; STC( RO , OP (R9 )) ; V5(R8> : = R9; 

end; 

COMMENT <WHILE CL> :: = WHILE <T EXP> ; 
BEGIN 

IC<R0,V22(R8+8)) ; 

IF RO -.= 6 THEN BEGIN RO := 3TYPEERR0RJ ERROR; END; 

R9 := aB9(4); RO := aWHILEE; STC(R0,0P(R9) ); 

RO := aWHILEOP; RO := RO OR #80; R9 := R9 ♦ 4; 

STC<R0,OP(R9) J ; Rl := V5CR8+8) - OUTBASE; 

P0INTER(R9) := Rl; V5*R8) := R9; 
END; 



197 



198 



COMMENT 
BEGIN 

Rl := VUR8); 
END; 



<ST PROC HD> ::= <ST PROC ID> ( 

IC( ROtVR(Rl) ) ; V34(R8) := RO; 



1QO 



COMMENT 
BEGIN 

RESULT; 

RO := aAPCOMMAj 
END; 



<ST PROC HD> ::= <ST PROC HD> <T EXP> 
OUTOP ; 

::= <UNIT HD> <T EXP> 



200 



COMMENT <UNIT DES> 

BEGIN 

R2 := VMP.8); IC (RO, SIHPLETYPE (R2) ) ; 

IF RO -= 2 THEM 

BEGIN RO := aFILF ERROR; ERROR; 

END; 

R2 := V2<R8+8); 

IF P2 -.= 1 THEN 

BEGIN RO := 3TYPE ERROR; ERROR; 

end; 

RO : = aFILEINDX; OUTOP; 

END; 



COMMENT 
NULL; 

COMMENT 
NULL; 



<UMIT DES> ::= <FILE I D> 
<UMIT HD> :s* <F I LE ID> ( 



201 



202 



ENO; COMMENT END OF CASE ST; 

RiO := RASAVE; 

END; COMMENT END OF LEVELTHO; 



SEGMENT 28 NAME = SEG#28 



LENGTH = 1000 BASE REG = 15 



4531 LEVELTWO; 

4532 END; COMMENT END OF EXECUTES; 



0474 
€474 



0? 0F8C 
07 0F8C 



SEGMENT 27 NAME = SEG#27 

453 3 
4534 



LENGTH = 0228 BASE REG = 15 



PL360 COMPILATION 



ALGOL W COMPILER - PASS 1 £ 2 
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23 


0474 


07 


0F8C 


23 


474 


07 


OF 8C 


23 


0474 


07 


CF8C 


23 


04 74 


07 


0F8C 


23 


0474 


G7 


OF 8C 


23 


0474 


07 


0F8C 


23 


04 78 


07 


0F8C 


2 3 


04 64 


07 


0F8C 


23 


0494 


07 


0F8C 


23 


C45C 


07 


0F8C 


23 


04A4 


07 


0F8C 


23 


04 BO 


07 


0F8C 


23 


048C 


07 


0F8C 


23 


04C6 


07 


0F8C 


23 


C4D2 


07 


0F8C 


23 


04DE 


07 


0F8C 


23 


04E6 


07 


0F8C 


23 


04 E A 


07 


0F8C 


2 3 


04F4 


07 


0F8C 


23 


504 


07 


0F8C 


23 


0510 


07 


0F8C 


2.3 


518 


07 


0F8C 


23 


52 2 


07 


0F8C 


23 


528 


7 


OF 8C 


23 


52C 


07 


0F3C 


23 


0534 


07 


0F8C 


23 


5 3A 


7 


0F8C 


23 


0546 


07 


0F8C 


23 


54E 


07 


0F8C 


2 3 


0552 


07 


0F8C 


23 


556 


07 


0F8C 


23 


0556 


07 


0F8C 


23 


5 5 E 


07 


0F8C 


2 3 


0562 


07 


0F8C 


23 


5 64 


07 


0F8C 


23 


564 


07 


0F8C 


23 


C5 64 


07 


0F8E 


23 


564 


07 


OF 90 


23 


5 64 


07 


0F94 


23 


0564 


07 


OF 95 


23 


5 64 


07 


OF 95 


23 


564 


07 


0F95 


23 


564 


07 


OF 9 5 


2 3 


0564 


07 


OF 95 


23 


564 


07 


0F95 


23 


564 


07 


0F95 


23 


056C 


07 


0F95 


23 


0578 


07 


OF 95 


23 


576 


07 


OF 95 


23 


05 80 


r\~t 


0F95 


23 


C5 8G 


07 


0F95 


23 


0580 


07 


OF 9 5 


23 


05 80 


07 


OF 9 5 


23 


0584 


07 


OF 95 


23 


590 


07 


OF 95 


23 


05AO 


07 


0F95 


23 


5 AC 


07 


OF 9 5 


23 


0586 


07 


OF 9 5 



45 



?5 

\ 7 



45 
4~ 
4 : • ' :'" 
45 ' 
45 4 v; 
4541 
4542 
4543 
4544 
4 545 
4546 
4547 

454 8 
4549 
4 550 
4551 

455 2 
455 3 
4554 

455 5 
4556 
4557 
4 55 8 
4559 
4560 
4561 

456 2 
4563 
4 564 
456 5 
4566 
4567 

456 8 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 

457 8 
4579 
4580 
4581 
4582 
4533 
4584 
4 585 
4 586 
45 37 
45 3 8 
4589 
4590 
4 591 
4 592 



PRUC E D UR E I N S YM BOL I R 3 ) ; 

COMMENT INSYMBOL PUTS NEXT SYMBOL IN R6, BIT SEQUENCE 
LITERAL TABLE, NUMBER IN NUMVALUE, POINTER TO 
r<« :5!T SFOURJCE TM VAI.MF'1 



OR 
ID, 



STRING IN 
STRING, 



SHLA 8; 
= R5| 



= 3; 
+ u 



HZ := INPOINTj 

IC (R6, PROGRAM* K2 J ) J R5 : = 0; STC CR5, SIMTYPE ) ; 

IF R6 = #FE THEN BEGIN IC( R5, PROGRAM ( R2+1 )) ; R5 := R5 

IC!R5, PROGRAM! R2+2) ); CARONUMBER ' 

R2 :^ R2 + 3; GOTO L; 
END ELSE IF R6 = BITCODE THEN 
BEGIN RO := 8; STCCRO, SIMTYPE) ; R5 '. 

R4 := 3PR0GRAMIR2+1) ; R2 := R2 + R5 

LITERAL; 
END ELSE IF R6 = STRINGCODE THEN 
BEGIN RO := 7; STC! RO, SIMTYPE) ; 

R4 := 3PR0GRAMCR2+2) J 

IC( R5, PROGRAM! R2+1) ); R2 : = R2+R5+2; 

STC{R5,STRINGLENGTH); LITERAL; 
ENO ELSE IF R6 = NUMBERCODE THEN 
BEGIN IC(R5,PROGRAM(R2+D); STC < R5, SI MTYPE ) I 

IC!R0,LENGTHTABLE!R5)) ; R4 : = RO - 1% 

F23 := F23-F23; NUMVALUE : = F23; 

NUMVALUE! S): = F23; 

R5 := 3PR0GRAM(R2+2); EX! R4, MOVENUHBERI J 

R2 := R2 + R4 + 2; 
END ELSE IF R6 = I OCODE THEN 
BEGIN IC!R5,PR0GRAM(R2+in; R5 := R5 SHLA 8; 

IC!R5, PROGRAM! R2+ 2) ) ; 



R2 := R2 + 1 
VALUE := R5; 
END; 



R2 

END; 

I MP 01 NT 



R2+2 



:= R2; 



SHORT INTEGER ERSYM; 
SHORT INTEGER R EL AT 10 
INTEGER Rl POINT; 
BYTE ERRFLAG; 



PROCEDURE 
COMMENT 



FETCH 

FETCH 



(RIO) ; 

TAKES THE 



RELATION BETWEEN C ( Rl ) AND 



IT IN R4, 

Rl AND R2 



THE MATRIX AND PUTS 
USED AND DESTROYED. 
BEGIN 

ICiRlf RMAPCR1 ) ) ; IC(K2,CMAP(R2) ) 5 
Rl := Rl SHLL 6 + R2; R4 := 0; R2 

IC! R4, MATRIX CRD ) ; Rl := R2; COMMENT 
END; 



REGISTERS R 

ARE cleared; 



1 



CCR2) 

- R5 



FROM 
ARE 



:= R4; 
BITPAIR 



NOW IN R41 



PROCEDURE BACKUP (RIO); 
COMMENT BACKS UP THE INPUT 
BEGIN R2 := INPOIMT; 



STRING ONE SYMBOL 



IF R6 = IDCODE THEN R2 : = R2 - 
IF R6 = BITCODE THEN R2 := R2 - 
IF R6 = STRINGCODE THEN 
BEGIN IC(RO»STRINGLENGTH); R2 

END ELSE 



3 ELSE 
5 ELSE 

:= R2 - RO - 3 



PL360 COMPILATION 



23 


586 


07 


OF 9 5 


23 


05C2 


07 


0F95 


23 


5 DO 


CI 


OF 9 5 


23 


5D8 


07 


OF 9 5 


23 


05CC 


07 


0F95 


23 


C5D6 


07 


0F95 


23 


050E 


07 


OF 95 


23 


050E 


07 


0F95 


23 


C5DE 


C7 


OF 93 


23 


5E2 


07 


0F9 5 


23 


05E6 


07 


0F95 


23 


G5F2 


07 


OF 9 5 


23 


05FA 


07 


OF 9 5 


23 


Q6C6 


07 


OF 9 5 


23 


Q60E 


07 


OF 9 5 


23 


0616 


07 


OF 9 3 


23 


062A 


07 


OF 9 5 


23 


06 36 


07 


OF 9 5 


23 


06 3 E 


07 


0F95 


23 


6 4E 


07 


OF 95 


23 


C6 5E 


07 


0F95 


23 


G66E 


07 


OF 95 


23 


06 7 E 


07 


OF 9 5 


23 


06 86 


07 


OF 9 5 


23 


06 9 A 


07 


0F95 


23 


06AE 


07 


OF 9 5 


23 


06BA 


07 


0F95 


23 


06C 


07 


OF 95 


23 


6C8 


07 


OF 95 


23 


06 CC 


07 


OF95 


23 


0606 


07 


OF 95 


23 


06E0 


07 


0F95 


23 


06 E 8 


07 


OF 9 5 


23 


06F3 


07 


OF 9 5 


23 


708 


07 


0F95 


23 


C7C8 


07 


OF 95 


23 


0710 


07 


OF 9 5 


23 


714 


07 


0F95 


23 


0116 


07 


OF 95 


23 


071 A 


07 


OF 95 


23 


071E 


07 


OF 95 


2 3 


7 26 


07 


OF 95 


23 


072E 


07 


0F95 


23 


0732 


07 


0F95 


23 


73A 


07 


OF 9 5 


23 


073E 


07 


0F95 


23 


744 


07 


0F95 


23 


01 AC 


07 


OF 95 


23 


74C 


07 


0F95 


23 


1 54 


07 


OF 9 5 


23 


07 5C 


07 


OF 95 


23 


C7 60 


07 


0F95 


23 


7 68 


07 


OF 9 5 


23 


0774 


07 


0F95 


23 


C77 8 


07 


0F95 


2 3 


C77C 


07 


OF 9 5 


23 


7 80 


07 


0F95 


23 


C788 


07 


0F95 



4 59 3 

4 594 

459 5 

4595 
4597 

459 3 
4 59 9 

460 
460 1 
4602 
460 3 
460 4 
460 5 
4606 

460 7 
4608 
4609 

46 1 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 

462 
4621 
462 2 
4623 
462 4 
4625 
4626 
4627 
4628 

462 9 
4630 
4631 
4632 
4633 
4634 

463 5 
4636 
4637 

463 8 
4639 
4 640 

464 1 
4642 
4643 
4644 
4645 
4646 
464 7 
4648 

464 9 

465 



ALGOL W COMPILER - PASS 1 £ 2 

IF R6 = NUMBERCODE THEN 

BEGIN IC (R6,SIMTYPE) J IC ( R6 , LENGTHT ABLE ( R6 ) ) ; 

END ELSE R2 := R2 - 1; 

INPOINT := R2; 

END; 

COMMENT * * * * EXECUTION * * * * ; 



69.325 a 23:49 



R2 := R2 - R6 - 2; 
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RASAVE := RIO; 

Rll := COMMONBASE; COMME 

RESET tCOMMONFL AG); Rl : 



Rl 
Rl 
Rl 
Rl 
Rl 



OREL POINT 
SNLISTF4} 



TREEBASE; TREEORG 
INPOINT - 43; LITB 
INPOINT; INPOINTSA 
#1300; TYPES := Rl 
0; BN t= Rl; BMC : = 
:= Rl; DRELAO : 
: = Rl; CONSPOIN 



CTORG 
Rl : = 
Rl : = 
Rl : = 
Rl : = 
Rl : = 
Rl -: = 



:= Rl 



Rl 



X: 
X2 



:= Rl; LITORG 
13 SN := Rl; SMC 
4; LITPNT := Rl; 
13; HM := Rl; Rl := 
24; LA8ELA0DR := R 
1; CINFO(O) := Rl; 
0; CAODRTO) := Kl; 
MV I ( #92 , s ) ; MVI < #0 1 , S2 ) ; 
MVC( 1 5. ,TP.ANSTABLE, "012345 
MV I ( " 1 " , CARRCONT ) ; R6 : = 
RO := 0; 

IMSYMBOL; R7 : = 0; Rl 

R3 := LITBASE; MVC(3,LI 
R9 := #C01; IDL0C2 := 

3PR0CDC; STCIROiU? 
CAROMUMBER; POINTE 
ALGORITHM FOR S 
R6 ~>= ENOFILE DO 

R7 := R7 + l; 
: = R7; 
STC<R6,S<R8n; 
R8 := R8 SHLA 3; 
IC(ROtSIMTYPE); V2(R8 
R5 i- VALUE; VHR8) 

R8 := R8 SHRA 3; 
IMSYMBOL ; IC<R1 

RESET ( ERRFLAG); 
R2 := R6; FETCH 

IF R4 = GTR THEN 
BEGIN 

R8 := R8-1; IC(R4,S 



COMMENT SAVE LINK REGISTER; 

NT INITIALIZE UPPER-CORE BASE REGISTER; 

= _4; TREELINK := Rl; 

:= Rl; 

ASE := Rl; 

VE := Rl; 

; COMMENT FOR ERROR RECOVERY; 

Rl; FLAG := Rl ; TREELENGTH := Rl; 
= Rl; OUTBASE := Rl; 
TERSTACK(O) := Rl ; 
; PATCHPOINT := Rl; OUTBASE ? = Rl; 

Rl; LITINITIAL : = Rl; 

:= 12; CTPNT := Rl; 

16; VARORIGIN := Rl; 
1 * 

Rl := 6; CINF0<4) := Rl; CINF0(8) := Rl; 
CA0DRC4) : = Rl; Rl := 3; CADDRJ8) := Rl; 

HVI{« «, BUFFER); 
6789A3C0EF") ; 

o; 



RO : = 
R3 : = 
COMMENT 
WHILE 
BEGIN 
R8 



TERALTABLEf LITINITIAL) ; 

R9; 

(4)); RO := 3CAR0; STC(R0,QP(8)) i 
R{ 8):= R3; R9 := 8; V5<0) : = R9 
YNTACTIC ANALYSIS; 

COMMENT STEP I; 
COMMENT J := I ; 
COMMENT NEW SYMBOL IN PARSING S 
COMMENT STORE INFO IN VALUE ST 
) := RO; 
:= R5; 



TACK; 
ACK; 



,S(R8)); 

; COMMENT GET RELATION FROM MATRIX; 



2(R8 

THEN GOTO 



Z: 



IF R4 = EQL 
R8 := R8 + 1; 
SET(FLAG); R3 : 

I C < R3 , S { R8 ) ) ; R3 : = 

R3 := 3PRTBCR3); 
R4 := aS{R8) ; 
R2 := R7 - R8; 
TEST(FLAG); IF = 
BEGIN COMMENT 



Y* 
COMMENT 



j mm set; 



= o; 
R3 S 



HLA l; R3 := MTB(R3) ; 

COMMENT GET AODR. OF FIRST 
COMMENT GET ADDR. OF STACK; 
COMMENT I-J; 
THFN 
PRTB LOOKUP; 



PROD. ; 



PL 360 COMPILATION 



23 


C7S8 


07 


OF 95 


23 


C7 04 


07 


OF 9 5 


23 


7 9A 


07 


0F95 


23 


7A2 


07 


0F95 


23 


C7AA 


07 


OF 9 5 


23 


7 82 


07 


0F95 


23 


C7BA 


07 


0F95 


23 


7CC 


07 


0F95 


23 


07F-0 


07 


GF95 


23 


C7F4 


07 


OF 95 


23 


07 FC 


07 


0F9 5 


23 


C7FC 


07 


0F95 


23 


7FC 


07 


OF 9 5 


23 


oacc 


07 


OF 9 5 


23 


C804 


07 


OF 95 


2 3 


804 


07 


OF 9 5 


23 


804 


07 


0F95 


23 


80C 


07 


0F95 


23 


08 IC 


07 


OF 9 5 


23 


0824 


07 


OF 95 


23 


0824 


07 


OF 9 5 


23 


C626 


07 


0F95 


2 3 


033 E 


07 


0F95 


23 


846 


07 


OF 9 5 


23 


084E 


07 


OF 95 


23 


0856 


07 


0F95 


23 


C8 62 


07 


OF 95 


23 


0862 


07 


0F95 


23 


866 


07 


OF 95 


2 3 


086E 


07 


OF 95 


23 


87 A 


07 


0F95 


23 


G8 8E 


07 


0F95 


23 


89 6 


07 


0F95 


23 


8A2 


7 


0F95 


23 


8AA 


07 


OF 9 5 


2 3 


0306 


07 


OF 95 


23 


08BE 


07 


QF95 


23 


8CA 


07 


OF 95 


23 


8C2 


7 


0F9 5 


23 


080E 


07 


OF 95 


23 


08E6 


07 


OF 9 5 


23 


8F2 


07 


0F95 


2 3 


0900 


07 


OF 9 5 


23 


09 OC 


07 


OF 9 5 


23 


0914 


07 


0F95 


23 


Q91E 


07 


OF 9 5 


23 


092A 


07 


OF 9 5 


23 


0932 


07 


0F95 


2 3 


093E 


07 


0F95 


23 


56 


07 


OF 9 5 


23 


C <3 56 


07 


0F95 


2.3 


0962 


07 


OF 9 5 


2 3 


00 62 


07 


OF 9 5 


23 


096 2 


07 


QF9 5 


23 


0*562 


07 


OF 95 


23 


09 66 


07 


OF 9 5 


23 


09 6 A 


07 


OF 9 5 


23 


0982 


07 


0F95 



4651 

465 2 
4653 

4654 
4655 
4656 
4657 
465 8 

465 9 

466 
466 1 
466 2 
466 3 
4664 
466 5 
4666 
4667 

466 8 
4669 
4670 

467 1 
4672 
4673 
46 74 
4675 
4676 
4677 

467 8 
4679 
4680 
4681 

468 2 
4633 
4684 
4635 
46 36 
4687 
4 68 8 
46 39 

469 
4691 
469 2 
4693 
4694 
469 5 
4696 
4697 
469 8 

469 9 
4 700 
4 701 
4702 
4703 
4704 

470 5 
4706 
4707 
470 8 



ALGOL W COMPILER - PASS 1 £ 2 

IC(R1,B3); IF Rl -.= NOMORERULES THEN 
BEGIN IF Rl = R? THEN 
BEGIN EX (R2 f COMPARE); IF = THEN 
BEGIN RESET(FLAG); R5 := OS 

IC(R5,B3(R2+3) ); STM (Rl, R6, R 1SAVE) ; 

R7 := R7 SHLA 3; R8 := R8 SHLA 3 5 
IF R5 < 69 THEN EXECUTEl ELSE 
IF R5 < 119 THEM EXECUTE2 ELSE EXECUTE3 
LM(Rl,R6 t RlSAVE) ; 

r7 := r7 shra 3; r8 : = r8 shra 3 j 
eno; 

EMI); 

R3 : = 
GOTO z; 
end; 

end; 

TEST(FLAG) ; 

BEGIN RO := 
RESET (FLAG) 
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L: 



L2: 



• 



383 (Rl +4 J; COMMENT SET POINTER TO NEXT RULE; 



IF = THEN 

3SYNTAX ERROR; ERROR : 

; RESET(ERRFLAG); 



OR R6 = S COL CODE 
GOTO L2; 
M := 0; 
THEN 

= R4; 



OR R6= 8EGINC0DE OR R6=ENDFILE 



COMMENT MOVE INPUT AHEAD TO «.,«, «END", "BEGIN" t OR EOF; 
R8 := R7; 
IF R6 = ENOCODE 
THEN 
INPOINT; 
= FOR CODE 
R4 := BN+2 



BM 



:= R7; INSYMBOL; 
= BEGINCOOE THEN 



R7 : = 

IF R6 

BEGIN 

END; 

IC (R4, PROGRAM* R7)) J 

IF R4 - SCOLCODE THEN 

BEGIN R7 := R7 + 15 INPOINT : 

END ELSE IF R4 = ENOCODE OR R4 

BEGIN INPOINT : = R7| INSYMBOL; 

END ELSE IF R4 = IOCOOE THEN 

BEGIN R7 := R7 + 3; GOTO L; 

END ELSE IF R4 = #FE THEN 

BEGIN IC(R4,PROGRAM(R7+l) ); R4 := R4 

IC(R4,PR06RAMIR7+2)>; CARDNUMBER : = 

R7 := R7 + 3; GOTO L; 
END ELSE IF R4 = BITCODE THEN 
BEGIN R7 := R7 + 5; GOTO L; 
END ELSE IF R4 = STRINGCODE THEN 
BEGIN IC(R4,PR0GRAM(R7+1)); R7 
END ELSE IF R4 = NUMBERCODE THEN 
BEGIN IC(R4,PROGRAM(R7 + D) ; IC(R4,L ENGTHTABLEC R4) ) % 

R7 := R7 + R4 + 2; GOTO f, 
END ELSE IF R4 = ENDFILE THEN 

:= R4; R7 : = R8» GOTO L3; 
IF R4 = FORCQOE THEN 
:= BN+2; BN:= R4; R4 := OJ R7 s= R7+1; GOTO L; 






SHLL 

R4; 



8; 
R4 



:« 0; 



: = R7 + R4 + 3; 



GOTO LI 



:= R7 + l; GOTO L; 



BEGIN R6 

END ELSE 

BEGIN R4 

END ELSE 

BEGIN R7 

END; 

COMMENT MOVE STACK BACK TO "BLOCKHEAD" , "CASE SEQ", OR 

"3L0CKB0DY", RESET OUTPUT POINTER; 
R7 := 0; 
IC{R7,S(R8) ) ; 

IF R7 ->= B.HCODE AND R7 -,= BBCODE AND R7 -= CASESEQCODE AND 
R7 -.= ENDFILE THEN 



# 
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23 098A 


07 


0F95 




23 098 A 


07 


0F95 




| 23 0992 


07 


OF 9 5 




23 099 E 


07 


OF 95 




23 9A2 


07 


0F95 




| 2 3 09AE 


07 


OF 95 




23 C9 6A 


07 


OF 9 5 




23 09C6 


07 


QF95 




| 23 C9D6 


07 


OF 9 5 




23 09 DE 


07 


OF 9 5 




23 G90E 


07 


OF 9 5 




| 23 09E2 


07 


OF 9 5 




23 09 £6 


07 


0F9 5 




23 09F2 


07 


OF 9 5 




| 23 09F2 


07 


OF 9 5 




23 09FC 


07 


0F95 




23 OAOO 


07 


OF 9 5 




| 23 0*00 


07 


0F95 




23 0A04 


07 


OF 95 




23 0A12 


07 


OF 9 5 


« " 


| 23 0A1E 


07 


0F95 




23 QA1E 


07 


0F95 




2 3 0A22 


07 


OF 95 


S 4 


| 23 0A26 


07 


OF 9 5 




23 0A26 


07 


OF 9 5 




23 0A2C 


07 


OF 95 


% 


| 23 0.^20 


07 


0F95 




23 0A3C 


07 


OF 95 




23 CA4 2 


07 


0F95 


| 


| 23 QA42 


07 


0F95 




23 GA4C 


07 


OF 9 5 




23 0A54 


07 


0F95 




| 2 3 0A54 


07 


OF 9. 5 




2 3 0A5C 


07 


OF 95 




2 3 0A64 


07 


0F95 


™ 


) 23 0A64 


07 


OF 9 5 




23 OA70 


07 


OF 9 5 




23 0A78 


07 


OF95 


M\ 


| 23 0A7 8 


07 


OF 95 




23 0A84 


07 


0F95 




23 0A8C 


07 


OF 95 




| 23 0A8C 


07 


0F95 




23 0A9 8 


07 


0F95 




23 OAAO 


07 


OF 9 5 




| 23 OAAO 


07 


OF 9 5 




23 OAAC 


07 


0F95 




23 0A84 


07 


OF 9 5 




| 23 0A84 


07 


OF 95 




23 0AC8 


07 


0F95 




23 OADC 


07 


OF 95 




| 23 0AC8 


07 


0F95 




23 0AC8 


07 


0F95 




23 0AE4 


07 


OF 9 5 




) 23 0AE4 


07 


0F95 




23 0AE8 


07 


0F9 5 




23 OAEC 


07 


OF 95 




| 23 OAFO 


7 


OF 95 




23 OAFC 


07 


GF95 
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4709 
4710 
47 LI 
4712 
4 7 1 3 
4714 
4715 
4716 
4717 
4718 
4719 
472 
4721 
4722 
4723 
4724 
472 5 
4726 
4727 

472 8 
4729 
4730 
4731 
4732 
4733 

473 4 

473 5 

4736 

4/.j / 

470; 
47 ->o 

4 7 ■':- 
4741 
4742 
4743 
4 744 
4 745 
4746 
4747 

474 8 
4749 

475 
4751 
475 2 
475 3 
4754 
475 5 
4756 
4 75 7 

475 8 
4759 
4760 

476 1 
476 2 
4763 
4764 
4765 
4766 



BEGIN 

IF R7 = BNOLSTHD THEN 

BEGIN R8 := R8 SHLL 3; R2 : = V2(R8); BNC := R2; 
R8 := R8 SHRL 3; 

END ELSE IF R7 = PRQCNT THEN 

BEGIN R4 := BNC; R4 := BLOCKL IST2< R4) ; BNC := R4; 
R4 : = HN+lj HN := R4 ; 

END ELSE IF R,7 = ENOCODE THEN SET(FLAG); 

R8 5= R8 - 1; GOTO L2 ; 
end; 

TEST(FLAG); 

IF = THEN 

BEGIN BACKUP; R6 := ENOCODE; RESET{FLAGJ; 

end; 

R7 := R8 SHLL 3; R9 := V5CR7); 

R7 := R7 SHRL 3 J 
END ELSE 

BEGIN 

R7 i= R8; R3 := R3-2; IC(R2,B3); STC< R2, S (P.8)) ; 

IC<Rl t S<R8-l))S FETCH; STC< R4,S2 (R8-1 } ) ; 

END ; 
IC(R1,S<R8) ); 
GOTO X; 
END; COMMENT END OF BLOCK BEGINNING AT X2 ; 
IF R4 = THEN 
COMMENT ERROR RECOVERY; 

BEGIN RO := 3RELATI GNERROR ; ERROR; 

IF R6 -.= THEN 

BEGIN 



I c ( p. i , 3 ( : 



) ; 



7( 



I" ,r > 



■ jif 



{ i } y pj trr r» 1 ♦ 



IF Rl < PTRSTTERMTNAL THEN 
BEGIN 

IF Rl = BBCODE THEN 

BEGIN Rl := #A; GOTO L4; 

END ELSE 

IF Rl = SITYPECODE THEN 

BEGIN Rl := #2; GOTO L4; 

END ELSE 

IF Rl = PROCNT THEN 

BEGIN Rl := #6 8; GOTO L4; 

END ELSE 

IF Rl = TFUNCDES THEN 

BEGIN Rl ■:= #84; GOTO L4; 

ENO ELSE 

IF Rl = TPROCBDY THEN 

BEGIN Rl := #88; GOTO L4; 

END ELSE 

IF Rl = FORCLCQDE OR Rl = WHILECLCQDE THEN 

BEGIN Rl := #78; GOTO L4; 

END ELSE Rl := FIRSTTERMINAL; 
ENO ELSE 

IF Rl = IDCODE THEN 
BEGIN 

R7 := R7 SHLL 3; 

R8 := R8 SHLL 3; 

R6SAVE := R6; 

Rl := VI (R8); RESET! UNDECLFLAGH DECLARETEST; 

VKR8J := Rl; COMMENT RESTORE I DMO; 
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23 


08C0 


07 


0F95 




23 


0BC4 


07 


OF 05 




1 23 


oac3 


07 


OF 95 




23 


OBOE 


07 


OF 95 




23 


B 1 2 


07 


OF 95 


1 


| 23 


3 1 6 


07 


OF 95 




23 


OB IE 


07 


OF 95 




23 


00 IE 


07 


OF 95 




| 23 


OB 26 


07 


OF 95 




23 


0B2E 


07 


OF 9 5 




23 


033 A 


07 


OF 9 5 




| 2 3 


33 A 


07 


0F9 5 




23 


0B4E 


07 


OF 95 




23 


0852 


07 


0F9 5 




| 23 


00 56 


07 


0F95 


. 


23 


085C 


07 


OF 95 




23 


0B5C 


07 


0F9 5 




| 23 


0.B60 


07 


OF 9 5 




2 3 


0B6C 


07 


OF 95 


T: 


23 


OS 60 


07 


OF 95 




| 2 3 


013 6 8 


07 


OF 9 5 


■ 


23 


B 6 E 


07 


0F95 


:i 


23 


87 A 


07 


OF 9 5 


" % 


1 23 


03 8E 


07 


OF 95 




23 


0E8E 


07 


0F95 




23 


8S2 


07 


0F95 


% 


| 2 3 


0B9A 


07 


OF 9 5 




23 


0B9A 


07 


0F95 




23 


089E 


07 


0F95 




| 23 


OS A A 


07 


0F95 




23 


06 


07 


0F95 




23 


OPBC 


07 


0F95 




| 23 


OB6C 


07 


OF 9 5 




23 


OBC4 


07 


0F93 




23 


3CA 


07 


OF 9 5 




| 23 


OB DO 


07 


OF 9 5 




23 


oec4 


07 


OF 95 




23 


OB DC 


07 


0F95 




) 23 


fl E 8 


07 


0F95 




23 


OBFC 


07 


0F95 




23 


OC G 8 


07 


OF 95 




| 23 


0C0 8 


07 


C3F95 




23 


0C18 


07 


OF 9 5 




23 


0C2C 


07 


OF 95 




| 23 


0C3 3 


07 


OF 9 5 




2 3 


0C4Q 


C7 


OF 9 5 




23 


0C4 2 


7 


OF 9 5 




) 23 


OCA 2 


07 


0F95 




23 


0C48 


07 


0F95 




23 


0C5A 


07 


OF 9 5 




) 23 


0C66 


07 


0F9 5 




23 


0C7E 


07 


OF 9 5 




23 


0C7E 


07 


0F95 




| 23 


CC82 


07 


OF 95 




23 


oca 6 


07 


OF 9 5 




23 


0C86 


07 


0F95 




) 23 


0C8 6 


07 


0F95 




23 


0C86 


07 


OF 9 5 



4767 


476 8 


476 9 


4770 


477 1 


477 2 


47 7 3 


4774 


4775 


47 76 


4777 


47 78 


4779 


470 


478 1 


4782 


478 3 


4784 


4785 


4786 


4787 


4738 


4 789 


4790 


4 791. 


479 2 


4793 


4 794 


479 5 


4 796 


4797 


479 8 


4799 


480 


4801 


4802 


4303 


4804 


4805 


4306 


4 807 


4808 


4809 


4810 


4811 


4812 


4818 


4814 


4815 


4816 


4817 


4818 


4819 


4820 


4821 


4822 


4823 



L4: 



4824 



ffiW ' lWI W fll W' W'lll i WIipi^ 'W Wl i^ lllllli f WI^ ff^ Mi) 



R8 := R8. SHRL 3 J 

R7 := R7 SHRL 3 5 

MVC( 130, BUFF ERU) , BUFFER) ; 

TEST(UNDECLFLAG)S 

IF = THEN 

BEGIN Rl := #6E; GOTO L4; 

END; 

Rl := FIRSTTERMINAL + i; 
END ELSE Rl := Rl + 1; 
Rl := Rl - FIRSTTERMINAL SHLL l; Rl := EMTB(Rl); 

TESTCERRFLAG); IF = AND Rl = R1P0INT THEN Rl s= Rl + 2 J 

SET(ERRFLAG); 

IC(R4iC00ECRU ); 

WHILE R4 -i= DO 
BEGIN 

R1P0INT :•= Rl; 
CASE R4 OF 
BEGIN 

BEGIN COMMENT REDUCE; 

MVC< 15, BUFFER II ) , "REDUCTION FORCED") J 
IC(ROtOUTFLAG); IF RO >= 3 THEN BEGIN 
RO := 3BUFFER; PRINT; RO := 0; 

END; 
Rl := 0; 

R4 := GTR; GOTO X2| 
END; 
BEGIN COMMENT INSERT; 

R2 := 0; TC(R2,N0DE(R1J); ERSYM := R2i 

Rl := 0; ICIR1,S(R8)); FETCH; 

IF R4 -,= THEN 

BEGIN 

Rl := ERSYM; RELATION := R4 ; 

R2 :■= R6; FETCH; 

IF R4 -.= THEN 

BEGIN R2 := RELATION; 
IF R2 = GTR THEN 
BEGIN BACKUP; R6 :■= ERSYM; R4 := GTR; 

IF R6 = IDCODE THEN R2 := I ELSE R2 s= 0; 
STC(R2,SIMTYPE) ; R2 : = 0; VALUE := R2; 
END ELSE 
BEGIN R7 := R7+1; Rl := ERSYH; STC (Rl, SC R7») ; 
IF Rl = IDCODE THEN Rl := 1 ELSE Rl s= 0; 
R7 i= R7 SHLL 3; VI2(R7) := Rl; R7 := R7 SHRL 3; 
Rl := RELATION; STCCRl , $2 ( R7-1 )) ; 
R8 := R7; 
END; 

MVC(7,BUFFER( 14 ) , "I NSERTEO" ) ; 

R2 := ERSYM * 12S +■ METABASE; MVCU1, BUFFER* 1) ,B2) J 

IC(ROtOUTFLAG); IF RO >= 3 THEN BEGIN 

R2 := Rl; RO := 3BUFFER; PRINT; RO s= 0; Rl :* R2| 

END; 
R2 := 0; 
GOTO X2; 

emu; 

END; 

end; 

BEGIN COMMENT REPLACE; 
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m 
m 
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23 


oca a 


07 


OF 95 




23 


OC96 


07 


0F9 5 




| 23 


OCA2 


G7 


OF 9 5 




23 


OC A 3 


07 


OF 9 5 




23 


OCBO 


07 


0F95 




| 23 


OCR 6 


07 


OF 9 5 




23 


OCBC 


07 


OF 9 5 




23 


0CC4 


07 


0F95 




1 - 3 


OCD3 


07 


OF 9 5 




23 


OCCC 


07 


0F95 




23 


0CE4 


07 


OF 95 




| 23 


OCFO 


07 


OF 9 5 




23 


OCfC 


07 


0F9 5 




2 3 


OD C 2 


07 


OF 95 




| 2.3 


OD02 


07 


0F9 5 




2 3 


ODCE 


07 


OF 95 




23 


0016 


07 


OF 9 5 




| 2 3 


0016 


07 


0F9 5 




23 


0D1C 


07 


OF 9 5 




2 3 


0D2 3 


07 


OF 9 5 


'■'■■ d 


| 23 


GD2E 


07 


OF 9 5 




23 


0D3A 


07 


OF 95 




23 


005 2 


07 


0F95 




| 23 


0052 


07 


0F9 5 




23 


0056 


07 


OF 95 




23 


0D5A 


07 


0F95 




| 23 


0C5A 


07 


OF 9 5 




23 


00 5A 


07 


F 9 5 




2 3 


005A 


07 


OF 95 




| 23 


005E 


07 


0F95 




Z3 


OC64 


07 


OF 9 5 




23 


0C70 


07 


0F9 5 


% 


} 23 


00 54 


07 


0F95 




23 


00 64 


07 


OF 9 5 




23 


or? 2 


07 


0F9 5 




| 23 


0D96 


7 


OF 9 5 




2 3 


09 6 


07 


OF 95 




23 


OGAA 


07 


0F95 




) 23 


0D86 


07 


0F9 5 




23 


00 3 A 


07 


OF 9 5 




23 


OCBA 


07 


0F95 




| 23 


0DC2 


07 


OF 95 




23 


O0C2 


07 


OF 95 




23 


00C2 


07 


0F95 




| 23 


0DC6 


07 


OF 9 5 




23 


0CC6 


07 


0F95 




23 


GCCA 


07 


0F95 




| 23 


ODCE 


07 


OF 9 5 




23 


ODDE 


07 


0F95 




23 


ODEE 


07 


0F95 




} 23 


ODEE 


07 


Of 9 5 




23 


0EO2 


07 


0F95 




23 


E 1 


07 


OF 95 




| 23 


0E1C 


07 


0F95 




23 


QE23 


07 


OF 95 




23 


0E3C 


07 


OF 9 5 




| 23 


E4 3 


07 


0F95 




23 


GE4E 


07 


0F95 



4825 

482 6 
4827 

482 8 
48 29 

483 
48 31 
4332 
4833 
4334 
433 5 
4836 
4 33 7 
4338 
4839 
4840 
4841 
4842 
4 843 
4844 
4845 
4846 
4847 
4848 
4849 
4350 

485 1 
4352 
48 53 
4854 
4 355 
48 56 
4337 
4 35 8 
485-'-* 
436 
4361 
4362 
4863 
4864 
4865 
4866 
4867 

486 8 

486 9 
4370 
4871 
48 72 
4373 
4874 
4375 
4876 
4877 

487 8 
48 7 9 
438 
43 3 1 
438 2 
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R2 := 0; IC<R2,N0DE(R1) ); 
Rl :■= Oj IC(R1, SCR8-1) ); 
IF R4 -*= THEN 
BEGIN Rl := ERSYM; 
R2 := P.6J FETCH; 
-.= THEN 
Rl := ERSYM; 



ERSYM := 
FETCH; 



R2? 



RELATION := R4; 



Rl 



= I DC ODE THEN Rl 
RELATION; 

= GTR THEN 



5TC<R1,S(R8) ); 

:= 1 ELSE Rl 



:= 0; 



BACKUP; 
= R8 - 15 

Rl; 

:= R8 
SHRL 



R6 s= ERSYM; R4 := 
STC(RltSIMTYPE); 

R7 :■= R8; 



GTRJ 
Rl : = 



0; 



SHLL 3; V12CR8) := Rl; 
3; STC(R2,S2<R8-1) ); 



BY SYMBOL"); 



RO :* 01 



IF R4 
BEGIN 

IF 

R2 : = 

IF R2 
BEGIN 

R8 J 

VALUE := 

END ELSE 
BEGIN R8 ; 
R8 := R8 
END; 

MVCI2Q »8UFFERQ) , "REPLACEMENT 
R2 := ERSYM * 12S + METABASE; 
MVC(11,BUFFER(23),B2) ; 

IC(RO,OUTFLAG); IF RO >= 3 THEN BEGIN 
R2 := Rl; RO '.= aBUFFER; PRINT; Rl i= R2 J 

END; 
R2 :■= 0; 
GOTO X2; 
END; 
END; 
END; 
BEGIN COMMENT DELETE; 

MVC( 13, BUFFER (I! , "SYMBOL DELETED"); 
IC(R0,OUTFLAG); IF RO >= 3 THEN BEGIN 
RO := S BUFFER; PRINT; RO := 0; 

END; 
R8 := R8 - 1; R7 := R8; Rl := 0; ICORI, SCR 8> ) ; 
GOTO x; 
END; 
END; COMMENT END OF CASE STATEMENT; 

Rl := R1P0INT + 2; IC(R4»C00E<R1 ) H 

END; COMMENT END OF WHILE STATEMENT; 

COMMENT IF NO OBVIOUS REMEDY, STACK SYMBOL AND CONTINUE; 
R4 := EQL; GOTO X2; 
EXIT; 

ERROR RECOVERY; 



END ELSE GOTO 
END; COMMENT 

STC(R4,S2(R8) ) ; 



END GF 



L3 



END; 
ICCR0,S(1) ); 



IF RO 
BEGIN 
END; 
R9 : = 



*= BLOCKCODE OR R7 -*= 
RO := 3SYNTAXERROR5 



1 THEM 
ERROR; 



= R9 + 4; RO := aPCL; STC(RO,OP( R9 ) ) ; 
Rl i= TREELEN6TH+R9+4; TREELENGTH 5= Rl; 
Rl := P0INTERU2) AND #FFP; IDLGCi := Rl; 
Rl := P0INTERU2) AND #F0O0; POINTER! 12) := Rl; 
Rl := 85 R2 := TREEORG; CHECKSPACE; IF -.NOGO THEN 
BEGIN R3 := TREELINK; B2I0) := R3 ; TREELINK := R2; 

MVC(7,B2{4) ,'MMAIN) «) ; 
END; 



RO := 8; PO INTER (R9I := RO; 
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2 3 


CE4E 


07 


OF 95 


23 


OH 56 


07 


OF 9 5 


• 23 


0E6 8 


07 


0F9 5 


23 


CES6 


07 


0F95 


23 


QE96 


07 


OF 9 5 


• 23 


0EA2 


07 


0F95 


23 


OEB2 


07 


0F95 


23 


0EB6 


07 


OF 9 5 


23 


OE8E 


07 


0F9 5 


2 3 


OEBE 


07 


OF 95 


2 3 


OEBE 


07 


OF 95 


£ 23 


OEBE 


07 


0F95 


23 


OEBE 


07 


OF 9 5 


29 


OOOO 


07 


0F9 5 


29 


000 


07 


OF 9 5 


29 


0000 


07 


OF 9 5 


29 


0000 


07 


0F9 5 


• 29 


coco 


07 


OF 9 5 


2 9 


00 oc 


07 


OF 9 5 


29 


0016 


07 


0F95 


• 29 


00 2 C 


7 


OF 9 5 


29 


038 


07 


OF 9 5 


29 


003E 


07 


0F95 


• 2 ' 9 


04 3 


07 


OF 9 5 


29 


005A 


07 


OF 95 


29 


00 5A 


07 


OF 9 5 


£ 29 


00 5E 


97 


OF 9 5 


29 


00 68 


07 


0F95 


29 


00 7 A 


07 


OF 95 


• 29 


0C8C 


07 


OF 9 5 


29 


0092 


7 


0F95 


29 


C0A4 


07 


OF 95 


29 


COAE 


07 


OF 9 5 


2*:> 


C.-0B2 


07 


0F95 


29 


ooco 


07 


0F95 


^ 29 


CO 04 


07 


OF 95 


29 


OOCA 


07 


0F95 


29 


COOE 


07 


0F95 


• 29 


OOCE 


07 


CF95 


29 


00 DC 


07 


OF 95 


29 


00 E 6 


7 


OF 9 <5 


• 29 


0E6 


07 


OF 9 5 


29 


OOEE 


07 


OF 9 5 


29 


OOF A 


07 


OF 9 5 


4fc 29 


0104 


07 


0F95 


29 


0.10 A 


07 


OF 9 5 


29 


o 1 1 a 


07 


0F95 


9 29 


one 


07 


0F95 


29 


01 IE 


07 


OF 95 


29 


012 A 


07 


0F9 5 


29 


0134 


07 


0F95 


29 


013A 


07 


OF 9 5 


29 


0140 


07 


0F95 


% 29 


0140 


07 


OF 9 5 


29 


0140 


07 


OF 9 5 


29 


14 E 


07 


0F9 5 


£ 29 


1 5A 


07 


OF 9 5 


29 


166 


07 


0F95 
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4333 
4334 
4335 
4386 
438 7 
4338 
4889 
489 
489 1 
489 2 

489 3 
4894 
4895 
4896 
4897 
4 898 
4399 
4 900 
4901 

490 2 
4903 
4904 

.4905 
4906 
490 7 

490 8 
4909 
4910 
4911 
4912 
4913 
4914 

49 1 5 
4916 
4917 
49 1 8 
4919 
4920 
4921 

492 2 
4923 
4924 
4925 
492 6 
492 7 

492 8 
4929 
4930 
4931 
4932 
4933 
4934 

493 5 
49.36 
4937 
4938 
493 9 
4940 



R2 
RO 
IF 

Rl 
Rl 



:= 3B2U2); TREEORG := R2; 

:= 0; Rl := R9; R4 := 4; R3 := 0; ICIR3,GUTFLAG); 

R3 > 5 THEN MRITETREE; R2 : = TREEORG; R4 := 3P(R4l; MOVETREE; 



R4 '.■■ 



:= CTPNT +4; 

:= LITPNTS R3 := LITBASE; 
MOVETREE; R2 := R2 + 3 SHRA 2 
TREEORG := R2 ; 
R2 := #300; TYPES := R2; COMMENT 



aC0NSTANTTABLE(_4) ; MOVETREE; 
R4 := SLITERALTABLE; 
SHLA 2; 



RESTORE FOR PASS 3; 



BEGIN 
SEGMENT 

BEGIN 



PROCEDURE 



OUTPUT (R8) 



ARRAY 132 BYTE OUTBUF 
INTEGER TEMP SYN HEX; 



SYN BUFFER; 



PRINT; 
RO := 0; 
NAMETABLESI2E 



HVC( 130, 0UT8UFC1), OUTBUF); MVC ( 19, OUTBUF i 1) , "TOTAL TREE LENGTH IS"); 

UNPM4,2,GUTBUF(25),TREELENGTH); MVI<» " , 0UTBUFJ29) ); 
TR(3,QUT8UF(25) , TRANSTABLE ( _240 ) ); RO := aOUTBUF; PRINT; 
Rl := TREEORG - TREEBASE; TEMP := Rl; 
MVC < 2 1 , OUTBUF ( 1 ) , "TOTAL OUT PUT LENGTH IS" ) ; 
UNPKC4,2,OUTBUF(25),TEMPC2) ); MVH" », OUTBUF (29) I ; 
TR<3, OUTBUF (25) ,TRANSTABLE(_240 ) ) ; PRINT; 

COMMENT NAM ET ABLE OUTPUT; MVI ("l'S CARRCONT) ; 

RO s= 30UTBUF; MYCt 39, OUTBUF CI), OUTBUF); 

MVC(8,0UTBUFU) , "NAMETABLE") ; PRINT; 
HVC(77,0UTBUFU) ,HEADER2) ; PRINT; 
MVC(80,OUTBUF(1) , OUTBUF) ; 
HVCC63,0UTBUF(1) , HEADERS) 
MVC { 63 , OUT BUF U ) , OUT BUF ) ; 

FOR R2 := STEP 12 UNTIL NAMETABLESI2E DO 
BEGIN TEMP := R2 ; UNPKI 4, 2, OUTBUF* 4) ,TE«P(2 I ) ; 
MVH" «fOUTBUF<8)); 

TR(3,0UT8UF{4) , TRANSTABLE J_240 ) ) ; 
IC{R0»TYPE<R2>); 
COMMENT IDL0C1 TO BUFFER; 

Rl := IDL0CUR2); TEMP :=R1; UNPK.I4, 2 , OUTBUF! 14 I , TEMPI 2 I ) ; 
MVH" ",0UTBUFU8) ) ; TR ( 3, OUTBUFC 14) , TRANSTABLE (_240) ) ; 
COMMENT I0L0C2 TO BUFFER; 
IF RO = 3 THEN 

3EGIN Rl := 0; ICIRl, HI ERARCHYCR2) ) ; TEMP := Rl ; 
UNPK(2 f l,0UTBUF(21), TEMPO)) ; MVH" " ,OUTBUF( 23 ) ) ; 
TR< 1, OUTBUF < 21 ) , TRANSTA8LEI_24Q? ) ; 

MVC(5,0UT8UF{23),MASK2); IC (Rl, PROGS EG( R2 )) ; CVDIR1,DEC) ; 
ED(5,0UTBUF(23) ,D6C(5))| 
ENO ELSE 
BEGIN Rl := IDL0C2CR23 ; TEMP : = Rl; 

UNPK{4,2,0UTBUF(25) , TEMP (2) ) ; MVH" «, OUTBUF! 29) )| 
TR(3,0UTBUF(25) ,TR ANSTABLEt _240) ) ; 
MVC( 1 , OUTBUF ( 2 1 ) , OUTBUF (90 ) ) ; 
END; 
COMMENT TYPEINFO TO BUFFER; 
IF RO = OR RO = 9 THEN 
8FGIN ICtR0,VR(R2) ) ; 

MVC{5,QUT80F(40) ,MASK) 



CVD(RO,DEC) 



RO := 0; 



ED (5, OUTBUF* 40), DEC (5) ); 



MVC < 5 , OUT BUF C 50 ) , OUTBUF < 90 ) ) 
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29 


w 1 6C 


07 


OF 9 5 


29 


0178 


07 


OF 95 


29 


0180 


7 


OF 9 5 


29 


10 6 


07 


OF 95 


2 9 


0190 


07 


0F95 


29 


019E 


07 


OF 9 5 


29 


1/18 


07 


OF 9 5 


29 


01 A 8 


07 


0F95 


29 


01BA 


07 


OF 95 


29 


01C8 


07 


0F9 5 


29 


Oil) 2 


07 


OF 9 5 


29 


01D8 


07 


0F95 


2 cj 


01C8 


07 


0F95 


29 


01D8 


07 


OF 9 5 


29 


01E6 


07 


OF 95 


29 


01EC 


07 


0F95 


29 


01 EC 


07 


OF 9 5 


29 


01F0 


07 


0F95 


29 


OIF 3 


07 


0F95 


29 


0200 


07 


OF 9 5 


29 


20C 


07 


OF 9 5 


,29 


214 


07 


OF 9 5 


29 


0224 


07 


OF 9 5 


29 


02 24 


07 


0F95 


29 


022C 


07 


0F95 


29 


23 A 


07 


OF 9 5 


29 


0248 


C7 


0F95 


29 


2.54 


07 


OF 95 


29 


2 54 


07 


OF^S 


29 


0264 


07 


0F95 


29 


02 74 


a y 

W 1 


OF 95 


29 


0288 


07 


0F95 


29 


02 90 


07 


OF 9 5 


29 


02A4 


07 


OF 9 5 


29 


02 A E 


07 


0F95 


29 


C2BA 


G7 


0F9 5 


29 


02BE 


07 


0F95 


29 


02 C 8 


07 


0F95 


29 


02DA 


07 


OF 9 5 


29 


02 EC 


07 


0F95 


29 


02 F2 


07 


0F95 


29 


02F6 


07 


OF 9 5 


29 


■02 FE 


07 


0F95 


29 


030 A 


07 


OF 9 5 


29 


03 13 


07 


OF 95 


29 


322 


07 


0F95 


29 


033 


07 


OF 9 5 


29 


03 3 A 


07 


OF 9 5 


29 


C346 


07 


0F95 


29 


0352 


07 


OF 9 5 



4941 

494? 



4943 


4944 


4945 


49 4 6 


494 7 


494 8 


494 9 


49 5 


4951 


49 52 


4953 


4954 


49 55 


4956 


4957 


495 8 


4959 


4960 


4961 


4 96 2 


4963 


4 '964 


4965 


4966 


49 6 7 


496 8 


4969 


4970 


4971 


4972 


4973 


4974 


497 5 


4976 


497 7 


49 7 8 


4<579 


498 


498 1 


49 82 


49 33 


4984 


4985 


4936 


4987 


4938 


4989 


499 



END ELSE IF RO = 4 THEN 

BEGIN IC(R0,VR*R2) ) ; TEMP := RO; 

UNPK (2,1, OUT BU F ( 43 ) , T EMP * 3 ) » ; 

TR*1,0UTBUF<43) ,TRANSTABL E*_240 ) ) ; MVI*" ",OUTBUF*45) » 5 

IC(R0,RCCLNUMBER*R2) ) ; CVD*RO,DEC); MVC * 5, OUTBUF *50) , MASK) J 

ED*5,OUTBUF*5G) ,DEC*5)) ; RO := 4; 
END ELSE 
BEGIN IF RO = 3 THEN MVC ( 5,0UTBUF ( 50) ,MASK2 )ELSE 

MVC<5,OUTBUF*50) ,MASK) ; Rl := TYPE INFO* R2 ) ; 

CVD*R1,DEC) J ED*5,OUTBUF(50),DEC*5) ); 

MVC<5,OUTBUF*40),aUTBUF*90) ) ; 

end; 

COMMENT TYPE TO BUFFER; 

TEMP := RO; UNPK( 2 , 1 .OUTBUF (62) ,TEMP( 3) ) ; MVI*" ", OUTBUF* 64) ) J 
TR ( 1 , OUTBUF * 62 ) , TRANSTABL E* _240 ) ) ; 
COMMENT SIMTYPEINFO TO BUFFER; 
I C ( RO , S I MPL ETY P E * R2 ) ) ; 
IF RO •= 9 THEN 
BEGIN IC<R0,SIMTYPEINFG*R2)) ; CVD* R0,DEC ) ; 

MVC*5,GUTBUF*29) .MASK); ED( 5 , 0UT8UF{ 29) ,OEC(5))5 
IC*R0, SIMTYPEINF0(R2+1) ) ; CVD(RO,DEC); 
MVC * 5, OUTBUF (3 5), MASK); ED* 5, OUTBUF* 35) , DEC * 5) ) ; RO := 9; 
END ELSE 
BEGIN Rl := SI MTYP£INF0*R2 ) ; 

IF RO = 7 THEN MVC< 5 , OUTBUF { 35 ) ,MASK2 )ELSE 
MVC(5,0UTBUF(35) f MASK); CV0(R1,DEC) J 

ED*5,OUTBUF*3S) »DEC*5)) ; MVC i 5 ,QUT8UF* 29) ,OUTSUF * 90 ) ) ; 
END; 

CVDtRO,OEC) ; MVC*5,0UT8UF*67) ,MASK) ', £D( 5, OUTBUF* 67) ,DEC*5 ) ) I 
R3 := IDDIRBASE; Rl s = IDN0CR2) SHLL 2; RIO := IOLENGTHC Rl) I 
IF RIO > 55 THEN RIO := 55; Rl := IDPOINT(Rl); R3 := IDLISTBASE; 
Rl := aiDLIST(Rl); EX ( RIO, MOVE) ; 
RO := aOUTBUF; PRINT; RO t= 0; 

MVI ( " ", OUTBUF * 75 J J ; MVC* 54, OUTBUF (76 ) , OUTBUF* 75} ) J 
END; 
COMMENT BLOCKLIST OUTPUT; MVI ("l" f CARRCONT) S 

RO : = aOUTBUF ; MVC * 81 , OUTBUF Q ) , OUTBUF ) ; 
MVC { 3, OUTBUF { 1 ) , "B LOCKL 1ST"); PR I NT ; 

MVC < 29, OUTBUF (1) ,» BLOCKNO LENGTH POINTER"); PRINT; 

MVC! 29, OUTBUF (1) , OUTBUF) ; 

FOR R2 := STEP 4 UNTIL 8L0CKLI STSI ZE 00 
BEGIN CVD(R2,DEC); 

MVC {5, OUTBUF* 3) ,MASK2); ED* 5 , OUTBUF (31 ,DEC*5) ); 

Rl := BLENGTH*R2); TEMP := Rl; UNPK* 4, 2, OUTBUF* 15) ,TEMP <2) ) J 

TR*3,0UTBUF*15) ,TRANSTA8LE*_240)) ; MVI*" ", OUTBUF* 19) ) ; 

Rl := NP0INTCR2); TEMP := Rl; UNPK* 4,2 , OUTBUF* 26 ), TEMP * 2) ) ; 

TR*3,OUTBUF*26),TRANSTA8LE*_240I) ; MV I* ** ", OUTBUF* 30) ) ; 

PRINT; 

END; 
END; COMMENT END OF OUTPUT PROCEDURE; 



23 


OEBE 


07 


0F95 


23 


OECE 


07 


0F95 


23 


0ED8 


07 


0F95 


23 


0ED8 


07 


OF 95 


23 


0ED8 


07 


0F95 



FOMENT 


29 NAME = 


SEG#29 LENGTH 


4991 


RO := 0; 


IC(ROfO'JTFLAG); 


499 2 


OUTPUT; 




499 3 


END ; 




499 4 


EXIT: 




4995 


RO := 0; 


IC*R0,NOGO); 



0300 BASE REG = 15 



IF RO < 3 THEN GOTO EXIT; 
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23 OEEO 
23 OEE8 
2 3 OEEC 



07 OF 9 5 
07 0F ( >5 
07 0F95 



499 6 



06 


0S74 


07 


OF 95 


06 


o a 74 


07 


OF 9 5 


C6 


G8 74 


07 


OF 9 6 


06 


8 74 


07 


OF 96 


06 


CS74 


07 


OF 96 


06 


8 7C 


07 


0F96 


06 


0832 


07 


OF 96 


06 


89 


7 


OF 96 


06 


8A4 


07 


0F96 


0<» 


8AA 


07 


OF 96 


06 


08B6 


07 


OF 96 


06 


03 CO 


07 


OF 96 


06 


804 


07 


0F96 


06 


0804 


07 


OF 96 


06 


C8D8 


07 


OF 96 


06 


C8E6 


07 


OF 96 


06 


8F2 


07 


0F96 


06 


08FE 


07 


OF 96 


06 


090 2 


07 


0F96 


06 


0912 


7 


OF 96 


06 


091 A 


07 


OF 96 


06 


092E 


07 


OF 9 6 


06 


093 C 


07 


0F96 


06 


094 


07 


OF 9 6 


06 


948 


07 


OF 96 


06 


54 8 


07 


0F96 


06 


9 56 


07 


OF 96 


06 


■0 9 5 A 


07 


OF 96 


06 


C960 


07 


OF 96 


06 


966 


7 


OF 96 


06 


0972 


07 


0F96 


06 


9 84 


07 


OF 96 


06 


09 92 


07 


0F96 


06 


099A 


07 


0F96 


06 


9 9 A 


07 


OF 96 


06 


09 A e 


07 


OF 96 


06 


09AE 


07 


0F96 


06 


09B6 


07 


OF 9 6 


06 


09 C 2 


07 


0F96 


06 


C9C6 


07 


OF 96 


06 


09C6 


00 


0000 


06 


09CE 


00 


0000 



499 7 


4998 


SEGMENT 


4999 


5 000 


5001 


5002 


5003 


5004 


5005 


5006 


5007 


5008 


5009 


5010 


5011 


5012 


5013 


5014 


5015 


5016 


501 "7 


5018 


5019 


502 


5021 


502 2 


5023 


5 024 


50 2 5 


502 6 


502 7 


50 7 8 


502 9 


5030 


5031 


503 2 


5 033 


5034 


503 5 


5036 


5037 


5038 


5039 


5040 


segment 



RIO := inpointsave; 

P. 10 := RASAVE; 
END; COMMENT END OF 

23 NAME = SEG#23 



IN POINT := RIO 



PASS 2; 



LENGTH = OFBO BASE REG = 15 



BYTE SEGMENT END; COMMENT *** LAST DECLARATION IN SEGMENT *** J 

COMMENT * * * * EXECUTION BEGINS HERE * * * * J 

OLDSAVE := R5; STMC RIO ,R14 , BASESAVE) ; 

M VC ( 63 , XFERVEC TOR , B4 ) ; 

R3 := AGETTIME; BALR(R2,R3); Rll := COMMUM<0); COMMTIHE := R05 

RO := 60; LINENO := RO ; RO := 0; PAGENO := RO ; MVH»1", CARRCONT) J 

MVC( 36, HEADING, "STANFORD ALGOL W (VERSION 21SEPT69) «); 

HVC( 94, HEADING (37), HEADING (36) ) ; MVCf 3, HEADING! 1 13) , "PAGE" ) I 

Rl := ARUNID; MVC(31,H£ADING(8G),81}; 
PASSU RETCODE := RO; IF RO = THEN 
BEGIN COMMENT NO FATAL PASS 1 ERRORS; 

LM(R10,R14, BASESAVE) ; 

RO := #2000; Rl := #4800; R3 := AGETMAIN; SALR(R2,R3); 

R12 := RO; BASESAVE? 8) := Rl; RO := 3P - R12J 

RO :- NEG RO + Rl - 8 AND #FFFFOO; COMMENT (RO) = SIZE OF P - 8; 

PLIHIT : = Ro; 

Rl := 3P{0); R2 := Rl + RO - 256; RO := fFFOOOQOQ; 

P(0) := RO; P(4) := RO; 

FOR Rl := Rl STEP 256 UNTIL R2 DO MVCC 255 , Bl( 8) , 81 } ; 

PASS2; RETCODE : = RO; 

R3 := AFREEMAIN; COMMENT RELEASE WORKING STORAGE; 

RO := R12; Rl := BASESAVE (8 1 ; BALR(R2,R3); 
END; 

Rll := COMMLIM(O); RO := RETCODE; IF RO -.= THEN 
BEGIN MVI ("0", CARRCONT ) ; 

MVC(42,SUFFER<6) ,» SECONDS IN COMPILATION, NO CODE GENERATED "I; 

.MVCt 82, BUFFER (49) , BUFFER! 48 ) ) ; 

R3 s= AGETTIME; BALR{ R2, R3) ; Rl := RO — COMMTIME; 

Rl := Rl*5 / 1920; CVDCR 1, PKDEC ) ; UNPK (4,2 , BUFFER (1 ) ,PKDEC(5 I) ; 

MVC(2,8UFFER(0), BUFFER(l) ); MVI (♦».", BUFFER ( 3 ) ) ; 01 ("0", BUFFER! 5} ); 

RO := 3BUFFER; PRINT; 
END ELSE 

BEGIN RO := LINENO; COMMLINE s= RO; RO := PAGENO; COHMPAGE := RO, 
END; 

R5 : = OLDSAVE; R6 := RETCODE; 

RO := R13; Rl := 4096; R3 := AFREEMAIN; 8ALR(R2,R3); 
R13 := R5; R15 := R6; 
END; 

R14 := B13(12); LM( RO ,R12, 813 (20) ) ; 
EN!), 



06 NAME = AWXCMPAl 



LENGTH = 0058 BASE REG = 15 



»ni M -»i m »i»iiiwwM M Wfwimw^iiiiii i ii i iii m i 



IEF285I T123.PLLIB PASSED 

IEF2E5I VOL SER i"JOS= SYS11 . 

IEF28 5I SYSOUT SYSOUT 

IEF265I VOL SER NU5 = 

IEF2S5I AWXCMPA1 KEPT 

IEF28 5I VOL SER NOS= WIRCOl. 

IEF2 8CI K 0C2, WIROOI ,TOTAPE 

IEF265I T123.PLLJ8 KEPT 

IEF28 5I VOL SER NOS= SYS 11 . 



H A S P JOB STATISTICS — 5,051 CARDS READ — 5,174 LINES PRINTED ~ CARDS PUNCHED — 0.65 MINUTES EXECUTION TIME 

36 I/O CALLS 113 SVC CALLS 0.43 MINUTES CPU TM TIME= 23:59:09 DATE* 11/21/69 



HASP 



Y S T E M 



LOG 



0.02.01 JOB 2349 IEF233A M 0C2 , hIROQl , TOTAPE 
0.02.55 JOB 2349 IEF280I K 0C2 , W IROOl , TOTAPE 



t 



■ l , Mni l WII|l||1IIWf«|W| .^ W < Wi1l frHW » M 



// 

//TOT A 

//JOBL 

// 

//PL36 

//SYSP 

//SYSF 

If 

// 

//SVSI 

IEF236 

IEF23 7 

IEF237 

IEF237 



PE 
IB 



JOB 
DD 



EXE 
RINT D 
UIMCH 



C 
ALLO 
JOBL 
SYSP 
SYSI 



<T1 

D 

D 
P 
S 
I 
I. 
D 
* 

F 



23***,914,2,10, ,,,T), ' ED SATTERTHWAITE «,MSGLEVEL=1 J0B2349 

SMAHE=T123.PLLlB,UMIT=2314,V0LUME=SER=SYSll f X 

1SP= (!JLU,PASS) 

GM=oL360,PARW=«NCLCAD»DECK» 

YS0UT=A,DCB=BLKS1ZE=133 

SNAME=AWXCMPB1 , UN IT=TAPE9, VOLUME=SER=WI ROOl , X 

ADEL=(6,SL) ,DISP=(N£W,KEEP) , X 

CB={BLKSIZF=2C00,LRECL=80,RECFM=FB} 



D 

c 

IB 
UNCH 

N 



OR TO TAPE 
ON 391 
00 0C2 
ON OOC 



PL360 



PL360 COMPILATION 
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PASS 3 



69.326 a 00:02 



PAGE 



C70 



01 


0000 


00 


(.000 


01 


00 CO 


00 


0000 


01 


000 G 


00 


0000 


CI 


n i- r f\ 

■J \~ '■-! '** 


00 


0000 


01 


OOOO' 


00 


0000 


01 


coco 


00 


0000 


01 


00 


00 


(5000 


06 


0006 


00 


0000 


06 


CCG6 


00 


0000 


06 


000 A 


07 


0000 


06 


000 A 


07 


0048 


06 


000 A 


07 


088 


06 


COCA 


07 


0088 


06 


00 A 


07 


08 8 


06 


00 OA 


07 


008 8 


06 


OOOA 


07 


0088 


06 


OOCA 


07 


0088 


06 


OOOA 


C7 


0088 


06 


OOOA 


07 


0088 


06 


OOOA 


07 


0088 


06 


OOOA 


07 


088 


06 


OOOA 


07 


008 8 


06 


COCA 


07 


0090 


06 


OOOA 


07 


0090 


06 


OOOA 


07 


0090 


GO 


OOCA 


07 


0090 


06 


OOOA 


07 


0090 


06 


OOCA 


03 


0000 


06 


OOOA 


08 


0004 


06 


OOOA 


08 


0008 


06 


OOCA 


08 


0014 


C6 


OOCA 


OS 


0014 


06 


one A 


08 


0014 


06 


OOOA 


08 


0014 


06 


OOOA 


08 


0014 


06 


OOOA 


08 


0014 


06 


OOCA 


08 


0018 


06 


OOOA 


08 


00 28 


06 


OOOA 


8 


0034 


06 


OOOA 


08 


834 


06 


OOOA 


08 


08 34 


06 


OCA 


08 


0840 


06 


OOOA 


08 


0840 


06 


OOOA 


08 


0840 


06 


OOOA 


08 


0840 


06 


OOOA 


08 


0840 


06 


OOOA 


08 


0840 


C6 


OOOA 


08 


0840 


06 


OOOA 


08 


0840 


06 


OOOA 


08 


0840 


06 


OOCA 


08 


0840 
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COMMENT 



STANFORD ALGOL 

PHASE B - CODE 

OCTOBER 1969 



W COMPILER 
GENERATION 
VERSION 



GLOBAL PROCEDURE AKXCMPBKR 
BEGIN STM{R14,R12, 813(12) ) 

BEGIN 

SEGMENT BASE R13; 

LOGICAL SYS INF, OLDS AVE 

ARRAY 16 INTEGER XFERVE 

ARRAY 2 INTEGER CO MM 

INTEGER COM START S 

INTEGER APUTLINE SYN 

BYTE CARRCONT SYN 
INTEGER APUTCARD SYN 
INTEGER 
INTEGER 
INTEGER 
INTEGER 



AGETMAIN SYN 



14) *, 

; R5 := P. 13; 



, NEWS AVE; ARRAY 1 
CTOR; COMMENT SUP 
LIM SYN XFERVECTOR 
YN CCMMLIMIO); 

XFERVECTOR (8) ; 
APUTLINE(O) ; 

XFERVECTOR (16) ! 

XFERVECTOR (20) ; 
N XFERVECTOR (24) 

XFERVECTOR (28); 
FERVECT0R160) ; 



5 LOGICAL SAVEAREAS 
V ENTRY ADDRESSES; 
(0); 

COMMENT WRITE ENTRY; 
COMMENT PRINT CONTROL CHAR J 
COMMENT PUNCH ENTRY; 
COMMENT GETMAIN ENTRY; 
COMMENT FREEMAIN ENTRY; 
COMMENT GETTIME ENTRY; 
COMMENT ADDR OF SYSTEM 10; 



AFREEMAIN SY 

AGETTIME SYN 

ARUNIO SYN X 
FUNCTI ON BALR! .1 , #0500 ) ; 
LONG REAL PKDECj 

INTEGER WORK SYN PKOECIO); 

LOGICAL ALGOLDATAORG SYN B 13(72)5 COMMENT ALGOLRUN DATA ORIGIN; 

DUMMY BASE Rll; COMMENT COMPILER COMMON FORMAT; 
INTEGER COMMTIME; 
SHORT INTEGER LI MEMO, PAGENO; 
ARRAY 3 LOGICAL COMMFLAGS; 

BYTE NOGO SYN COMMFLAGS! 3 ; 
BYTE TRACE SYN COMMFLAGS ID; 
BYTE CHECKFLAG SYN COMMFLAGS! 2) ; 
BYTE CARDFLAG SYN COMMFLAGS ( 3) ; 
ARRAY 2 LOGICAL TRACE8ITS SYN COMMFLAGS C 4) ; 
SHORT INTEGER BLOCKLISTSI ZE , NAMET ABLESI ZE ; 
INTEGER REFREC8ASE, IDDIRBASE, IDLISTBASE, INPOINT; 
INTEGER TREELINK, TREEBASE, TREETOP; 
ARRAY 512 LOGICAL BLOCKLIST; 

COMMENT *** SIZE OF OTHER TABLES IS DYNAMIC ***; 
ARRAY 3 LOGICAL NAMETABLE; 
BYTE VR SYN NAMETABLE! 6 ) ; 
SHORT INTEGER IDLOCl SYN NAMETABLE; 

IDL0C2 SYN NAMETABLE (2); 
SIMTYPEINFG SYN NAMETABLE! 4) ; 
TYPEINFO SYN NAMETABLE !6 ) ; 
NAMETABLE € Si 5 

NAMETABLE !9) ; 



• 
• 

• 



SHORT INTEGER 
SHORT INTEGER 
SHORT INTEGER 
BYTE TYPE SYN 
BYTE SIMPLETYPE SYN 
LOGICAL TREE SYN B12; 

SHORT INTEGER TREEP SYN 
CLOSE BASE; 



LOGICAL 

INTEGER 



S AV El 4 ; 

STACKTOP; 



COMMENT 
COMMENT 



TREE (2); 



STACK BASE ADDRESS; 
LENGTH OF STACK SEGMENT; 



LOGICAL STACK SYN MEM! R 14); 

SHORT INTEGER STACKP SYN STACK!2); 
LOGICAL STACKP4 SYN STACKI4); 
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005 9 
360 
0061 
0062 
O063 

006 4 
0065 
0066 
00 67 

006 8 
306 9 
00 70 
0071 
0072 
0073 
0074 
0075 
00 76 
0077 

007 8 
0079 

008 
0081 
0082 
0083 
0034 
008 5 

008 6 
0087 
0088 
0039 
0090 
0091 
0092 
0093 
0094 
3095 

009 6 
0097 
009 8 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
1, 8 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 



ALGOL W COMPILER. - PASS 3 

LOGICAL STACKP8 SYN STACK (8) J 

LOGICAL PROGRAMM SYN MEM(R14); 

SHORT INTEGER PROGRAM SYN PROGRAMM; 
ARRAY 52 INTEGER LSTACKM8; 

INTEGER LSTACKM4 SYN LSTACKM8C 4) ; 

INTEGER LSTACK SYN LSTACKM8(8)J 
ARRAY 10 INTEGER NUMSTACK; 

ARRAY 10 SHORT INTEGER NUMSEQLEN SYN 

ARRAY 10 SHORT INTEGER NUMORIGIN SYN 
ARRAY 50 INTEGER LOGSTACK; 

SHORT INTEGER L0GSTACK1 SYN LOGSTACK; 

SHORT INTEGER L0GSTACK2 SYN L0GSTACK(2) 
ARRAY 5 INTEGER FSTACKM4; 

INTEGER FSTACK SYN FSTACKH4(4); 
ARRAY 13 INTEGER RSTACKM4; 

INTEGER R STACK SYN RSTACKM4C 43 ; 
ARRAY 32 LOGICAL RL0TA3LE; 

ARRAY 32 SHORT INTEGER SEGNO SYN 
ARRAY 32 SHORT INTEGER CHAIN SYN 
ARRAY 20 SHORT INTEGER UMRECMREC? 
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NUMSTACK (0); 
NUMSTACK (2); 



RLOTABLE(O) 

RLDTABLEC2) 



LOGICAL CGNSPTTAB SYN 0; LOGICAL CPT8ASE; 

INTEGER CONSTAB f CONST ABLfCONSPTTABL; 

INTEGER LITOP-GJ 

INTEGER NEXTAODR, SAVE, SAVEL, SAVERO, SAVER2, SAVER3, SAVER4, 



SAVER 5, SAVER6,L POINTER, TEMP, CNTP; 
TEGER MNBASEi NEXTBASE; 

REFPCOUNT f R£FADD ( REFCOUNT»AREFADDt AREFCOUNT,LAADD t MVIADD; 
BASELQC, BASESTLOC; 
FIRSTCASE; 
INTEGER FIRSTCASE1 SYN FIRSTCASE; 



I! 

INTEGER 
INTEGER 
LOGICAL 

SHORT 
INTEGER NUMSTACKP; 

I NTEGER RUNERRST ART , RUM ERR PT , WR I TR UNPT ; 
SHORT INTEGER SB2 SYN 82; 

BYTE PRINT, TRACEIT; COMMENT LOCAL TRACEFLAGSl 
BYTE ANDFLAG, RESFLAG, IFEXP, LOGFLAG, ARGFLAG, 



TERMNODE 



INTEGER TERMNALN00E=#5 3000000, UNARYOP=#43000000; 

INTEGER FP=Q,RETA=4,OL=8,REFVAR=#C,REFARY=#10,DSP=#14; 

LOGICAL MP = aALGOLOATAORGCO), STRINGERR = iALGOLOATAORGC #140) , 

REFBINOERR = 3ALG0LD ATAORGI #14C) , REFTEMP = aALG0LDATA0RG(#13C) » 



ARRAYERR = 8ALG0LDATAORGC #16A) , 
, NAMEERR = 3ALG0L0ATA0RG{#17E) , 

OESC ERROR = 3ALG0LDATA0RG<#1A2) , 
, SINGLMASK = 3ALG0LDATA0RGI #0103 , 

DELTALIMIT = aALGOLDATA0RGt#O0EI » 

AODRSTEP = aALG0LDATA0P.G(#G24) , 



CASEERR = 3ALG0LDATA0R6<#156), 

ALLOCERR = 3ALG0LDAT AORG (#1 881 

UBL8ERR = a ALGOL OAT AORG {#198), 

DUBLHASK ■= SALGOLDAT AORG( #014) 

ALLONES = 3ALGQLDATA0RG{#018), 

NULLREF = 3ALGOL0ATAORG(#01CJt 

RECTA8LE = SALGOLDATAORG (#03C) J 
I NTEGER SR E A0= #800000 24 , RE AOFL AG= 3ALGQLD ATAORG ( 9 ) ; 
INTEGER SWRITE=#8000000C, WRITEFLAG=3ALG0LDATA0RG« #A)S 
LOGICAL L0INTREF=3ALG0LDATA0RGC#1D4) , HI INTREF=aALGQLDATA0RG{#lF8 ) I 
LOGICAL FC0N1 = 3ALG0LD ATAORG I #200) , FC0N2 = 3ALG0LDATA0RG*#?.08) J 
LOGICAL SIGN=#80000000, TYPEMASK=#00FFO000, MASK=#OOOOFFFF» 

MASK1=#PFFF0QOG, MASK2=#FF00FFFF, MASK3=#FFF0FFFF , 

HASK4=#OO0FO00O, MASK5= fOOFOOOOO, MASK6=#FF0FFFFF , 

MASK7=#FF00FFFF, MAS K8=#O00OOFFF, MASK9=#00O0O0FF, 

OPHASK=#7F0O0000, SHASK=#FFFFFFFC, 

BASEMASK=#QOQ0FOQO, OPCODEMASK=#FF000O00 ; 



PL3 60 COMPILATION 



ALGOL 



COMPILER - PASS 3 
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012 4 
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LOGICAL A=#GAQO0C0O, D= #00000000, M=#QC000OGO, S-=#0B000000j 
ARRAY 5 LOGICAL OPTYPE = COMMENT OPCODE DATA FORMAT BITS; 

(#10000000, #30000000, #20000000, #30000000, #20000000); 
LOGICAL LOADMARK=#8800000C, STOREMARK=#B0000000 ; 
LOGICAL ICC =#43 000000 , STCC=#42000000,MV I I=#92O00000 J 
LOGICAL OII=#96000000, NI I=#94000000, CLI I=#95000000; 
LOGICAL LAA=#4 1000000; 
LOGICAL TRUEE=#00010000S 
LOGICAL NULLST=#680Q0000, C0NID=#5DS 

INTEGER CASEI=#10QOQ, C ASE2=#20000 , CAS E3=#30000 , CASE4=#4000O J 
INTEGER CASE5=#50000, CASE6=#60000; 
INTEGER SSIZE=_12; 

INTEGER NUMBYTESUBR=46; COMMENT LENGTH OF IMPLICIT SUBR ENTRY, 
SHORT INTEGER. B£GINM=83, NUMBER=86, 

8IT=98, STRYNG=99, TRUE=100, FALSE=101, NULLL=103, 10=87, 

FUNCID=90, ARRAYDC = 105, ARRAY.ID=89, SEG=97, RCCLID=91» 

RCCLDC=96, BB8=37, PR0CDC=95 t STACKADDR=77; 



BYTE FORMALCALL SYM 1, 
RECAL LOCATE SYN 3, 
ANALFN SYN 6, 
READIN SYN 8, 
REAL INTEGER SYN 10, 
INTEGER 
INTEGER 



SHORT 

SHORT 

SHORT 

FUNCTION 

FUNCTION 



FPARCONV SYN 2, 

REF CHECK SYN 4, 

GTIME SYN 7, 

WR I TEED IT SYN 9, 

ARITHFN SYN 11, 
STFCASELDW=3READIN, STFC AS EHIGH=3C ARITHFN? 
STFUNCI0=107,STPROCID=108,ARSTAR=106,APRPAREN=29l 



NULLREFARY SYN 5, 



C ARITHFN SYN 12;: 



INTEGER FLAG =#FFFFS, ENDCHAIN=1S5 
0I«4f#96Q0) f XCC5,#D700); 
DECR(6,#0600); COMMENT USE 8CTR TO DECREMENT" 



COMMENT OBJECT CARD SEQ NO: 



SHORT INTEGER SEQNO=OS; 

INTEGER CARONUM=0; 

INTEGER LOGPOINTER=0; 

SHORT INTEGER PUMR£C=G f PMREC=0 

INTEGER INSC0UNTER=0; 

I NTEGER CO.DEL ENGT H=_25 6 J 

INTEGER CLN=#D; COMMENT 



JHORT 



INTEGER 
INTEGER 
INTEGER 
4 SHORT 



COMMENT TOTAL CODE LENGTHS 
CURRENT HEIRARCHY NUMBER; 
COMMENT LOGICAL SEGMENT NUMBER? 
MAXLOGSEG=127S; 
SEGTABIDX=OS f SEGTABMAX=124S ; 
INTEGER F = (OS, OS, OS, OS* S 

R = < 2(#FFFFS), 12<0S) ) 5 



REMAIN0ER=#0OX; 



LUGSEG=OS J 

SHORT 

SHOR T 

ARRAY 

ARRAY 14 SHORT INTEGER 

BYTE R3FLAG=#0OX; 

BYTE PAIRF.LAG=#OOX, 01 V IDE= #00X, 

BYTE RECORDCLFLAG=#OOX; 

BYTE RECOROFLAG SYN REOORDCLFLAG; 
BYTE CLFLAG=#O0X, UJIFE XP=#OOX, CEQ2=#0QX, SUBARFLAG=#O0Xl 
BYTE FIELD0P=#00X-5 COMMENT SET IMMEDIATELY AFTER FIELD ACCESS; 
ARRAY 132 BYTE DWBUF = 132(" »} 5 
ARRAY 16 BYTE 0TRTABL6=< M 0123456789ABCDEF« } ; 
ARRAY 132 BYTE HEADING = 

("STANFORD ALGOL Vi {VERSION 220CT69) « ,771 " "I , "PAGE" ,151 " ")l 
BYTE COMPACTEO=#0OX; COMMENT SET AFTER FIRST STORAGE COMPACTION; 

PROCEDURE WRITECR14M COMMENT OUTPUT LINE AT IRO); 
BEGIN ARRAY 4 LOGICAL SAVE03; STM (RO ,R3,SAVE03) ~, 
Rl := Rl-Rl; IC(Ri,CARRCONT); R2 := LINENO + 1? 
IF Rl = "0" THEN 

BEGIN IF R2 >= 60 THEN Rl := »1« ELSE R2 := R2 
end; 



R3 := APUTLINE; 



PL360 COMPILATION 
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0175 
0176 

17 7 

017 8 
179 
0180 
0131 
0182 
018.3 
0184 

018 5 
0186 
0137 
0188 
0139 
0190 
0191 
0192 
0193 
01^4 

019 5 

019 6 
0197 
0198 
0199 
0200 
201 

020 2 
0203 
0204 
0205 
0206 
020 7 
020 8 
0209 
0210 
0.211 
212 
0213 
0214 
0215 
0216 
0217 
218 
0219 
022 
221 
0222 
0223 
224 
0.225 

022 6 
227 
0228 
0229 
0230 

023 1 
0232 



IF Rl = "1" THEN 

BEGIN RO := PAGENO + 1; PAGENU : 
MVC ( 3 ,HE AD1 NG ( 1 1 7 ) , #40202 120 ) ; 



:= SHEADING; 
:= 3 5 Rl : = 



BALR{R2,R3) ; 

» o" ; 



RO 

R2 

END; 

LINENO := R2; 

IF R2 = 60 THEN MVI ( "1" , CARRCONT ) ELSE 
BALR(R2,R3); COMMENT LINK TO WRITE; 
END; 



= RO; CVD(RO,PKDEC) 5 
£0(3, HEAD I NG( 1 1 7 ) ( PK. DEC (6)1; 

RO := SAVE03C0); 



MVK" M » CARRCONT) % 
LM(R0|R3 t SAVEO3)J 



PROCEDURE EROR.(Rl); COMMENT THIS PROCEDURE 
MESSAGES, SETS RO : = 1 
BEG I N M VC ( 59 , OW BUF < 4 ) , 
MVI ("1", CARRCONT); 
CASE R3 OF 
BEGIN 

MVC(23,0WBUF< 11), 

MVC( 22, OWBUF Ml), 

MVC (31, OWBUF (11), 

MVCC23,0W8UF(11), 

HVCC20,0WBUF(11), 

MVC(20,QWBUF( 11) , 

MVC(18,0W8UFU1), 

MVC(2G,GVJBIJF(11), 
END; 

RO := aOWBUF; WRITE; R14 := SAVE14; 

Rl := CARDNUMj MVC(54*0WBUF{ 10) t 0WBUFC9) ); 

MVC(8,0NBUF(11),»NEAR CARD") J CVD(R1 ,PKOEC ) J 
UNPK<3i7,UWBUF(21)f PKDEC); OK #E0, OWBUF i 24) ); 
RO : = aOWBUF; WRITE; R14 := SAVE14; 

RO := 16; GOTO ERXIT; 

END; 

PROCEDURE INCRADDRIRIJJ COMMENT INCREASES NEXTAODR BY NUMBER OF BYTES 
SPECIFIED IN RA; 

BEGIN RIO 5= RIO + NEXTADOR; NEXTAODR :* RIO; 
END; 



PRINTS OUT PASS3 ERROR 
AND BRANCHES OUT OF PASS3. R3 IS PARAMETER; 
OWBUF); MVC(4,0HBUFC4), «**#**«) ; 



"PROGRAM SEGMENT OVERFLOW"); 
"COMPILER STACK OVERFLOW")? 
"CONSTANT POINTER TABLE TOO LARGE"); 
"BLOCKS NESTED TOO DEEPLY"); 
"DATA SEGMENT OVERFLOW"); 
"CARD TABLES TOO LARGE"); 
"TOO MANY PROCEDURES"); 
"PROGRAM AREA OVERFLOW"); 



ASSEMBLED INSTRUCTION FROM RO 
WRITES, AND UPDATES INSTRUCTION 
LEFT JUSTIFIED; 



PROCEDURE EMIT (Rl); COMMENT TAKES 
(AND R3 IF 6 BYTE INSTRUCTION), W 
COUNTER. ALL INSTRUCTIONS MUST BE 
BEGIN 

PROCEDURE WRITEINSTRUCT IGNIR1 ) ; 
BEGIN ARRAY 4 INTEGER TEMP; 
BYTE SEGNO SYN OWBUF (12); 
BYTE LC SYN OW8UF421); 
BYTE MNEM SYN OWBUF (3 2); 
BYTE IMS SYN OWBUF (39); 

STM(R0,R3,TEMP) ; MVC (59 , OWBUF (4) , OWBUF) ; 
Rl := RO SHRL 24 SHLL 2; R2 := MNBASE + Rl; 
Rl := Rl SHRL 8; UNPK(4,2 , INS, TEMP ) ; 
TR(3,IMS,0TRTABLE(_240) ); 
IF Rl = THEN MVK" ",INS(4) ) ELSE 
BEGIN UNPK(4,2,INS(4),TEMP(2) ); 
TR(3,INS(4),0TRTA8LE(_240)); 
IF Rl < 3 THEM MVK" «,INS(8) I ELSE 
BEGIN UNPK(4,2,INS<8),TE«Ptl2)); MVK" " 



MVC(3iMNEM,B2) 



INS(12)) 
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06 


032 C 


07 


070C 


06 


032 E 


07 


07 OC 
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023 5 
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023 7 
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0243 


0244 


024 5 


0246 


0247 


0248 


0240 


025 


0251 


025 2 


025 3 


0254 


0255 


0256 


0257 


0258 


0259 


0260 


0261 


0262 


0263 


264 


0265 


026 6 


0267 
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26 


02 70 


027 1 


0272 


027 3 
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0279 


0280 
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28 2 


0283 


0284 


02 3 5 


0236 


02 87 


0288 


0289 


0200 



TR{3, INS<8) ,0TRTABLE(_240)); 

END; 

end; 

Rl := CARDNUM; R2 := INSCOUNTER; 

CVDtRlt PKDtEC) ; UNPM3,7,SEGN0,PKDEC) I 01 (#F0, S EGN0C3) ) J 
WORK := R2; UNPK { 4, 2 ,LC, WORK( 2 ) ) ; 
TR(3,LC,OTRTABLE<_24G) ); MVIC ",LC(4))J 

RO := 3QWBUF; WRITE; R14 := SAVE14; LM< R0,R3 »TEMP ) ; 

END; 

ARRAY 2 INTEGER SAVEREG; INTEGER SAVER1; 

ARRAY 3 SHORT INTEGER INSTRUCTION SYN SAVEREG(O); 
ARRAY 3 SHORT INTEGER MOVECOOE= (#0200 ,383 ,3 INSTRUCTION ! J 
SAVER1 := Rl; IF PRINT THEN WRI TE INSTRUCTION; 
Rl := R3; STM(R0,R1, SAVEREG); 

I C(R1, INSTRUCTION! 0) )S Rl s= Rl AND #C0 SHRL 5; 
IF Rl < 4 THEN Rl := Rl + 2; COMMENT Rl = INSTRUCTION LENGTH; 
IF FIELDOP THEN 
BEGIN RESET? FIELDOP }; IF Rl -*= 2 THEN 

BEGIN R3 := INSCOUNTER - 4; RO := PRQGRAMIR3) AND iFFOF; 
IF RO = #4100 THEN 
BEGIN COMMENT LA; 

RO := PR0GRAM<R3| AND #F0 SHLL 8 J 
IF RO = INSTRUCTIONS) THEN 
BEGIN COMMENT REPLACE WITH DISPLACEMENT; 
INSCOUNTER := R3; 

RO :* PROGRAM! R3+2) ; I NSTRUCTION (2) :~ RO; 
END; 
END; 

end; 
end; 

r3 := inscounter; ro := r3 + rl; inscounter := ro ; 
if ro > 8192 then 

BEGIN R3 := l; EROR; 
END ; 

IF RO >= R8 THEN 
BEGIN R3 := 2; EROR; 
END; 

R3 := 3PR0GRAHCR3); DECR(Rl); EX(R1 , MOVECODE )*, 
LMCROjRl, SAVEREG); R3 := Rl ; Rl := SAVER 1; 
END; 

PROCEDURE CHAINOUK Rl ) ; 

BEGIN COMMENT 

INPUT - RO = SEG MO, OUTPUT - RO = SEG CHAIN; 

ARRAY 2 LOGICAL SAVE12; STMTR1 , R2 ,SAV E12 ) ; 

FOR R2 := 4 STEP 4 UNTIL SEGTABIDX DO 

IF RO = SEGNO CR2) THEN 

BEGIN RO := CHAINIR2); GOTO X; 

ENo; 

R2 := SEGTABIDX + 4; SEGTABIDX := R2; 

IF R2 > SEGTABMAX OR RO > MAXLOGSEG THEN 

BEGIN R3 := 7; EROR; 

END; 

SEGNO <R2) != FO; RO := ENOCH AIN; 
X: Rl := INSCOUNTER; CHAINLR2) z- Rl; LM{ R 1, R2, SAVE12) J 
END; 
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ALGOL W COMPILER - PASS 3 

PROCEDURE CHAININ(Rl); 

BEGIN COMMENT EMITS CODE TO RESTORE CURRENT SEG BASE; 

LOGICAL SAVERl; SAVERl := Rl; 

Rl := INSCOUNTER; RO := CHAIN(O) OR LDADMARK? 

CHAIN(O) := Rl; EMIT; Rl := SAVERl; 
END; 

PROCEDURE EMITCALLC Rl ) I 

BEGIN COMMENT EMITS CALL AND RELOAD TO SEG NO IN RO 5 

ARRAY 2 LOGICAL SAVE01; STM < RO, Rl, SAVEO 1) ; 

CHAINOUT; RO : = RO OR #58F00000; EMIT; 

RO := #051F0000; EMIT; RO s= ABS SAVE01C0); 

IF RO <= STFCASEHIGH AND RO >= STFCASELOW THEM 

BEGIN RO := R3 ; EMIT; 

END; 

CHAIN IN; LMCRO ,R1 , SAVEO 1 ) J 
END ; 
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PROCEDURE ASSEMBLECR1) ; 

COMMENT ASSEMBLES AND EMITS 
PS = TYPE, ROC 8: 11/8: 15) = 
R3( 16:31) = SECOND OPERAND 
R0C4:7) = OPERATION. RO, 
BEGIN LOGICAL SAVERl, SAVER6, 
IF R6 > 5 THEN R6 : = is 
IF R6 >= 4 THEN 
BEGIN 



INSTRUCTION ACCORDING TO TYPE, INPUTS; 
FIRST OPERAND REGISTER/REGISTERS, 
(R3>0) OR R3(8:ll/8:15> = SECOND REG, 
Rl CHANGED; 

TEMP; SAVERl := Rl; SAVER6 := R6; 



Rl 
IF 
IF 
Rl 

end; 

IF R3 



COMMENT COMPLEX, SAVE SECOND INSTRUCTION FIELDS; 
: = RO SHLL 4 AND #OOFOOOOOS TEMP := Rl; 



R3 
R6 



< THEN Rl 

= 4 THEN Rl 
Rl OR TEMP; 



:= R3 AND #OOOFO0OO ELSE 
:= R3 +4 ELSE Rl := R3 

TEMP := Rl; 



+ 8; 



>= 

R6 
RO 
>= 



Rl : = 
RO : = 
IF R3 
BEGIN 

end; 

EMIT; 

BEGIN 

END; 

R6 := SAVER6 

END; 



THEN 
SHLA 2J 



RO 



RO 



RO OR #40000000; COMMENT SELECT RR 
: = RO OR OPTYPEiRl-4); COMMENT TYPE 



OR RX; 
CODE; 



AND tfTFFOOOOO; 

THEN RO s= RC 



COMMENT OPERATION, 
OR R3 ELSE 



FIRST REGISTER; 



Rl := R3 AND #00FOO0OO SHRL 4; 



RO := RO OR Rl; 



RO 



IF R6 >= 4 THEN 

:= RO AND #FFOOOOOO 



Rl i= SAVERl; 



OR temp; EMIT; 



;ITES OUT A 4 BYTE 



PROCEDURE WRITENUMBER(Rl) ; COMMENT THIS PROCEDURE 
NUMBER FOUND IN RO AND UPDATES INSCOUNTER. 8Y 4; 
BEGIN ARRAY 2 LOGICAL TEMP; INTEGER NUMB SYN TEMPCOM 
STMtRO,Rl,TEMP) J CL I(#00, TRACEIT) ; IF -.= THEN 
BEGIN Rl := NUHSTACKP; RO := NUMOR IGINCR1 ) + NUMSEQLENCRL) + 
IF RO = INSCOUNTER THEN 

BEGIN RO : = NUM SEQLENI Rl) + 4; NUMSEQLEWRl ) := RO; 
END ELSE 



4; 



Rl := Rl + 41 



NUMSTACKP := 
NUMSTACK(Rl) 



BEGIN 

RO := INSCOUNTER; 

END; 
END ; 

Rl := INSCOUNTER; Rl := 3PR0GRAHCR1) 
IF PRINT THEN 



Rl; 

:= RO; 



MVC(3,B1,NUMB) 
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03 50 
03 51 
352 
0353 
0354 
1 '5 5 
0356 
3 5 7 
3 5 3 
35 9 
0360 
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036 2 
0363 
364 
0365 
0366 
36 7 
36 3 

036 9 
370 
0371 
0372 

037 3 
0374 
37 5 
03 76 
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0378 
0379 
0380 
33 1 
38 2 
0333 
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0401 
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0404 
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040 6 



BEG IN MVC ( 59 , OWBUF (4) , OWBUF ) ; UNPK ( 8, 4, OWBUF < 39} , NUMB ) J 
MVI J" »,QNBUF(47) ); TR{7, OWBUF ( 39) , UTRTABLEI _240) ) 5 
UNPK(4,2,0WBUF(21 ), INSCOUNTERC 2 ) ); MVK" ", OWBUF (25) ); 
TR(8,OWBUFC21 ) »UTRTABLE( _240 ) ) ; 

RO := 30WBUF; WRITE; R14 := SAVE14; 



END; 

RO : = 
IF RO 
IF RO 



INSCOUNTER + 4; INSCOUNTER := RO *, 

> 8192 THEM BEGIN R3 : = 1; EROR; END; 

>= R8 THEN BEGIN R3 := 2; EROR; END; 



Li 
END; 



!{R0,R1,TEMP) 5 



PROCEDURE LMINS(RI); COMMENT THIS PROCEDURE EMITS THE L OR LM 
INSTRUCTION WHICH UPDATES THE DISPLAY AFTER RETURNING 
TO A PROCEDURE; 
BEGIN INTEGER SAVER 1; SAVER1 := Rl; 



Rl : = 
IF Rl 

BEGIN 



cln; 

<= 11 
IF ■= 



THEN 
THEN 



RO 
RO 

DSP; 



:= #5 8B 02000 ELSE 



\- Rl SHLL 
EMIT; 



20 OR #98082000; 



RO := RO OR 
END ; 
Rl := SAVERl; 

END; 



PROCEDURE REFST0MR1)3 COMMENT STORING A REFERENCE - CHECK 
FOR INTERRUPT. RiO=4 IF ST , R10=6 IF MVC ; 
BEGIN INTEGER SAVERl; SAVERl := Rl; 

Rl := INSCOUNTER - RIO; RIO := PR0GRAMCR1+2 ) AND MASK; 
Rl := RIO AND MASKS; IF Rl = OR RIO >= LOINTREF THEN 
BEGIN RO : = #41000000 OR RIO; EMIT; 

RO := SREFCHECK; RO := NEC RO; EMITCALL; 
END; Rl s= SAVERl; 
END; 



COMMENT EMITS THE CODE FOR 



:= Rl; 



PROCEDURE PR0CCALLC0DE1R1) ; 
A PROCEDURE CALL; 

BEGIN INTEGER SAVERl; SAVERl 
Rl := 0; ICCR1,TYPEIR7)); 
IF Rl = 19 THEM 

COMMENT FORMAL PROCEDURE; 

R3=0 THEN R0:= #18000000 ELSE R0s=#41000000 

:= IDL0CKR7) SHLL 12 

:= #18340000; EMIT; 

:= SFORMALCALL; RO : = 

:= RO OR #58F0 0OO0; 



BEGIN 
IF 

RO 
RO 
RO 
RO 



+ IDLOC2(R7) OR #98450000; 
NEG RO; CHAIN OUT; 



OR R3; EMIT; 
EMIT; 



END ELSE 

BEGIN RO := IDLOC2CR7) AND #FFOO 
EMIT; RO := IDL0C2CR7) AND #FF; 

LOGS EG THEN RO : = #18FE0000 ELSE 
CHAINOUT; RO :- RO OR #58FO0000; 



#100 SHLL 8 OR -.#18 500000; 



IF RO 

BEGIN 
END; 

END? 

EMIT; R 

END; 



:= #051F0000; EMIT; LMINS; CHAIMIN; Rl s* SAVERl; 



PROCEDURE WRITEALL(Rl) ; COMMENT THIS PROCEDURE WRITES OUT THE CODE 
GENERATED FOR AN ENTIRE PROGRAM SEGMENT; 
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040 8 
40 9 
0410 
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0412 
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0414 
0415 
0416 
417 
0418 
0419 
0420 
0421 
0422 
423 
0424 
042 5 
0426 
0427 

042 8 
0429 
0430 
0431 
4 3 2 
0433 
0434 

043 5 
0436 
0437 



0440 
044 1 
0442 
0443 
0444 
q 44 5 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
04 5 3 
0454 
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045 9 
0460 
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0462 
0463 
0464 



BEGIN LOGICAL SAVERl, NUMINFO; INTEGER INSC; 

SHORT INTEGER NUMBYT SYN NUMINFO(Q), INUM SYN NUMINF0C2); 

SAVERl := Rl; MVI (#00, TRACEIT) ; SETJPRINT); 

RO := NUMSTACKI4); NUMINFO : = RO J 

RO := 4; Rl := NUMSTACKP; NUMSTACK ( R 1+4} : = ROj NUMSTACKP s» 

RO := RUNERRSTART + 12; WRITRUNPT := RO ; 

RO := INSCOUNTER; INSC := RO; RIO := OS INSCOUNTER := RIG; 

WHILE RIO < INSC 00 

BEGIN IF RIO = INUM THEN 

BEGIN COMMENT OUTPUT A SEQUENCE OF 
FOR R3 := STEP 4 UNTIL NUMBYT 

BEGIN Rl := INSCOUNTER; RO := PROGRAMIRIJ SHLL 16; 
:= PR0GRAM{Rl+2) AND #FFFF; 
:= RO OR Rl; WRITENUMBER; 



ro; 



NUMBERS; 

00 

PROGRAM (RIJ 



Rl 

RO 
END; 
Rl : = 

RO : = 
END ELSE 
BEGIN 
R3 : = 
BEGIN 
R3 
END; 
R3 ; = 
RO : = 
R3 : = 
END; 
RIO : 
END; 

RESET < PR INT); 
END; 



NUMSTACKP + 4; 

NUMSTACK {Rl); 



NUMSTACKP i= Rl; 

NUMINFO := RO ; 



WRITRUNPT; Rl := B3 SHRL 16; IF Rl 
Rl := B3 AND MASK; CARDNUM := Rl ; 
:= 3B3C4); WRITRUNPT s= R3; 



= RIO THEN 



= PROGRAM C RIO) SHLL 16; 
= PROGRAM iRl 0+2) AND MASK 
= PR0GRAHCR10+4) SHLL 16; 

INSCOUNTER; 

Rl := SAVERl; 



OR R3; 



EMIT; 



PROCEDURE GETTYPE(Rl); COMMENT TAKES SIMPLE TYPE 
AND PUTS IT IN LOW ORDER BYTE OF R3; 
BEGIN R3 := R7 SHRL 24; 

IF R3 = NUMBER THEN 

BEGIN R3 := R7 AND MASK + CPTBASE; 
END ELSE 

IF R3 = TRUE OR R3 •= FALSE THEN R3 
= STRYNG THEN R3 := 7 ELSE 
= BIT THEN R3 := 8 ELSE 
= NULLL OR R3 = RCCLID THEN 



FROM NAME TABLE 



R3 := C0NSPTTABCR3) SHRL 16 I 
= 6 ELSE 



IF R3 
IF R3 
IF R3 

BEGIN 
R3 

END; 

END; 



R3 := R7 

:= R3 AND 



AND #FFFF; 
#FF; 



R3 := 9 ELSE 
I C i R3 , S I MPL ETYPE < R3 ) ) J 



PROCEDURE DUMPFLREGCRl); COMMENT WRITES INSTRUCTION TO DUMP OLDEST 
FLOATING REGISTER VALUE INTO LOCAL STACK, MAKES ADJUSTMENTS IN 
FSTACK AND LSTACK, PUTS REGISTER NUMBER IN R3, BITS 8 TO 111 
BEGIN LOGICAL SAVERl, SAVER4, SAVERA; 

SAVERl := Rl; SAVER4 := R4; SAVERA := RIO; 

MVC( Hi FSTACK, FSTACK (4) ); 

RIO := RO AND MASK; 

R4 := NEXTADDR; 

R3 := LSTACK<R10) SHLL 1 SHRL 1; 

RO := RO AND MASK1 SHLL 1; 

IF RO < THEM 



^ ^ft*F^" i ^^^fc^Wfll 
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0492 

049 3 
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LSTACKCRIO) := R4j 



BEGIN COMMENT SHORT; 

R4 := R4 + 3 AND SMASK; LSTACKCRIO) : = 
RO := R3 OR R4 OR #70000000'; 

R4 := R4+4; 
END ELSE 
BEGIN COMMENT LONG; 

R4 •= R4 + 7 AMD #FFFFFFF8; 

RO := R3 OR R4 OR #60000000; 

R4 := R4+8; 
END; 

NEXTADDR s= R4; 
EMIT; 

Rl ■:= SAVER 1; R4 
RIO ■:= SAVERA; 
END; 



R4; 



:= SAVER4-4; 



PROCEDURE 0UMPPRFLREGCR1) ; COMMENT WRITES INSTRUCTIONS TO DUMP OLDEST 



VALUE , WHICH IS COMPLEX, IN LOCAL STACK. 
FSTACK, PUTS REGISTER NUMBERS IN BITS 8 TO 
BEGIN LOGICAL SAVER1, SAVER4; 

LOGICAL SAVERA; SAVERA := RIO; 

SAVER1 := Rl; SAVER4 := R4; 

MVC C 1 1 , FSTACK, FSTACK C4) ) ; 

RIO := RO AND MASK; R4 ".= NEXTAQDRj 

R3 := LSTACKCRIO); 

RO := RO AND MASK1 SHLL 1; IF RO < THEN 

BEGIN COMMENT SHORT; 



UPDATES L STACK AND 

11 AND 12 TO 15 OF R3| 



R4 ', 
RIO 
RO : 
RIO 
RO 



R4 + 3 AND SMASK; LSTACKCRIO) := R4| 



AND MASK5; 

OR R4 OR #70000000; 

AND MASK* SHLL 4; 

OR R4 OR #70000000; 



: = R3 

= RIO 

J= R3 

= RIO 
END ELSE 
BEGIN COMMENT LONG; 

= R4 + 7 AND #FFFFFFF8; 

s= R3 AND MASKS; 

= RIO OR R4 OR #60000000; 
AND MASK4 SHLL 4; 
OR R4 OR #60000000; 



EMIT; R4 := R4+4; 



R4 ;= R4+4J 



:= R3 
= RIO 



R4 

RIO 

RO 

RIO 

RO 
END; 

NEXTADDR := R4; EMIT; 
Rl := SAVER 1; R4 := SAVER4-4; 
RIO := SAVERA; 
END; 



LSTACKCRIO) := R4; 
EMIT; R4 := R4+8; 



R4 := R4+8; 



PROCEDURE FLREGCR1); COMMENT MAKES 
LEAVING ITS NUMBER IN BITS 8 TO 
UPDATED. RO IS 
COMPLEX! 0) AND 



AVAILABLE A FLOATING REGISTER, 
11 OF RO. FSTACK AND LSTACK ARE 
AM INPUT WITH ITS SIGN BIT TO INDICATE REAL(l) OR 
THE ADJACENT BIT TO INDICATE SH0RTC1) OR LONG(O); 



BEGIN LOGICAL SAVERO, SAVER1; 
SAVERO := RO; SAVER1 := Rl; 
FOR R3 := STEP 2 UNTIL 6 



00 



BEGIN RO 

BEGIN 

RO 

R3 

END; 

END; 



:= F(R3); IF RO >= THEN 
COMMENT REGISTER FREE; 
:= FLAG; IMR3I := RO; 
:= R3 SHLA 20; GOTO FLR1; 
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0-52 3 
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0542 
543 
0=544 
545 
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0; F<R1) := RO; 



COMMENT NO REGISTER FREE; 

RO := FSTACMO) ; 

IF RO < THEN OUMPFLREG ELSE 

BEGIN 

OUMPPRFLREG; 

Rl := P. 3 AND MASK4 SHRL 16; RO 

R3 := R3 AND MASK 5; 
END; 
FLP, 1: RO := R3 ; 

R3 := R3 DR SIGN; 
LSTACK(R5) : = R3 ; 
R3 := R5 OR SAVERO; 
FSTACK0R4) := R3; 
R4 := R4+4; R5 : =. R5+4; 
Rl := SAVER 1; 
END; 

PROCEDURE PRFLREG(Rl); COMMENT MAKES AVAILABLE A PAIR OF FLOATING 

REGISTERS: LEAVING THEIR NUMBERS IN BITS 8 TO 11 AND 12 TO 15 OF RO, 

OTHERWISE SIMILAR TO FLREG; 

BEGIN 

LOGICAL SAVERO, SAVERl ; SAVERO : = RO; SAVER1 s= Rl; 
RIG :•= 0; 
PRF5: FOR R3 := STEP 2 UNTIL 6 DO 

BEGIN RO := FCR3I; IF RO >= THEN 

BEGIN RO := FLAG; F(R3) := RO; GOTO PRF1; END; 
END; 
PRF3: RO := FSTACK(O); 
IF RO < THEM 
BEGIN OUMPFLREG; IF RIO < THEN 

BEGIN R3 := R3 SHRA 4; GOTO PRF2; END ELSE 
BEGIN RIO :•= R3 OR SIGN; GOTO PRF3; END; 
END ELSE 
BEGIN OUMPPRFLREG; IF RIO < THEN 

BEGIN R3 := R3 SHRA 4; Rl := R3 AND MASK SHRA 12; RO := 0; 

F<R1) := ROI R3 ■:■= R3 AND MASKlj GOTO PRF2; END ELSE 
BEGIN RO := R3 OR SIGN; GOTO PRF4; END; 
END; 
PRFl: IF RIO >= THEN 

BEGIN RIO := R3 SHLA 20 OR SIGN; GOTO PRF5; END ELSE 
R3 := R3 SHLA 16; 
PRF2: RO := RIO OR R3; 

PRF4: LSTACMR5) := RO; R3 := R5 OR SAVERO; FSTACKJR4) : = R3| 
R4 := R44-4; R5 := R5+4; 
Rl := SAVERl; 
END; 

SEGMENT PROCEDURE LEVELA(Rl); 
BEGIN LOGICAL SAVERl; 

PROCEDURE DUHPALLFLREGiRl) % COMMENT WRITES INSTRUCTIONS TO DUMP ALL 
OCCUPIED FLOATING REGISTERS INTO THE LOCAL STACK, CLEARS F AND 
F STACK, UPDATES LSTACK; 
BEGIN 

LOGICAL SAVEROt SAVERl, SAVER3; ST«< R0,R1, SAVERO) ; SAV6R3:=R3j 

WHILE R4 > DO 

BEGIN 

RO := FSTACK(O); 



• 






• 
# 
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IF RO < THEM DUMPFLREG ELSE OUMPPRFLREG; 
END; 

FOR R3 := STEP 2 UNTIL 6 DO F { R3 ) := R4; 
LM(R0,R1, SAVERO); R3 := SAVER3; 
END; 

PROCEDURE RELEASETRl); COMMENT ADJUSTS THE REGISTER ARRAYS TO EFFECT 
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THE FREEING OF A REGISTER OR PAIR 
THE SAME FORMAT AS FOR ASSEMBLE. 
BEGIN LOGICAL SAVER3, SAVEROJ 

LOGICAL SAVER6, SAVERA; SAVER6 

SAVER 3 := R3J SAVERO := RO; RO 

IF R6 > 5 THEN R6 := 1; 

RIO := R3 SHRL 12; 

IF R3 > = AND RIO >= CLN THEN 

BEGIN R3 := RIO + RIO; RCR3 3 1= 

IF R6 = 1 THEN 

BEGIN 

RIO := R3 
BEGIN RIO 
R3 : = 
END ELSE 
BEGIN R3 := 
RZ := R2-4; 



OF REGISTERS. P. 3 IS AM 
TYPE IN LOW BITS OF R6; 



INPUT IN 



:= R6; 



SAVERA := RIO 



NULL 

RO *, 



ELSE IF R3 >=0 THEN 
R2 := R2-4; END ELSE 



SHLL 12; IF RIO -- THEN 

:= RID SHRL 27; R(RIO) := RO; 

R3 AND MASKS SHRL 19; RCR3) : = RO; 

= R3 SHLL 1 SHRL 20; R{R3) := RO; END; 



END ELSE 
IF R6 

BEGIN 

BEGIN 

R3 

end; 



< 4 THEN 

R3 := R3 SHLL 1 SHRL 21; 
R3 := R3 AND MASK 4 SHRL 
:= SAVER3 AND MASKS SHRL 
R.3 := SAVER3; RO := SAVERO 



F{R3) := RO; R4 
16; FIR3) := RO; 
20; F<R3) := ROi 



:= R4-4; END ELSE 
R4 := R4-4; 



RIO 

END; 



= SAVERA; R6 := SAVER6; 



PROCEDURE ZRELEASEIR1); COMMENT SAME AS RELEASE EXCEPT INPUT IN RO. 
RO AND R3 MUST BE SAVED; 



BEGIN LOGICAL 5AVER3; 

LOGICAL SAVER IS SAVERl 

S A VERB := R3; R3 := RO; 

RO := R3; R3 s= SAVER3; 
Rl := SAVERl; 
END; 



= Rl; 

RELEASE 



PROCEDURE DUMPGENREGCR1 ) ; 
GENERAL REGISTER VALUE 



COMMENT WRITES INSTRUCTION TO DUMP OLDEST 
INTO LOCAL STORE, ADJUSTS LSTACK AND RSTACK, 



AND PUTS AVAILABLE REGISTER NUMBER IN BITS 8 TO 11 OF R3. 
LSTACK ENTRY IS A PAIR, ONLY THE ODD REGISTER IS SAVED AMD 
REGISTER IS FREED; 

SAVERl := Rl; 

RO; R2 := R2-8; 

R2 00 

RSTACK(RIO); RSTACMR3) := RO; 



IF THE 

THE EVEN 



RO : = 
= L STACK (P.3) 



BEGIN LOGICAL SAVERl, TEMP; 
RO s= RSTACK(C); TEMP : = 
FOR R3 := STEP 4 UNTIL 
BEGIN RIO := R3+4; 
R3 1= TEMP; RO 
NEXTADOR : = RIO; 
LSTACK! R3) J= RIO; 
IF RO < THEN 
BEGIN 

R3 := RO; RO := RO 
IF RO -.= THEN 



RIO := NEXTADDR +3 AND 



END; 
SMASKJ 



SHLL 12; 
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063 9 

064 
0641 
0642 
064 3 
644 
0645 
0646 
0647 

064 3 
0649 
0650 

065 1 
0652 
0653 
0654 
065 5 
65 6 
065 7 
065 8 

065 9 

066 
0661 
662 
0663 
664 
0665 
666 

066 7 
0668 
0669 
0670 
0671 
672 
0673 
0674 
6 7 5 
0676 
0677 
0678 

067 9 
0680 
0631 
0682 
633 
0634 
0635 
0686 
0687 

068 8 
0639 
0690 
0691 
692 
0693 
0694 
69 5 
0696 



BEGIN R3 := R3 AND MASK5 SHRL 19; 

TEMP : = RO; RO := Oj R(R3) := RO; 

R3 := TEMP SHRL 8 ; 
END; 

R3 := R3 SHLL 1 SHRL 1? 
END ELSE 
BEGIN 

R3 := RO AND BASEMASK SHLL 8; 

RIO := RO AND MASK8J 

IF RIO i= THEN BEGIN RO := RO OR R3 OR #41000000; EMIT; END; 
END; 

RO := R3 OR NEXTADDR OR #50000000; EMIT; 
RIO := 4; INCRADDR-; 
R2 := R2+4; 
Rl s= SAVERl; 
END; 



PROCEDURE FORCEC0MPLEXCR1) .; COMMENT FORCES REAL PART INTO FO 
PART INTO F2. INPUT IS RO = #38000000 OR RO = #28000000 
DEPENDING ON SIMPLETYPE SHORT OR LONG COMPLEX; 
BEGIN INTEGER SAVERl, SAVER3, SAVERA, PREFX; 

= RIO; PREFX := RO; 



AND IMAG 



Rl := F(0) 



SAVERl := Rl; SAVER3 := R3; SAVERA 
R3 := LSTACKM41R5) AND MASK 5 SHRL 4; 
RIO := LSTACKMMR5) AMD MASK4; 
IF Rl =0 AND RIO -.= THEN 
BEGIN COMMENT FO NOT OCCUPIED; 

RO := PREFX OR R3j IF RO -*= PREFX THEN EMIT; 
END ELSE 

BEGIN COMMENT FO OCCUPIED; 
IF R3 -i= THEN 

BEGIN COMMENT REAL PART NOT IN FO; 
:= F(2?; 

Rl = AND R3 -*= #00020000 THEM 
BEGIN COMMENT F2 NOT OCCUPIED. IMAG 
MOVE INTO F2. MOVE REAL PART INTO 
RO 2= PREFX OR #00 200000; 
RO := PREFX OR R3 ; EMIT; 
END ELSE 

BEGIN COMMENT F2 OCCUPIED. SWAP 
:= #00600000 OR PREFX; 
:= #00020000 OR PREFX; 
\- #0026 0000 



Rl 
IF 



PART 
FO; 

EMIT; 



IN FO 



RO 
RO 
RO 
END; 
RIO :■ 
END; 
END; 
Rl : = 
BEGIN 



OR PREFX 



FO AMD 
EMIT; 
EMIT; 

EMIT; 



F2; 



#20000; 



RO 
END; 
Rl : = 

END; 



F{2); IF Rl = AND RIO -. 

COMMENT MOVE IMAG PART INTO F2 ; 
:= PREFX OR #00200000 OR RIO; 



= #20000 THEN 



EMIT 



SAVERl; R3 ■:= SAVER3; RIO := SAVERA; 



PR OC EDURE GENREG C R 1 ) ; 

COMMENT MAKES AVAILABLE A GEN 

NUMB E R TO RO ( 8 : 1 i I , LS T AC K , 
BEGIN LOGICAL SAVERl, SAVERA; 
RIO :- CLN - 1 SHLA Is RO 



ERAL REGISTER. 

RSTACK UPDATED. CHANGES Rl, R3 ALSO; 

SAVERl := Rl; SAVERA '.= RIO; 
:= FLAG; 
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09 


04 3E 


07 


07C4 


09 


0442 


07 


07C8 


9 


C44E 


07 


07 C 8 
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069 7 
0698 
0699 
0700 
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070 3 
07 04 
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0706 
70 7 
0708 
70 9 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
718 
0719 
0720 
721 
072 2 
0723 
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072 5 
0726 
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072 8 
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0735 
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754 



FOR R3 := 4 STEP 2 UNTIL RIO DO 

IF RO -,= R(R3) THEN 

BEGIN COMMENT REGISTER FREE UNLESS R3 AND PROTECTED BY R3FLAG; 

IF -.R3FLAG OR R3 -*=■ 6 THEN 

BEGIN RIR3) := RO? R3 := R3 SHLA 19; GOTO X; 

END; 
END; 

OUMPGENREGS COMMENT NO REGISTER FREE, DUMP AND ALLOCATE OLDEST; 
X: RO : = R3 ; RESETCR3FLAG ) ; RSTACKJR2) := R5; R5 := R5 + 4; 

R3 := R3 OR SIGN; LSTACKM4CR5) := R3; R2 := R2 + 4; 
RIO s= SAVERA; Rl := SAVER 15 
END; 

PROCEDURE FIXUP(Rl) J 

COMMENT R3 HAS BRANCH ADDRESS : LOGPOINTER POINTS TO FIRST FIXUP; 
BEGIN LOGICAL SAVER1 ,S AVER2; 

SAVER 1 := Rl; SAVER 2 ?= R2; 

R2 := LOGPOINTER; R2 2= R2 - 4; LOGPOINTER := R2J 

RO := L0GSTACMR2); R3 := R3 OR #E000; 

WHILE RO -.= DO 

BEGIN R2 := RO; RO := PROGRAM (R 2+2 ) ; RO := RO AND flFFFl 
PROGRAM R2 + 2) := R3; 

END; 

R3 := LOGPOINTER; RO := LOGSTACK C R3+4 J ; L0GSTACKCR3) := RO; 

Rl :- SAVER 1; R2 := SAVER2; 

end; 

PROCEDURE L06BRANCH C Rl ) ; 

BEGIN LOGICAL SAVERl; SAVER1 := Rl; 

RO := RO SHLL 20 OR #4700E000; EMIT; 
Rl := SAVERl; 
END; 
PROCEDURE LINKBRANCHES(Rl) .; 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

RO := INSCOUNTER - 4; RIO : = LOGPOINTER; 
Rl := LOGSTACK2IR10) ; LOGSTACK 2 (RIO) := RO; 

RIO s= RO; PROGRAM} R10+2) := RlJ 
Rl := SAVERl; 
END; 
PROCEDURE EVALUATELOG(Rl) ; 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

R3 := LOGPOINTER; RO := 0; IC ( RO , LOGSTACK (R3+1 }) ; 

R3 := R3 - 4; LOGPOINTER := R3 ; LOGBRANCH; LINKBRANCHES; 

GENREG; R.3 := LOGPOINTER; IC? R3,L0GSTACK(R3+4) ) ; 

R3 := R3 AND #FF; CASE R3 OF 

BEGIN 

BEGIN RO := RO OR #41000000; EMIT; R3 := INSCOUNTER - A; 
FIXUP; R3 := INSCOUNTER + 8; RO := S47F0E000 OR R3; 
EMIT; R3 := LOGPOINTER + 4; LOGPOINTER := R3 ; 
R3 := INSCOUNTER; FIXUP; 
RO := LSTACKM4IR5) XOR SIGN OR #41000001; EMIT; 

end; 

begin ro := ro or #41000001; emit; r3 i~ inscounter - 4; 

fixup; r3 := inscounter * 8; ro := #47f0e000 or r3; 

emit; r3 := logpointer + 4; logpointer := r3j 

r3 := inscounter; fixup; 

ro := lstackm4cr5) xor sign or #41000000; emit; 

END; 
END; 
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75 5 
756 

7 5 7 

75 8 

075 9 

076 
761 
0762 
0763 
0764 
76 5 
0766 
0767 

076 8 
769 

077 
07 71 
0772 
0773 
07 74 
077 5 
07 76 
07 7 7 

077 8 
0779 
0780 
0781 
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07 83 
0734 
0785 
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0737 

078 8 
0789 

079 
0791 
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79 3 
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80 5 
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0807 
0808 
0309 
0310 
0311 
0312 



R3 := LOGPOINTER 

Rl := SAVER1; 

END; 



4; 



LOGPOINTER := R3 ; 



NEXTAOOR s= RIO J 



PROCEDURE STQRERESULT(Rl) J COMMENT THIS PROCEDURE STORES THE 

REGISTER(S) GIVEN BY THE TOP ENTRY OF LSTACK INTO THE LOCAL STACK 
STARTING AT NEXTAOOR, AND EMITS LA 3, NEXTAOOR . NEXTAOOR IS RESET 
TO A WORD BOUNDARY WHEN DONE. SIMPLETYPF IN LOW BITS OF R3 - 
BITS AND REFERENCE = INTEGER ; 

BEGIN INTEGER SS1,SS6,SS3; SSI i= Rlj SS6 ? = R6; SS3 := R3 ; 
IF R3 -t= 6 THEN 
BEGIN 

RIO := NEXTAOOR + 3 SHRL 2 SHLL 2; 
END; 

RIO := LSTACKM4(R5! AND MASKS; 
CASE R3 OF 
BEGIN 
BEGIN 

Rl:=N£XTADDR; RO:=R10 OR #50000000 
END; 
BEGIN 
Rl 
END; 
BEGIN 
Rl 
RO 
END; 
BEGIN 

R0:=R10 OR #70000 000 OR NEXTAOOR; 
RO := LSTACKM4CR5) AND MA5K4 SHLL 
s = Rl + 8; 



:= NEXTAOOR; 



OR Rl; R10:=Rl+-4; 



RO := RIO OR #70000000 OR Rl; RIO :» Rl + 4; 



NEXTAOOR + 7 SHRL 3 SHLL 3; 
RIO OR #60000000 OR Rl; RIO 



NEXTADDR : = Rl; 
:■= Rl + 8; 



EMIT; R1?=NEXTAQQR; 
4 OR #70000000 OR Rl 



+ 4; 



RIO 

end; 

BEGIN 

Rl : 

RO : 
RO i 



NEXTAOOR + 7 SHRL 3 SHLL 3; 

RIO OR #60000000 OR Rl; EMIT; 

LSTACKM4CR5) AND HASK4 SHLL 4 OR 

a; 



NEXTAOOR := Rl; 

Rl := NEXTADDR; 
#60000000 OR Rl + 



8; 



RIO := Rl + 
END; 
BEGIN COMMENT LOGICAL; 

TEST(TERMNODE); IF -i= THEN 
BEGIN COMMENT NONTERMINAL; 
RIO := R7 SHLL 8 SHRL 24; 
IF RIO = THEN EVALUATELOG; 
R3 := LSTACKM4LR5); R6 := 6; 
>= THEN 
RO := #43300000 
:= R3 SHLL 1 
-.= #18330000 



RELEASE; R5 :* R5 - 4J 



RO 
RO 



OR R3; EMIT; END ELSE 
SHRL 5 OR #18300000; 
THEN EMIT; 



IF R3 
BEGIN 
BEGIN 
IF 
END; 
END; COMMENT VALUE IN R3; 
Rl := NEXTADDR; RO : = #42300000 OR Rl; 
END; 

END; 
NEXTADDR := RIO; RIO := #41300000 OR Rl; 
EMIT; RO := RIO; EMIT; 
Rl := SSI; R6 := SS6; R3 := SS3; 

END; 



RIO := Rl + 4; 
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0815 
08 1 6 
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0861 
086 2 
0363 
0364 
086 5 
0866 
0367 

086 8 
0869 

087 



-- R3; SRA : = RIO; 
4; UMREC1R3I := RIO; 



R3 := R3 + 2; 



PROC E DU RE S ET R ECORO < R 1 ) ; 

BEGIN LOGICAL SR3,SRA; SR3 

R3 := PUMREC; RIO := R5 

PUMREC := R3; 
COMMENT TEST FOR ERROR; 
R3 := SR3; RIO := SRA; 
END; 
PROCEDURE RESETRECORDIRIJ ; 

BEGIN LOGICAL SR 1 * SR3» SRO, SRA ; 

SRI := Rl; SR3 : = R3; SRO := RO j SRA := RIO; 
FOR RIO := PUMREC - 2 STEP _2 UNTIL DO 
IF R5 = UMREC(RlO) THEN 

BEGIN RO := PUMREC -2 ; PUMREC := RO; 
FOR R3 := RIO STEP 2 UNTIL PUMREC 00 
BEGIN RO := UMR£C(R3+2); UMRECCR3) := RO; 
END; 

GOTO RSI; 
END; 

FOR RIO := PMREC - 2 STEP _2 UNTIL DO 
IF R5 = MR EC (RIO) THEN 
BEGIN RO := LSTACMR5); 
IF RO >= THEN 
BEGIN RO := RO OR #58100000; EMIT; 

RO := Nil OR #3F1000; EMIT; 
END ELSE 

BEGIN RO := RO XOR SIGN SHRL 8 OR Nil OR #3FO0O0; EMIT; 
END; 

RO := PMREC - 2; PMREC := RO; 
FOR R3 := RIO STEP 2 UNTIL PMREC DO 
BEGIN RO := MRECCR3+2); MRECCR3) := RO; 
END; 

GOTO RSI; 
END; 
RSI: Ri := SRi; R3 :=SR3; 
END; 
PROCEDURE CHECKMARK! Rl) ; 

BEGIN LOGICAL SRI; SRI 
R5 := R5 - 4; 

FOR R3 := PMREC - 2 STEP _2 UNTIL DO 
IF R5 = MRECCR3) THEN 
BEGIN RO ;= LSTACKI R5+4); 

IF RO < THEN RO := RO XOR SIGN SHRL 8; 
RO := RO OR Oil OR #400000; EMIT; GOTO CMlJ 
END; 
CMl: Rl := SRi; R5 := R5 + 4; 
END; 
PROCEDURE MARKRECORDS(Rl); 

BEGIN LOGICAL SR1,SR2; SRI := Rl; SR2 := R2; 
RIO i~ PUMREC - 2; R2 := PMREC; 
FOR R3 := STEP 2 UNTIL RIO DO 
BEGIN 

Rl := UMRECIR3); RO := LSTACK(Rl); 

IF RO >= THEN 

BEGIN RO := RO OR #58100000; EMIT; 

RO := Oil OR #401000; EMIT; 

END ELSE 

BEGIN RO := RO XOR SIGN SHRL 8 OR Oil OR #400000; EMIT; 
END; 



RO i= SRO; RIO 5= SRA; 

= Rl; 
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10 


0100 


07 


0810 


% 10 


0100 


07 


08 1C 


10 


C10 


07 


0310 


10 


0100 


07 


08 1C 


% 10 


01 C 3 


07 


032 


10 


0114 


07 


0820 



0871 
0372 
873 
374 
875 
87 6 
877 

087 8 
0879 
0380 
0381 

088 2 
0883 
0884 
83 5 
0836 
0807 
0338 
0889 
390 
0891 

089 2 
0393 
0394 

089 5 
0896 
0397 
39 8 
0899 
0900 

090 1 
0902 
0903 
0904 
090 5 
0906 
0907 
9 90 8 
909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 
921 
0922 
0923 
0924 
0925 
0926 
mil 



ALGOL W COMPILER - PASS 3 

Rl := UMRECIR3) ; 
MRECIR2) := Rl.; R2 : 
END; 

PMREC := R2J RO := RO 
Rl := SRI J R2 := SR2; 
END; 

SEGMENT PROCEDURE LEVELO(Rl); 
BEGIN LOGICAL SAVER1; 
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R2 + 2; 

RO; PUMREC := RO; 



PROCEDURE DUMPALLGENREGiRl ); 

BEGIN LOGICAL SAVERl, SAVERO, SAVER3J 

SAVERl i= Rl; SAVERO := RO; SAVER3 

«HILE R2 > DO 

BEGIN DUMPGENREG; R3 := R3 SHRL 19; 

END; 

Rl s= SAVERl; RO := SAVERO 
END; 



:= R3; 
RO := OS R(R3J '- RO; 



R3 := SAVER 3 



PROCEDURE PRGENREG(Rl); CO 

GENERAL REGISTERS, LEAV 

DIVIDE FLAG IS ON OR OF 

ARE UPDATED. TOE LSTAC 

8 TO 11 AMD THE ODD NUM 

FLAGGED IN R; 

BEGIN LOGICAL SAVERl, T 

SAVERl := Rl; Rl := 

A: RO := 4; TESTCR3F 

BEGIN RESETCR3FLA 

FOR R3 := RO STEP 4 

BEGIN RO := R { R3 ) ; I 

BEGIN RIO := R3+2 

BEGIN RO s= FL 

END; 
end; 

comment no free pair 

dumpgenreg; r3 := r3 

8: test{ divide); if = t 

r3 := r3 shll 4 or r 

LSTACKCR5) := R3; RS 
R2 := R2+4; R5 := R5 
Rl := SAVERl; 
END; 



MMENT MAKES AVAILABEL AN EVEN-ODD PAIR OF 
IMG THE EVEN OR ODD NUMBER, ACCORDING AS THE 
F, IN BITS 8 TO 11 OF RO. R STACK AND LSTACK 
K ENTRY CONTAINS THE EVEN NUMBER IN BITS 
BER IN BITS 12 TO 15. BOTH REGISTERS ARE 



OP; 

CLN - 1 SHLA 1-2! 
LAG); IF = THEN 
G); RO := 8; END; 
UNTIL TOP DO 
f RO = THEN 
.; RO := RIR10) ; IF RO - 
AG; R(R3) := RO ; R(R10) 



TOP ?= Rl; 



THEN 

= RO; 



GOTO BJ END; 



SO DUMP OLDEST VALUE AND TRY AGAINJ 
SHRL 19; RO s= 0; R(R3) := R0| GOTO A; 

HEN RO := R3 SHLL 19 ELSE RO := RIO SHLL 

10 SHLL 15 OR SIGN; 

TACKCR2) := R5; 

+4; 



19; 



PROCEDURE FORCEPAIR 

FORCED INTO THE 

SHOWING THE REG I 

CODE I S GENERATE 

11. THE TOP LST 

THE DIVIDE FLAG 

REGISTER ACCORD! 

REGISTER (S ) IN T 

BEGIN LOGICAL SA 

PROCEDURE NEWPAI 

ODD REGISTER; 

BEGIN LOGICAL 

R2 s= R2-4 

R3 : = SAVE 



4R1); COMMENT A VALUE IN A GENERAL REGISTER IS 

ODD REGISTER OF AN EVEN-ODD PAIR. RO IS AN INPUT 

STER(S) HOLDING THE VALUE. IF THIS IS A PAIR NO 

D. RO IS AN OUTPUT WITH EVEN REGISTER IN SITS 8 TO 

ACK ENTRY IS UPDATED TO SHOW THE PAIR UNLESS 

IS ON, IN WHICH CASE IT SHOWS THE EVEN OR ODD 

NG AS THE REMAINDER FLAG IS ON OR 

HIS ENTRY ARE FLAGGED AS OCCUPIED 

VERO, SAVERl, SAVER3; 

R(R1); COMMENT FINDS NEW EVEN-ODD 



OFF. JUST THE 

BY THE RESULT? 

PAIR AND LOADS 



SAVERl ; SAVERl 5 = Rl; 
; R5 := R5-4; PRGENREG: 
RO SHRL 19; 
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10 


1 1C 


07 


0820 


10 


012C 


07 


0820 


10 


0134 


07 


0820 


10 


0146 


07 


320 


10 


0146 


07 


0820 


10 


014E 


07 


08 20 


10 


C14E 


07 


082 


10 


0136 


07 


8 24 


10 


0168 


07 


082 4 


10 


C168 


07 


824 


10 


017C 


07 


08 24 


10 


0180 


07 


824 


10 


1 8 A 


07 


0824 


10 


018A 


07 


08 24 


10 


019A 


07 


08 24 


10 


01A6 


07 


824 


10 


01A6 


07 


0824 


10 


01AA 


07 


08 24 


10 


01BA 


07 


08 24 


10 


QIC A 


07 


0824 


10 


C1CA 


07 


0824 


10 


01CE 


07 


0824 


10 


C1CE 


07 


08 24 


10 


1 2 


C7 


0824 


10 


01D4 


07 


08 24 


10 


C1D8 


07 


824 


10 


oiea 


07 


0824 


10 


01F4 


07 


0824 


10 


202 


07 


0824 


10 


02C8 


07 


0824 


10 


C21A 


07 


0824 


10 


C21A 


07 


0824 


10 


0222 


07 


08 24 


10 


02 2 A 


07 


08 24 


10 


0236 


07 


08 24 


10 


023 E 


07 


0824 


10 


0242 


07 


08 24 


10 


Q?4A 


07 


82 4 


10 


02 56 


07 


0824 


10 


025A 


07 


824 


10 


025A 


07 


0824 


10 


02 66 


07 


0824 


10 


02 74 


07 


0824 


10 


027E 


07 


0824 


10 


02 82 


07 


0824 


10 


028 6 


07 


0824 


10 


02 86 


07 


0824 


10 


0286 


07 


0824 


10 


028E 


07 


082 4 


10 


028E 


07 


08 24 


10 


02A0 


07 


0824 


10 


02 A 8 


07 


03 24 


10 


02 AC 


07 


0824 


10 


02C6 


07 


0824 


10 


2C6 


07 


0324 


10 


C2C6 


07 


824 


10 


C2D8 


07 


0824 


10 


02CA 


07 


08 24 



0929 
093 

093 1 
0032 
8933 
0934 
93 5 

8 93 6 

09 37 
9 38 
0939 

0940 
0941 
0942 
0943 
09 44 

094 5 
0946 
0947 
0948 
0949 
09 50 

095 1 
0952 
0*353 
0954 
095 5 
0956 
0957 

095 8 
0959 
0960 
961 
0962 
0963 

096 4 
0965 
096 6 

096 7 
9968 
0969 
09 70 
0971 

097 2 
0973 
0974 
0975 
0976 
0977 
97 8 
0979 
09 80 

098 1 
098 2 
0983 
098 4 
0985 
0986 



RIO := 0; R(R3j := RIO; R3 := SAVERO SHRL 4j 

TEST (DIVIDE) ; IE -»= THEN 

BEGIN! P.O := KO OR R3 OR #18000000; EMITS COMMENT LOAD NEW ODD 

REGISTER; 

RO := LSTACKM4(R5) AND MASKS; 
END ELSE 
BEGIN LOGICAL SAVERO; SAVERO := RO; 

RO := RO OR R3 OR #18000000; EMIT; COMMENT LOAD NEW EVEN 

REGISTER AND SHIFT; 

RO := SAVERO OR #8E000020; EMIT; 

RO := SAVERO; 

Rl := Rl - Rl; IF REMAINDER THEN 

BEGIN COMMENT MARK ODD FREE; 

R3 := LSTACKM4CR5) AND MASK* SHRL 15; R(R3) := Rl; 
R3 := LSTACKM4(R5) AND MASKS OR SIGN; 

END ELSE 

BEGIN COMMENT MARK EVEN FREE; 

R3 := LSTACKM4CR5) AND MASKS SHRL 19; RCR3) S= Rl; 

p. 3 := lstackm4{r5) and mask4 shll 4 or sign; 

end; 

LSTACKM4CR5) : = R3; 
END; 
Rl := SAVER l; 
END; 

SAVER3 := R3; 

SAVER 1 := Rl; RO := RO SHLL 1 SHRL 1; SAVERO := RO; 
R3 := RO SHLL 12; IF R3 = THEN 

BEGIN RO := RO SHRL 20; R3 := RO SHRL 1 SHLL 1; 
IF RO = R3 THEN 

BEGIN R3 ':« R3 + 1 SHLL 1; RIO := R(R3>; IF RIO = THEN 
BEGIN 

TESTLREMAINOER); IF -.= THEN 

BEGIN RIO := FLAG; R{R3) := RIO; END; 

RO := SAVERO OR #8 £000020; EMIT; COMMENT SHIFT TO 

ODD REGISTER; 

RO := SAVERO; 

TEST* DIVIDE); IF -.= THEN 

BEGIN R3 := R3 SHLL 15; RIO := RO OR R3 OR SIGN; 

LSTACKM4JRS) := RIO; 
END ELSE 
BEGIN TESTC REMAINDER); IF -»= THEN 

BEGIN RIO := RO SHRL 19; RO := 0; RtRlD) := RO; 
R3 := R3 SHLL 19; RIO := R3 OR SIGN; 
LSTACKM4CR5) := RIO; 
RO := SAVERO; 
END; 
END; 
END ELSE NEWPAIR; 
END ELSE 

BEGIN R3 := R3 SHLL l; RIO := RCR3); IF RIO = THEN 
BEGIN TEST (DIVIDE); IF = THEN 
BEGIN R3 := R3 SHLL 19; 

RO := SAVERO SHRL 4 OR R3 OR #18000000; EMIT; 
COMMENT LOAD FROM ODD TO EVEN REGISTER AMD SHIFT 
TO EXTEND SIGN; 
RO := R3 OR #8A00001F; EMIT; 
RO := R3; 
TEST* REMAINDER); IF = THEN 



• 



• 
# 
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10 


02E2 


7 


0324 


LO 


02 E A 


07 


082 4 


10 


02F6 


07 


824 


10 


030 


7 


08 24 


10 


03 


07 


0824 


10 


300 


07 


0824 


10 


03 OC 


07 


0824 


10 


2 1A 


7 


032 4 


10 


03 20 


07 


0824 


10 


0.3 20 


07 


0324 


10 


32 8 


07 


0824 


10 


03 2 3 


07 


324 


1(3 


032 8 


07 


0824 


10 


3 3 4 


07 


0324 


10 


03 3C 


07 


0824 


10 


0346 


07 


0824 


10 


034 E 


07 


324 


10 


3 5 3 


07 


0824 


10 


C3 58 


07 


0824 


10 


36 6 


07 


0824 


10 


036E 


07 


C 324 


10 


037C 


07 


0824 


10 


0.3 TC 


07 


0824 


10 


0380 


07 


0824 


10 


C380 


07 


0824 


10 


384 


07 


0324 


10 


0384 


07 


0324 


10 


C3 8C 


07 


324 


10 


C390 


07 


824 


10 


C392 


07 


0324 


10 


0392 


07 


0824 


10 


03^2 


07 


0824 


10 


C352 


07 


0824 


10 


0.356 


07 


0328 


10 


03A6 


07 


08 28 


10 


03 82 


07 


0826 


10 


3C2 


07 


0828 


10 


03C6 


07 


0828 


10 


C3C3 


07 


0328 


10 


30 8 


07 


0328 


10 


0308 


07 


0828 


10 


03C3 


07 


03.28 


10 


03C8 


07 


082 8 


10 


03C8 


07 


08 28 


10 


03C8 


07 


082 3 


10 


03C3 


07 


0828 


10 


C3C8 


07 


0828 


10 


03C8 


07 


08 31 


10 


0.304 


07 


0831 


10 


C3F 


07 


083.1 


10 


0404 


07 


0831 


10 


414 


07 


831 


10 


4 2C 


07 


0831. 


10 


0434 


07 


0331 


10 


€434 


07 


0831 


10 


044C 


07 


08.31 


10 


0464 


07 


0831 


10 


C48C 


07 


0331 



09 87 


093 8 


0980 


0990 


099 1 


099 2 


009 3 


0994 


9 9 5 


099 6 


0997 


099 8 


099 9 


1000 


1001 


100 2 


1003 


1004 


1005 


1006 


1007 


100 8 


1009 


1 1 


1011 


1012 


1013 


1014 


1015 


1016 


1017 


1018 


1019 


1020 


1021 


102 2 


1023 


.102 4 


102 5 


1026 


102 7 


1028 


1029 


1030 


1031 


1032 


1033 


103 4 


103 5 


1036 


1037 


103 8 


1039 


1040 


1041 


1042 


1043 


1044 



BEGIN R3 : = R3 OR SIGN; LSTACKM4<R5) :» R3; 
R3 := R3 SHLL 1 SHRL 20; RIO := FLAG; 
R(R3) := RIO; RIO := RIO - RIO; R(R3+2) s= RIO; 
E NO ; 
END ELSE 
BEGIN RIO := FLAG; R{R3) := RIO; 

R3 := R3 SHLL 19; RO := RO SHLL 16 OR R3 OR SIGN; 
LSTACKM4(R5) := RO; RO := R3; 
END; 

end else newpair; 
end; 

END ELSE 

BEGIN TEST* DIVIDE) ; IF = THEN 

BEGIN TEST {REMAINDER); IF = THEN 

BEGIN R3 := RO AND MASK 4 SHRL 15; 

RIO := 0; R(R3) := RIO; 

RO AND MASK 5 OR SIGN; 



:= RO AMD MASK5 SHRL 
0; R(R3) := RIO; 
RO AND MASK4 SHLL 4 



:= RIO; 



19; 

OP SIGN; 



SAVER3; 



RIO : = 

END ELSE 
BEGIN R.3 
RIO : = 
RIO : = 
END; 

LSTACKM4CR5) 
END; 
RO := RO AND MASK 5; 

end; 

Rl := SAVERl; R3 := 

ro := ko or sign; 

end; 

PROCEDURE ADJSTACKS<R1); COMMENT DEPENDING ON TYPE (IN 
BY 4 THE TOP OF RSTACK OR FSTACK TO POINT TO TOP OF 
BINARY OPERATION; 
BEGIN LOGICAL SAVERA; SAVERA := RIO; 

IF R6 = 1 OR R6 >= 8 THEN 

BEGIN RIO := RSTACKM4C R2 )-4; RSTACKM4IR2) 
BEGIN RIO J= FSTACKM4(R4)-4; FSTACKM4CR4) 
RIO := SAVERA; 

END; 



R6), DECREMENTS 
LSTACK AFTER 



:= RIO I 
:= RIO; 



END ELSE 

end; 



PROCEDURE FPARCODEiRl); COMMENT THIS PROCEDURE EMITS THE CODE FOR 
FORMAL NAME PARAMETERS IN EXPRESSIONS AND ASSIGNMENTS. ALL 
SUBROUTINES CALLED BY THE CODE EMITTED HERE RETURN A COMPUTED 
ADDRESS IN R3(AT RUN TIME). AT COMPILE TIME, IF RO = #FF THIS 
PROCEDURE EMITS CODE FOR FPAR ON RIGHT SIDE OF ASSIGNMENT STATEMENT. 
IF RO = 0, THE EMITTED CODE IS FOR FPAR ON LEFT OF ASSIGNMENT 
STATEMENT. R3 MUST BE POINTER TO DPD IN DATA SEG (WITH LEV NUMBER); 
BEGIN INTEGER SAVERl, DP OINTS BYTE SWW; 

SAVERl i- Rl; DPOINT := R3 ; STC(RO f SWW); 
MARKRECORDS; DUMPALLGENREG; DUMPALLFLREG; 
RO := #58300000 OR DPOINT; EMIT; 
RO := #91000000 OR DPOINT; IF SWW THEN R 
RO := RO OR #00030000; EMIT; 
= #45100000 OR NAMEERR; 



:= RO OR #00020000 ELSE 



BEGIN 
RO 

END; 

EMIT; 



Rl := LOGPOINTER 



:= Rl; RO := INSCOUNTER; 



+ 4; LOGPOINTER 

LOGSTACK(Rl) := RO; RO := #47EQE000; EMIT; 

RO := #58500000 OR DPOINT + 4; EMIT; RO :* #05130000; 

LMINS; CHAININ; 



EMIT 
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10 


04A4 


07 


0831 


10 


4B4 


07 


831 


If) 


Q4C0 


07 


08 31 


10 


C4C3 


07 


0831 


10 


C4CA 


07 


0831 


10 


04CA 


07 


0831 


10 


4CA 


07 


0331 


10 


4CE 


07 


0838 


10 


04 EC 


07 


33 8 


10 


4FG 


07 


83 8 


10 


4F2 


07 


0838 


10 


04F2 


07 


0838 


10 


04F2 


07 


0838 


10 


4F2 


07 


0840 


10 


0502 


07 


0840 


10 


C516 


07 


840 


10 


052A 


07 


0840 


10 


0546 


07 


8 40 


10 


0556 


07 


84 


10 


56 3 


07 


840 


10 


57A 


07 


0840 


10 


058A 


07 


0840 


10 


58C 


07 


0840 


10 


5 80 


07 


OH 40 


10 


058C 


07 


08 40 


10 


058C 


07 


0840 


10 


Q 5 8C 


07 


0840 


10 


5 8 C 


07 


840 


10 


058C 


07 


084C 


10 


05 8C 


07 


084C 


10 


0.5 3C 


07 


084C 


10 


C5 8C 


07 


84C 


10 


058C 


07 


084 C 


10 


0594 


07 


0850 


10 


C59A 


07 


08 50 


10 


05 A 2 


07 


0850 


10 


05AC 


07 


0850 


10 


5 AC 


07 


0850 


10 


05CA 


07 


8 50 


10 


C5CA 


07 


08 50 


10 


5D2 


07 


08 50 


10 


05DE 


07 


0850 


10 


C5DE 


07 


0850 


10 


05E6 


07 


0850 


10 


C5E6 


07 


0850 


10 


05EE 


07 


0850 


10 


05FA 


07 


0850 


10 


0602 


07 


0850 


10 


0602 


07 


0850 


10 


061 A 


07 


08 50 


10 


0622 


07 


0850 


10 


G630 


07 


0850 


10 


0630 


07 


08 50 


10 


C 6 3 3 


07 


0850 


10 


63A 


07 


0850 


10 


6 3 A 


07 


08 50 


10 


064 2 


07 


350 


10 


646 


07 


0850 



104 5 
104 6 
1047 
1048 

104 9 
10 50 
1051 

105 2 
10 53 
1054 
105 5 
10 56 
1057 
10 5 3 

105 9 
1060 
1061 
1062 
1063 
1064 

106 5 
1066 
1067 

106 8 
1069 
10 70 
10 71 
1072 
1073 

107 4 

107 5 
1076 
10 77 
10 7 8 
1079 
1080 
1081 
1082 
1033 
1034 

108 5 
1036 
1087 
1038 
1039 
1000 
1091 

109 2 
1093 
1094 
109 5 
1096 
109 7 
109 8 

109 9 

1 10 
1101 
1102 



Rl := LQGPOINTER; 

LOGPO INTER := Rl; 
Rl := SAVER 1; 
END; 



R3 :■= LOGSTACK(Rl) + 2; Rl := Rl - 4; 

RO := INSCOUNTER OR #EO00; PR0GRAMIR3) := RO; 



PROCEDURE C ALLPROPROCWOPARAM ( R 1 ) ; 

BEGIN INTEGER SAVERI; SAVER1 := Rl; 
DUMPALLGEMREG; DUMP ALL FLREG; R3 
PROCCALLCODEj Rl := SAVER1 J 

end; 

PROCEDURE REC0RDALLCCATE1R1); 

BEGIN LOGICAL ADDRESS, SAVER1 ; 
SAVER 1 := Rl; MARK RECORDS; 



:= R3 



R3; 



R3 := 05 IF R3 -.= R<6) THEN DUMPALLGENREG; 

IF R3 = R(4) THEN GENREG ELSE 

BEGIN P. (4) := R3; GENREG; R3 

R3 := 0; IC(R3,TYPEINf G*R7+1I) ; 

RO := #41300000 OR R3; EMIT; 

RO := 3RECALL0CATE; RO := MEG RO; 



:= 0; 

R3 



R{4> 

R3 



R3 s= #FFFFFFFF; 

:= R3; END; 
SHLL 4 ++ RECTABLEl 



emitcall; 



setrecord; ri 



SAVER lj 



:no; 



PROCEDURE GETAODRESS(Rl); COMMENT GETS ADDRESS FROM NAMETA8LE OR 
CONSTANT POINTER TABLE. ENTRY INDEXED BY R7, RESULT IN R3 
HIERARCHY NUMBER INCLUDED FOR ARRAYS, SIMPLE VARIABLES 
FOR LITERALS HIERARCHY NUMBER IS E ; 

BEGIN ARRAY 2 LOGICAL SAVEOl? LOGICAL SAVER7; 

PROCEDURE PRUCPARAMCR1) ; 
COMMENT SETS R3 AFTER NAME PARAM (R0=0) OR FUNCTION CALL AND 
ADJUSTS R7. FOR STRING PROCEDURES, MOVES RESULT TO LOCAL STACK; 
BEGIN LOGICAL SAVERI; SAVERI :•= Rl; 
R3 -:= R3-R3; IC< R3, SIMPLETYPE<R7) ) ; 
IF R3 =7 THEN 

BEGIN Rl := SIMTYPEI NF0CR7 ) ; IF RO -= THEN 
COMMENT STRING PROCEDURE; 
:= Rl SHLL 16 OR NEXTADOR OR #02000000; 
:= #30000000; EMIT; 

:= SIMTYPEINFO(R75; R3 : = NEXTADOR; 
:= R3 + Rl + 1; NEXTADOR i= RO; 



BEGIN 
RO 
R3 
R 1 
RO 

END ELSE 
R3 := #3000; 
Rl := Rl SHLL 
END ELSE 
IF R3 = 6 
BEGIN Rl 
END ELSE 
BEGIN IF 
R3 
Rl 
END; 

SAVER7 := Rl; Rl 
END; 



16 OR #87000000; 



THEN 

.:= #86010000; 



R3 = 1 OR 
:= R3 SHLL 24 
:= SAVER7 AND 



R3 := #3000; 

SETCR3FLAG) J 



R3 >= 8 THEN 
OR SIGN; 
800FFFFFF OR 

SAVERI; 



R3: 



R3 := #3000^ 



STMIRO, Rl, SAVEOl) ; 5AVER7 := R7; 

R7 := R7 AND #7F00FFFF; COMMENT EXTRACT OPCODE, 

RO := R7 SHRL 24; 



TABLE PTRJ 
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10 


064C 


07 


08 50 


10 


06 54 


07 


8 5 


10 


066 G 


07 


850 


10 


0670 


07 


0850 


LO 


067 C 


07 


0850 


10 


6 70 


07 


0850 


10 


0686 


07 


0350 


10 


69 A 


07 


0850 


10 


C*B2 


07 


08 50 


10 


6EA 


07 


8 50 


10 


60 


07 


0850 


10 


C6C0 


07 


0350 


10 


06 C A 


7 


0350 


10 


C6C4 


07 


08 50 


10 


06D4 


07 


08 50 


10 


06 EO 


07 


0850 


10 


C6E0 


07 


08 50 


10 


O6E0 


07 


08 50 


10 


06F4 


07 


850 


1C 


C700 


07 


85 


10 


700 


07 


0850 


10 


070C 


07 


08 50 


10 


7 24 


07 


035 


10 


7 24 


07 


0850 


10 


C 73 


07 


085 


10 


07.30 


07 


0850 


10 


0730 


07 


08 50 


10 


074 


07 


0850 


10 


C7^C 


07 


0850 


10 


07 50 


07 


0850 


10 


07 60 


07 


0850 


10 


07 7 Q 


07 


08 50 


10 


0770 


07 


0850 


10 


0778 


07 


085 


10 


07 7 A 


07 


08 50 


1'.! 


077 A 


07 


08 50 


10 


07 7 A 


07 


0850 


10 


077A 


07 


08 64 


10 


0786 


07 


0864 


10 


C 7 80 


07 


0864 


10 


07A6 


07 


864 


10 


7AC 


07 


364 


10 


07BE 


07 


864 


10 


07BE 


07 


0864 


10 


C7BE 


07 


864 


10 


07E2 


07 


0864 


10 


7F6 


07 


0864 


10 


030A 


07 


0864 


10 


o a i e 


07 


0364 


10 


0832 


07 


0864 


10 


C84A 


07 


08 64 


10 


C84E 


07 


0364 


10 


8 56 


07 


0364 


10 


QfitZ 


07 


864 


10 


37 2 


07 


0864 


10 


OB 86 


07 


364 


10 


0886 


07 


0864 


10 


800 


07 


0864 



110 3 

1104 

1105 

1106' 

110 7 

1108 

110 

1110 

1111 

1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
112 1 
1122 
1123 
1124 
112 5 
1126 
1127 
112 8 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
114 5 
1146 
1147 
1148 

114 9 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 

1 1 5 8 
1 1 5 9 
1160 



:= #FF; COMMENT ON right; 

procparam; 



IF RO = 10 THEM 

BEGIN R3 := IDL0CKR7) SHLL 12 + IDL0C2<R7M 
Ri := 0; IC<Rl,TYPE<R7l)i IF Rl = 16 THEN 
BEGIN COMMENT FORMAL NAME PARAMETER; 

Rl := STACK(RB) AND #FFFF; Rl : = TREE(Rl); 
RO := Rl SHRL 24 AND #7F ; 

IF RO >= 6 AND RO <= 9 THEN RO := ELSE 
IF RO >= 22 AND RO <= 25 THEM RO : = ELSE 
RO : = #FF; 
IF RO = THEN 

BEGIN COMMENT : = OR :=2, LEFT OR RIGHT; 
IF ARGFLAG THEN Rl :■= NEG Rl; 
IF Rl < THEM RO 

END; 

FPARCODE; RO := 0; 

END; 
END ELSE 

IF RO = CONIO OR RO = ARRAY ID THEN 
R3 := IDL0CKR7J SHLL 12 + I0L0C2CR7) ELSE 
IF RO = RJNCID THEN 
BEGIN COMMENT PARAMETERLESS FUNCTION PROCEDURE; 

MARKRECQRDS; CALLPROPROC WOPARAM; RO := 1; PROCPARAM; 
END ELSE 

IF RO = RCCLID THEN 
BEGIN COMMENT RECORD CREATOR, UNITIALIZED FIELDS; 

RECORDALLOCATE; R3 := #80300000; R6 := 9; 

RELEASE; R5 := R 5-4 ; 
END ELSE 

IF RO = NULLL THEN R3 := NOLLREF ELSE 
BEGIN COMMENT NUMBER, STRYNG, BIT, TRUE, FALSE; 

R7 := P. 7 ++ CPTBASE; R3 := CONSPTTAB CR7) AND #FFF OR #E0O0S 
END; 

LM(R0,R1,SAVE01); R7 : = SAVER7; 
END; 

PROCEDURE LOADREGtRl); COMMENT WRITES INSTRUCTION TO LOAD A REGISTER; 
BEGIN LOGICAL SAVER1 , SAVER3, SAVER6, SAVEADD, TEMP; 
SAVER1 := Rl; SAVER3 := R3; SAVER6 := R6 ; 
IF R7 >= THEN 

BEGIN GETTYPE; R6 := R3 *, TEMP := R6 ; GETADORESS; SAVEADD s= R3; 
R6 := TEMP; R3 i= R6; 
IF R3 = OR R3 > 5 THEM R3 := 1; 
CASE R3 OF 
BEGIN 

BEGIN TESr(PAIRFLAG); IF = THEM PRGENREG ELSE GENREG; EHDi 
BEGIN RO := #00000000; FLREG; END; 
BEGIN RO := #80000000; FLREG; END; 
BEGIN RO := #40000000; PRFLREG; END; 
BFGIN RO := #00000000; PRFLREG; END; 
END; 

TEMP := RO; 

R3 := SAVEADD; RO := RO OR #08000000; 
ASSEMBLE? 

IF R6 = 1 AND DIVIDE THEN 
BEGIN RO := TEMP OR #8E000020S EMIT; 
END; 

R7 := R6 SHLL 24 OR SIGN; 
END ELSE 
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10 


80 


07 


0864 


10 


3 '94 


07 


0864 


10 


CR94 


07 


0864 


10 


894 


07 


08 64 


10 


C 8 C A 


07 


0860 


10 


08 9 E 


07 


086C 


10 


3A2 


07 


0860 


10 


03AC 


07 


036C 


10 


C836 


07 


08 60 


10 


08CA 


07 


86C 


10 


08DA 


07 


086C 


10 


8CA 


07 


0860 


10 


oacA 


07 


086C 


10 


C3FE 


07 


86C 


10 


0912 


07 


086C 


1 


0*326 


07 


086C 


10 


093A 


07 


086C 


10 


094E 


07 


086C 


10 


C 966 


07 


0860 


10 


09 7 2 


07 


086C 


10 


0982 


07 


8 60 


10 


0992 


07 


08 60 


10 


09*6 


07 


0860 


10 


09A6 


07 


0860 


.10 


Q9A6 


07 


0860 


10 


09A6 


07 


08 60 


10 


C982 


07 


0860 


10 


G9B4 


07 


086C 


10 


09 B 4 


07 


086C 


10 


Q9B4 


07 


086C 


11 


OOCO 


07 


0870 


11 


0000 


07 


0870 


11 


0000 


07 


870 


11 


00 04 


07 


0870 


11 


00 OC 


07 


0880 


11 


02 6 


07 


0880 


11 


004E 


07 


880 


11 


GC66 


07 


880 


11 


00 8 2 


07 


0380 


11 


00 96 


07 


0880 


11 


OOAE 


07 


0880 


11 


OOCA 


07 


08 80 


11 


00 £2 


07 


0880 


11 


0CF2 


07 


08 80 


11 


00F6 


07 


0880 


11 


OOF 8 


07 


0880 


11 


OOF 8 


07 


0880 


11 


C0F8 


07 


0880 


12 


0000 


07 


0880 


12 


OOCG 


07 


0800 


12 


0000 


07 


880 


12 


0000 


07 


0890 


12 


0000 


07 


0894 


12 


0000 


07 


0894 


12 


0CC8 


07 


0398 


12 


002 c 


07 


0898 


12 


0022 


07 


0898 


12 


0022 


07 


0898 



1 16 I 
1162 

1163 
1164 
118 5 
1166 
116 7 
1 16 8 

116 9 
1170 
1171 
1172 
1173 
1174 

117 5 
1176 
1177 
1178 
1179 
1130 
1181 

118 2 
118 3 
1184 
118 5 
1186 
118 7 
118 8 

118 9 
1190 
1191 
1192 

119 3 
1194 
1196 

119 6 
1197 
1198 
1199 

120 
120 1 
1202 
1203 
1204 
1205 
120 6 
1207 
1208 
1209 
1210 
121 1 
1212 
1213 
1214 
1215 
1216 
1217 
1218 



BEGIN COMMENT SET UP 
EITHER A COMPUTED 
LOW BITS OF R6; 
LOGICAL SAVETYPE, 
86 := R7 SHLL 1 S 
SAVETYPE := R6 ; 
R3 := L STACK MM R5 
BEGIN RO ;= R3 S 
If RO < CLN TH 
SAVER3 := Ri; 
CASE R6 OF 
BEGIN 

IF PAIRFLAG 
BEGIN RO := 



INSTRUCTION FOR LOADING A REGISTER FROM 
ADDRESS OR A LOCAL STACK ADDRESS. TYPE 

SAVER3; 
HRL 25; 

)J IF R3 >= THEN 
HRL 12 J R5 := R5 - 4; 

EN RELEASE; COMMENT COMPUTED ADDRESS; 
IF R6 > 5 THEM R6 := 1; 



IN 







BEGIN RO := 






BEGIN RO := 






BEGIN RO := 






END; 






TEMP := RO; R 






R3 := SAVER3; 






IF R6 = 1 AND 






BEGIN RO := T 






END; 




end; 


ENC 


; 




R6 


* ■— 


SAVER6; R3 := 


end; 







THEN PRG6NREG ELSE GENREG; 
SCOOOOOOO; FLREG; END; 
#8 0000000; FLREG; END; 
#40000000; PRFLREG; END; 
#00000000; PRFLREG; END; 

:= RO OR #08000000; R6 := SAVETYPE; 

ASSEMBLE; 

DIVIDE THEN 

EMP OR #8E030O20; EMIT; 



= SAVER3 



SEGMENT PROCEDURE LEVELKR1); 
BEGIN LOGICAL SAVER1; 

PROCEDURE I NTREALCOOE ( Rl) ; 

BEGIN COMMENT GENERATE IN-LINF 
INTEGER SAVERl* SAVEFL, GPR, 
LOAOREG; P. 3 := LSTACKM4LR5 ) ; 



Rl := SAVERl; 



CODE TO FLOAT AN INTEGER! 

FPR; SAVERl := Rl; SAVEFL s= RO; 

RO := R3 XOR SIGN; GPR := R0 5 

FLREG; FPR := RO; 



R6 := 1; RELEASE; RS : = R5-4; RO := SAVEFL; 

RO := RO SHRL 4 OR FPR OR #2B000000; EMIT; 
RO := GPR SHRL 4 OR GPR OR #12000000; EMIT; 
RO := #47A0E008 + INSCOUNTER; EMIT; 
RO := #6 8000000 OR FPR OR FC0N2; EMIT; 
RO := #50000000 OR GPR OR FC0N1 + 4; EMIT; 
RO := #6 AO 00000 OR FPR OR FCUN1; EMIT; 
Rl := FSTACKIR4-4) AND MASK OR SAVEFL; FSTACK(R4-4> 
Rl := SAVERl; 
END; 



= Rl 



SEGMENT PROCEDURE CONVERT (Rl); 

BEGIN COMMENT EMIT CODE TO CONVERT TERMINALS FROM DECLARED TYPE TO 
TYPE INDICATED IN 2ND BYTE OF TERMINAL MODE; 

LOG I CAL SAVER6 , S AVER A, S AVERO , SA VER3 ; 
LOGICAL SAVEFL; 
PROCEDURE INTREAL(Rl); 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

RO := SAVEFL; INTREALCODE; R7 := SAVER6; Rl := SAVERl; 

END; 

PROCEDURE INTCUMPLEX CRD I 
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12 


0022 


07 


08 98 


12 


0026 


07 


039C 


12 


0042 


07 


039C 


12 


00 5 


07 


039C 


12 


56 


07 


089C 


12 


006 E 


07 


89C 


12 


C C 9 2 


07 


89C 


12 


00 8A 


7 


089C 


12 


008C 


07 


08 9 £ 


12 


ocec 


07 


039C 


12 


008C 


07 


089C 


12 


00 90 


07 


08 AO 


12 


008 6 


07 


08A0 


12 


00 C 2 


07 


08A0 


12 


CODE 


07 


08 AO 


12 


OOEE 


07 


08A0 


12 


F A 


07 


08A0 


12 


OOFC 


07 


08A0 


12 


OOFC 


07 


O3A0 


12 


OOFC 


07 


08A0 


12 


01 GO 


07 


8A8 


12 


0114 


07 


8A8 


12 


012C 


07 


08A8 


12 


0144 


07 


Q8A8 


12 


01 5C 


07 


08 A 8 


12 


01 5E 


07 


08A8 


12 


015E 


07 


08A8 


12 


016E 


07 


8AC 


12 


01 7E 


07 


08 AC 


12 


18 6 


07 


08AC 


12 


0188 


07 


08 AC 


12 


018 8 


G7 


8 AC 


12 


C188 


07 


03AC 


12 


018C 


07 


08B4 


12 


01A0 


07 


08 84 


12 


0188 


07 


08B4 


12 


01 D 9 


07 


08 B4 


12 


01F0 


07 


0384 


12 


020C 


07 


8B4 


12 


022 8 


07 


0884 


12 


0238 


07 


0884 


12 


0244 


07 


08 84 


12 


25 4 


07 


8B4 


12 


02 5C 


07 


08B4 


12 


025E 


07 


8 84 


12 


02 5E 


07 


08 84 


12 


262 


07 


08B8 


12 


C2 7C 


07 


08B8 


12 


0290 


07 


08B8 


12 


02 AO 


07 


08R8 


12 


02 A 8 


07 


08B8 


12 


02B8 


07 


8B 8 


12 


02C4 


07 


08B8 


12 


02 C 6 


07 


0888 


12 


02C6 


07 


088 8 


12 


u 2 02 


07 


08B8 


12 


C2D8 


07 


08 B8 


12 


02DC 


07 


08 BC 



1219 


122 


1221 


1222 


1223 


1224 


122 5 


1226 


1227 


1228 


1229 


1230 


1231 


1232 


12 33 


1234 


123 5 


123 6 


123 7 


123 8 


1239 


1240 


1241 


1242 


1243 


1244 


1245 


124 6 


124 7 


124 8 


1249 


1250 


12 51 


1252 


12 53 


.12 54 


1255 


12 56 


1257 


1258 


1259 


1260 


1261 


12 62 


126 3 


1264 


126 5 


1266 


126 7 


126 8 


126 9 


1270 


1271 


127 2 


1273 


1274 


1275 


127 6 



BEGIN LOGICAL SAVER 1 5 SAVER 1 := P. I; 

INTREAL; R0:= SAVEFL; FLREG; R5:=R5- 
RO := R3; R3 := P. 3 XOR SIGN SHRL 4 OR 

R3 



LSTACKMMR5) : 


= R 


3; 


RO 


:= RO XOR S 


IGM 


OR 


Rl: 


=F STACK (R4- 


4) 


AND 


R7 


:= SAVER6J 


Rl 


: = 


end; 









4; R3:=t.STACK{R5) 

LSTACKM4<R5)J 
RO; 

S; R6 i= 3; ASSEMBLE; R4 := R4 - 
MASK OR SAVEFL; FSTACK CR4-4 ) :=R1 J 
SAVERl; 



PROCEDURE REALC0MPLEXCR1 } ; 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

LOADREG; ROs=SAVEFL; FLREG; R3:=R0 OR SIGN; R0:=R0 OR S; 
R6 := 3; ASSEMBLE; R3 := LSTACKM4<R5) XOR SIGN SHRL 4 OR 
LSTACKM8(R5Jj LSTACKM8CR5) s= R3; R5 : = R5 - 4 J 
Rl:=FSTACK(R4-8) AND MASK OR SAVEFL; FSTACK* R4-8) :=R1 ; 
R4 : = R4 - 4; R7 -.= SAVER6; Rl := SAVERl; 

END; 

PROCEDURE RLONGREAL { Rl ) ; 

BEGIN LOGICAL SAVERl, TEMP; SAVERl := Rl; 

GET ADDRESS; RO := SAVEFL; TEMP := R3; 

FLREG; RO := RO OR S; R3 := LSI ACKM4( R5) 5 R6 := 3; 

ASSEMBLE; RO := LSTACKM4IR5 5 XOR SIGN OR #78000000 OR 

TEMP; EMIT; Rl := SAVERl; R7 := SAVER6; 
END; 
P RO C E DUR E L ON.GSHOR T ( R 1 ) J 

BEGIN INTEGER SAVERl; SAVERl 

Rl:=FSTACK(R4-4) AND MASK OR 

R7 := SAVER6; Rl := SAVERl; 
END; 



- Rl; LOADREG; 

SAVEFL; FSTACK <R4-4):=R1; 



PROCEDURE CL0NSC0MPLEXCR1) ; 

BEGIN, LOGICAL SAVERl, TEMP; SAVERl s= Rl; 

GETADDRESS; TEMP := R3; RO := SAVEFL; 

FLREGJ RO := RO OR S; R3 s= LSTACKM4< R5> *, R6 := 3; 

ASSEMBLE; RO:=SAVEFL; FLREG; R0: = R0 OR S; R3: =LSTACKM4( R5» I 

R6 := 3; ASSEMBLE! RO := LSTACKM4CR5) XOR SIGN 

OR #78000000 OR TEMP ++ 4; EMIT; 

RO := LSTACKM8CR5) XOR SIGN OR #78000000 OR TEMP; EMIT; 

RO := LSTACKM4CR5) XOR SIGN SHRL 4 OR LSTACKH8( R5> » 

LSTACKM8CR5) := RO ; R5 := R5 - 4; R4 := R4 - 4; 

Ri:=FSTACK(R4-4) AND MASK OR SAVEFL; FSTACKCR4-4 ): = R1 ; 

R7 := SAVER6; Rl := SAVERl; 
END; 
PROCEDURE REALLONGCOHPLEX(Rl) ; 

BEGIN LOGICAL SAVERl; SAVERl : = Rl; 

RLONGREAL; RO: =SAVEFL; FLREG; R3:=R0 OR SIGN; 

RO := RO OR S; R6 := 3; ASSEMBLE; 

RO := LSTACKM4CR5) XOR SIGN SHRL 4 OR LSTACKH8I R5) I 

LSTACKM8CR5) := RO; R5 := R5 ~ 4; 

Rl:=FSTACK(R4-4) AND MASK OR SAVEFL; FSTACK IR4-4) :=R1 ; 



R4 
END; 



:= R4 - 4; R7 : = SAVER6 



Rl :- SAVERl 



SAVER3 s= R3; SAVER A := RIO; SAVERO := RO; 

IF R7 >= THEN 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

RIO := R7 SHLL 8 SHRL 24; IF RIO -.= THE! 
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12 


2EC 


07 


088C 


12 


02F8 


07 


08BC 


12 


3CC 


7 


08I3C 


12 


3 1 A 


7 


8BC 


12 


1 1 E 


07 


08 BC 


12 


03 2 6 


07 


08 BC 


12 


C3 26 


07 


08BC 


12 


C3 26 


07 


08DC 


12 


032E 


07 


03 BC 


12 


332 


07 


03 BC 


12 


0332 


07 


08 BC 


12 


034 A 


07 


03BC 


12 


35 A 


07 


08BC 


12 


C3 5A 


07 


03BC 


12 


035E 


07 


08BC 


12 


035E 


07 


08 BC 


12 


0376 


07 


08BC 


12 


3 66 


07 


08BC 


12 


0366 


07 


08 BC 


12 


03 8A 


07 


08BC 


12 


038A 


07 


03 8C 


12 


03AA 


07 


08BC 


12 


03B2 


07 


03BC 


12 


03 C A 


07 


C88C 


12 


C3CA 


07 


08 3 C 


12 


03CE 


07 


03BC 


12 


03CE 


07 


08BC 


12 


QBE A 


07 


03BC 


12 


03F6 


07 


08BC 


12 


040E 


07 


08 SC 


12 


C4GE 


07 


08BC 


12 


4 26 


07 


088C 


12 


042A 


07 


08 BC 


12 


4 2 A 


07 


08BC 


12 


042E 


07 


08BC 


12 


042E 


07 


08BC 


12 


04 3 A 


07 


03BC 



12 77 
1273 
1270 
1230 
1231 
128 2 
1233 

128 4 
1285 
1236 
1237 
1288 
1280 
120 
1291 

129 2 
1293 
12 94 
1295 
1296 
.129 7 
1298 
1299 
1300 
1301 
1302 
1303 
1304 

130 5 
1306 
1307 
130 8 
1309 
1310 
1311 
1312 
1313 



BEGIN GETTYPE; 

RO := RIO SHLL 24 OR SIGN; R6 := R6 SHLL 8 SHRL 8 Oft RO; 

Hi := 5 - RIO SHLL 30; SAVEFL := Rl; 

SAVER6 := R6; 

IF R3 <= 5 THEN 

CASE RIO OF 

BEGIN 

BEGIN END; 

BEGIN COMMENT CONVERT TO REAL; 

CASE R3 OF 

BEGIN INTREAL; NULL; LONGSHORT; 

END; 
END; 
BEGIN COMMENT CONVERT TO LONG REAL; 

CASE R3 OF 

BEGIN INTREAL; RLONGREALJ NULL; 

END; 

END; 

BEGIN COMMENT CONVERT TO COMPLEX; 

CASE R3 OF 

BEGIN INTCOHPLEX; REALCQMPLEX; REALCQMPLEX J NULL J 
LONG SHORT; 

END; 
END; 
BEGIN COMMENT CONVERT TO LONG COMPLEX; 

CASE R3 OF 

BEGIN INTC0MPLEX5 REALLONGCOMPLEX ; REALCQMPLEX; 
CL ONGCOMPL EX ; NULL ; 

END; 
end; 

END; 

R6 := SAVER6; 
END; 

Rl := SAVERl; 
END; 

RIO := SAVERA; R3 := SAVER3; RO := SAVERO; 
END; 



SEGMENT li 



NAME = SEG#12 



LENGTH = 0458 BASE REG = 15 



11. 


OOF 8 


07 


03BC 


11 


OOF 8 


07 


08BC 


11 


00F8 


07 


08BC 


13 


ooco 


C7 


08 C 5 


13 


00 CO 


07 


0800 


13 


coco 


07 


08 DO 


13 


occs 


07 


03D4 


13 


0018 


07 


804 


13 


0028 


07 


0804 


13 


00 2 A 


07 


804 


13 


002A 


07 


8D4 


13 


02 A 


07 


08 04 


13 


00 2E 


07 


08D8 


.13 


0046 


07 


0808 


13 


004C 


07 


08 D 8 


13 


00 5C 


07 


0808 


13 


0066 


07 


08D8 


13 


007E 


07 


030 8 



1314 
1315 
1316 
1317 
1313 
1319 
1320 
13.21 
L322 
1323 
1324 
1325 
132 6 
1327 
132 8 
1329 
13 30 
1331 



SEGMENT PROCEDURE CONVERTRESULTC Rl } 

BEGIN LOGICAL SAVERl , SAVETYPE ; 

LOGICAL SAVERBtSAVEFL; 

PROCEDURE INTREAL(Rl); 

LOGICAL SAVERl; SAVERl J= R 

= SAVEFL; INTREALCOOE; 

= SAVETYPE SHLL 24 OR SIGN; 



BYTE KEEPREG; 



BEGIN 
RO 
R7 

END; 



Rl :■= SAVERl 



PROCEDURE INTCOMPLEX {Rl } ; 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

INTREAL; RO := SAVEFL; FLREG; R5 := R5 - 4? 
R3 := LSTACMR5) ; RO := R3 ; 

R3 := R3 XOR SIGN SHRL 4 OR LSTACKM4CR5) OR SIGN J 
LSTACKM4CR5) := R3; R3 := RO ; R4 := R4 - 4; 
RO := RO XOR SIGN OR S; R6 
Rl := FSTACMR4-4) AND MASK OR 



J= 3; 
SAVEFL; 



ASSEMBLE; 
FSTACKIR4- 



4} s=Rlj 
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13 


0C8E 


07 


08D8 


13 


0€ 9 E 


07 


03 D8 


13 


00 A 


07 


03 D8 


13 


00 A 


07 


08D8 


13 


00 AO 


07 


08 03 


13 


O0A4 


07 


08 EO 


1.3 


OCAS 


07 


03E0 


13 


00 A E 


07 


08E0 


13 


00 B A 


07 


03 CO 


13 


OOCA 


07 


O3E0 


13 


00 EO 


07 


8E0 


13 


GOEC 


07 


08 EO 


13 


oo t a 


07 


08EO 


13 


0100 


07 


08 EO 


13 


0113 


07 


G8E0 


13 


012 3 


07 


08E0 


13 


0128 


07 


08 EO 


13 


C13C 


07 


08E0 


13 


0144 


7 


0860 


13 


016 


07 


08 EO 


13 


0114 


7 


OSLO 


13 


0182 


07 


03 EO 


13 


0192 


07 


08 EO 


13 


19 2 


07 


08EO 


13 


01A2 


07 


08 EO 


13 


01A2 


07 


03E0 


13 


01B2 


07 


03E0 


13 


01C2 


07 


08E0 


13 


010,4 


07 


03E0 


13 


01C4 


07 


08E0 


13 


01C8 


07 


08 E4 


13 


01 LA 


07 


08E4 


13 


01F6 


07 


08E4 


13 


0214 


07 


08 £4 


L3 


0224 


07 


08E4 


13 


0230 


07 


08E4 


13 


0240 


07 


08E4 


13 


2 50 


07 


08 E4 


13 


25 2 


07 


08E4 


13 


02 5 2 


07 


08E4 


13 


2 52 


07 


08E4 


13 


Q2iZ 


07 


03 E8 


13 


026E 


07 


08E8 


13 


027 E 


07 


08 E 8 


13 


0282 


07 


08E8 


13 


C284 


07 


08E8 


13 


0284 


07 


08E8 


13 


02 84 


07 


OSES 


13 


0208 


07 


081=0 


13 


0292 


07 


8 F 


13 


2A0 


07 


O3F0 


13 


0280 


07 


OSFO 


13 


02 64 


07 


08 FO 


13 


02B4 


07 


08F0 


13 


02C4 


07 


OSFO 


13 


02 04 


07 


OSFO 


13 


0200 


07 


OSFO 


13 


02E2 


07 


08 FO 



133 2 
133 3 
1334 
133 5 

133 6 
133 7 

133 8 
1.339 
1340 
1341 
1342 

134 3 
1344 
.1345 
1346 
134 7 

134 8 
1349 
13 50 
1351 
13 52 
13 53 
1354 
1355 
1356 

135 7 
1358 

135 9 
I86 
1 36 J. 
1362 

136 3 
1364 
136 5 
1366 
136 7 
1368 

136 9 
1370 
1371 

137 2 
1373 
1374 
1375 
1376 
1377 
1370 
1379 
1380 
1381 
1382 
1333 
1334 
1 38 5 
133 6 

138 7 
1383 
1389 



Rl := SAVERl; R7 : = SAVETYPE SHLL 24 OR SIGN? 
END; 

P ROC E DO R E RL ON ORE AL C R 1 ) ; 

BEGIN LOGICAL SAVERl, TEMP; SAVERl := Rl; 
R3 := LSTACKM4LR5); 
IF R3 >= THEN 
BEGIN TEMP : = R3 ; R3 := R3 AND #F00Q SHRL 12; 

IF R3 < CLN AND -iKEEPREG THEN 

BEGIN RIO := R7; R6 := 1; R3 := TEMP; RELEASE; 

END; 

RO := SAVEFL; R5 := R5 - 4; 

FLREG; RO := RO OR S; R3 := LSTACKM41 R5J ; R6 := 3; 

ASSEMBLE; RO := LSTACKM4IR3J XOR SIGN OR #78000000 OR 

TEMP; EMIT; 
END ELSE 
BEGIN R3 := NEXTADDR + 3 AND SMASK; NEXTADDR := R3| 

R6 := 2; RO := LSTACKM4(R5) SHLL 

1 SHRL l; R10i=R0j ASSEMBLE; RO:=R10 OR #2F0000O0; 

R3 s = RIO SHRL 4; RO := RO OR R3; EMIT; 

R3 := NEXTADDR; R6 := 2; RO :■= RIO OR #08000000; 

R6 := 2; ASSEMBLE; 

RIO := 4; INCRADOR; 

END; 
Rl := FSTACKCR4-4) AND MASK OR SAVEFL; FSTACKCR4-4I :=R1; 

Rl := SAVERl; R7 := SAVETYPE SHLL 24 OR SIGN; 
END; 
PROCEDURE REALCQMPLEXLRl ) ; 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

LOADREG; RO *= SAVEFL; FLREG; R3 := RO OR SIGN; 

RO := RO OR S; R6 := SAVEFL SHLL 1; 

IF R6 < O THEN R6 := 2 ELSE R6 := 3; ASSEMBLE; 

R3 := LSTACKM4IR5) XOR SIGN SHRL 4 OR LSTACKM8< R5» ; 

LSTACKM8CR5) := R3| R5 := R5 - 4; R4 := R4 - 4; 
Rl := FSTACKCR4-4J AND MASK OR SAVEFL; FSTACK(R4~4) l=Rl; 

R7 := SAVETYPE SHLL 24 OR SIGN; Rl := SAVERl; 
END; 

PROCE DURE LONGSHURT ( Rl ) ; 

BEGIN LOGICAL SAVERl; SAVERl := Rl; LOADREG; 
Rl := FSTACKIR4-4) AND MASK OR SAVEFL; 
FSTACK(R4-4) := Rl; R7 := SAVETYPE SHLL 24 OR SIGN; 

Rl := SAVERl; 
END; 

PROCEDURE CLONGCOMPLEX(Rl); 

BEGIN LOGICAL SAVERl, TEMP; SAVERl s= Rl; 
R3 := LSTACKM4CR5); IF R3 < THEN 

BEGIN RO := R3 AND MASK5 OR SIGN; LSTACKM4<R5) s= RO; 
R3 := R3 SHLL 4 AND MASK5 OR SIGN; R5 : = R5 + 4; 
LSTACKM4IR5) := R3 ; 
END ELSE 

BEGIN R3 := R3 + 4; R5 := R5.+ 4; LSTACKM4(R5) s= R3; 
END; 

SET(KEEPREG); RLONGREAL; RO := LSTACKM4CR5J; TEMP : = RO ; 
RO := LSTACKH8 IR5); IF RO > THEN R4 := R4 - 4; 
R5 := R5 - 4; RE SET< KEEPREG) ; RLONGREAL; 



tmmmmmmmmmmm 



m mm mmn m i 
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13 


02 EE 


07 


8F0 


13 


0302 


07 


08F0 


13 


03 C6 


07 


O8F0 


13 


3316 


07 


08F0 


.13 


03 26 


07 


03F0 


13 


0323 


07 


08F0 


13 


03 2 8 


07 


03 FO 


13 


0328 


07 


08F0 


13 


3 2C 


07 


08F4 


13 


0346 


07 


C3F4 


13 


C3 5A 


07 


C3F4 


13 


036A 


07 


08 F4 


13 


03 76 


07 


08F4 


13 


03 86 


07 


03F4 


13 


03 96 


07 


0BF4 


L3 


C39 3 


07 


08F4 


13 


039 8 


07 


C8F4 


13 


03. A 4 


07 


08 F4 


13 


03 BO 


07 


8F4 


13 


3 B 6 


07 


08F4 


13 


03B6 


07 


08F4 


13 


3 BE 


07 


08F4 


13 


03CC 


07 


03F4 


13 


C3D6 


07 


08F4 


13 


03DE 


07 


08F4 


13 


03DE 


07 


08F4 


13 


03DE 


07 


08 F 4 


13 


03E6 


07 


08 F 4 


13 


03EA 


07 


C8F4 


13 


0402 


07 


08F4 


13 


i 1 2 


07 


08F4 


13 


0412 


07 


08F4- 


13 


0416 


07 


8F A 


13 


042E 


07 


08F4 


13 


043 E 


07 


08 F4 


13 


04 3 1 


07 


08 F 4 


13 


44 2 


07 


08F4 


13 


0462 


07 


08 F 4 


13 


46 A 


07 


08 F4 


13 


04 82 


07 


08F4 


13 


04 g 2 


07 


8F4 


13 


04 86 


07 


08F4 


13 


04 A 2 


07 


08 F4 


13 


4AE 


07 


08F4 


13 


4C6 


07 


08F4 


13 


C4C6 


07 


08 F4 


13 


04DE 


07 


08F4 


13 


04E2 


07 


08F4 


13 


04E2 


07 


03F4 


13 


4E6 


07 


08F4 



1390 
139 1 
13<*2 

1393 
139 4 
139 5 
1396 
1.397 
1.39 3 

139 9 

140 
1401 
140 2 
1403 
140 4 
140 5 
1406 
1407 
140 8 
140 9 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
142 2 
142 3 
1424 
1425 
142 6 
1427 

142 8 
1429 

143 
1431 
143 2 
1433 
143 4 
1435 
1436 
1.437 
143 8 
143 9 



RO := TEMP SHLL 1 SHRL 5 OR LSTACKM4(R5) OR SIGN; 
LSTACKM4(R5) := RO; 
Rl := FSTACK(R4-4) AND MASK OR SAVEFL; FSTACK(R4-4) :=R.i; 
Rl := SAV.ER1-; R7 := SAVETYPE SHLL 24 OR SIGN; 

END; 

PROCEDURE REALLONGCOMPLEX CR1 ) i 

BEGIN LOGICAL SAVER1; SAVER1 s= Rl; 

RLONGREAL; RO := SAVEFL; FLREG; R3 := RO OR SIGN; 

RO := RO OR S; R6 : = 3; ASSEMBLE; 

RO := LSTACKM4(R5) XOR SIGN SHRL 4 OR LSTACKM8< R5) I 

LSTACKM8CR5) : = RO; R5 := R5 - 4; R4 := R4 - 4 J 
Rl := FSTACKCR4-4) AMD MASK OR SAVEFL; FSTACKIR4-4) :=(U; 

R7 := SAVETYPE SHLL 24 OR SIGN; Rl : = SAVERlS 
END; 

R6 := SAVEL; SAVER3 : = R3 ; RESETIKEEPREG) ; 

RIO := TREE(R6) SHLL 8 SHRL 24; 

IF RIO -.= THEN 

BEGIN COMMENT CONVERT TO TYPE IN RAj 

SAVER 1 s= Rl; SAVETYPE : = RIO; 

Rl := 5 - RIO SHLL 30; SAVEFL := Rl; 

R3 := R7 SHLL 1 SHRL 25; COMMENT R3 HAS CURRENT TYPE; 

IF R3 <= 5 THEN 

CASE RIO OF 

BEGIN 

NULL I 

BEGIN CASE R3 OF 

BEGIN INTREAL; NULL; LONGSHORT; 
END; 

END; 

BEGIN CASE R3 OF 

begin intreal; rlongreal; null; 
end; 

END; 

BEGIN CASE R3 OF 

BEGIN IMTCOMPLEX; REALCOMPLEX; REALCOMPLEX; NULL; 

LONGSHORT; 
END; 
END; 
BEGIN CASE R3 OF 

BEGIN INTCOMPLEX; REALLONGCOMPLEX ; REALCOMPLEX; 

CLOMGCOMPLEX; NULL; 
END; 
END; 
END; 

Rl := SAVER!.; 
END; 

R3 := SAVERS; 
END; 



SEGMENT 13 NAME 



SEG#13 



LENGTH = 0518 BASE REG 



15 



11 


0CF3 


07 


08F4 


11 


OOF 3 


07 


03F4 


11 


OOF 8 


07 


08 F4 


11 


OOF 8 


07 


08F4 


11 


OOFC 


07 


08F8 



144 
1441 

1442 
144 3 
1444 



PROC EDURE D I VREM { Rl 3 5 

ARGUMENTS; 

BEGIN LOGICAL SAVER1; SAVER1 

SETCPAIRFLAG) ; SETCDIVIDE); 



COMMENT GENERATES CODE FOR DIVISION OF INTEGER 



Rl. 
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PASS 3 
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11 


0104 


07 


08F3 


11 


01 C A 


07 


08 F8 


11 


OHO 


07 


■;j8ra 


11 


01 I A 


07 


08F8 


11 


0126 


07 


08 F8 


11 


0136 


07 


08F8 


11 


01 3 E 


07 


08 F 8 


11 


0150 


07 


08F8 


11 


0170 


7 


8F 8 


11 


0178 


07 


8F8 


11 


o 1 7 a 


07 


08F8 


11 


018C 


07 


08FC 


11 


01A2 


07 


08FC 


11 


01 AG 


07 


08FC 


11 


01EA 


07 


08FC 


11 


GIBE 


07 


08FC 


11 


01 BE 


07 


08FC 


11 


01 BE 


07 


08FC 


11 


01CC 


07 


08 FC 


11 


01CC 


07 


08FC 


11 


01 EC 


07 


8FC 


11 


02C2 


07 


08 FC 


11 


020E 


07 


08FC 


11 


021A 


07 


08 FC 


11 


021 A 


7 


08FC 


11 


023E 


07 


08FC 


11 


024 E 


07 


08FC 


11 


024E 


07 


08FC 


11 


024E 


07 


08 FC 


11 


02 5 E 


07 


08 FC 


11 


02 68 


07 


03FC 


11 


02 70 


07 


8FC 


11 


02 74 


07 


08FC 


11 


02 76 


07 


08FC 


11 


0276 


07 


08FC 


11 


27 6 


07 


08FC 


11 


02 76 


07 


08FC 


11 


0276 


07 


08 FC 


11 


027A 


C7 


0900 


11 


0282 


07 


0900 


11 


02 88 


07 


0900 


11 


02*58 


C7 


0900 


11 


02 9 E 


. 07 


0900 


11 


02 8 2 


7 


900 


11 


02B2 


07 


900 


11 


028£ 


07 


0900 


11 


02C4 


07 


0900 


11 


02 C 4 


07 


0900 


11 


02CA 


07 


0900 


11 


02E2 


07 


900 


11 


02 F 6 


07 


0900 


11 


G30A 


07 


0900 


11 


30 A 


C7 


0900 


11 


030 E 


07 


0900 


11 


C3 1 


C7 


0900 


11 


0310 


07 


0900 


11 


0310 


C7 


0900 


11 


03 14 


7 


0904 



1445 

1446 
1447 

1443 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
145 8 

145 9 
1460 
1461 
1462 

146 3 
1464 
146 5 
1466 
1467 

146 8 
1469 
1470 
1471 
1472 
.1473 
1474 
14 75 
1476 
14 77 

147 8 
14 79 
1480 
1431 

148 2 
148 3 
14 84 
148 5 
14 86 
1487 

148 8 
1489 
1490 

149 1 
1492 
1493 
1494 
149 5 
1496 
149 7 
1498 
1499 
1500 
1501 
1502 



RIO -:= R6J R6 := 1; 

IF R7 >= THEN 

BEGIN RIO := TREE<R10); IF RIO < THEN 
BEGIN LOADREG; 

RO := LSTACKM4(R5) 5 FORCEPAIR; 
R5 := R5-4; R3 := LST ACKM4< R5 ) ; 
IF R3 < THEM RELEASE; 

R10:=R3 SHKL 12; IF R3>=0 AND R. 10>=CLN THEN AOJSTACKSi 
Rl := LSTACK(Fn5); LSTACKH40R5) := Rl; 
END ELSE 

BEGIN LOGICAL SAVEAOO; GETAODRESS; SAVEADD : = R3; 
RO := LSTACKM4(R5); IF RO < THEN FORCEPAIR ELSE 
BEGIN COMMENT LEFT SIDE STORED WHILE PROCESSING RIGHT; 

LOADREG; RO := LSTACKMMR5) XOR SIGN; 
ENO; R3 := SAVEAOO; 
END; 
ENO ELSE 

BEGIN RIO := TREE(RIO); IF RIO < THEN 
BEGIN 

LOADREG; RO := LSTACKM4 ( R5 ) ; FORCEPAIR; R5 := R5-4; 
R3 := LSTACKM4IR5); IF R3 < THEN RELEASE; 
RO := RO OR SIGN; RIO := LSTACKIR5); LSTACKM4CR5) : = RIO; 
AD J STACKS; 
ENO ELSE 
BEGIN R5 := R5-4; LOADREG; RO s= LSTACKH4 (R5) J FORCEPAIR; 

R3 := LSTACK0R5); RELEASE; 
END; 
END; 

RO := RO OR 0; ASSEMBLE; 
R7 := R6 SHLL 24 OR SIGN; 
RESETCPAIRFLAG); RES ET1 DIVIDE) J 
Rl := SAVER 1; 
ENO; 
PROCEDURE BITSAN00RARG2CR1 )5 COMMENT SETS OP INSTRUCTION FOR ASSEMBLE 
EXCEPT OPCODE PART. MAY ALSO WRITE INSTRUCTION TO RELOAD BITS 
VALUE; 
BEGIN 

LOGICAL SAVERl; SAVER1 i- Rl; 
R6 := R6 SHLL 1 SHRL 25; 
IF R7 >= THEN 

BEGIN GETAODRESS; RO := LSTACKM4C R5) ; 

IF R7 < THEN 

BEGIN R7 := #88000000; LOADREG; RO := LSTACKH4C R5 ) ; END; 
END ELSE 

BEGIN RO := LSTACKM8 <R5 ) ; R3 := LSTACK.M4 { R5 ) ; 
IF RO >= THEN 
BEGIN 

IF R3 >- THEN LOADREG; R3 := LSTACKH8IR5M 
RO := LSTACKM4CR5); LSTACKM8(R5) : = RO; 
R6 := l; AOJSTACKS; R6 := 8; 
END ELSE RELEASE; R5 := R5-4 ; 
END; 

Rl := SAVERl; 
END; 
PROCEDURE SHIFTAMOUNT(Rl); COMMENT GENERATES INSTRUCTIONS TO LOAD 
ABSOLUTE VALUE OF SHIFT EXPRESSION; 
BEGIN LOGICAL SAVERl; SAVERl s= Rl ; 

LOADREG; 
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LI 


0320 


07 


0004 


11 


033 2 


37 


0904 


11 


033t> 


07 


0904 


1.1 


033 8 


07 


0904 


11 


0338 


G7 


0904 


11 


03 38 


07 


0904 


11 


03 38 


C7 


0904 


11 


03 3C 


G7 


09 OC 


11 


034 2 


G7 


90C 


11 


3 4C 


07 


090C 


11 


034 C 


'37 


090C 


11 


G3 6 


07 


090C 


11 


C38C 


07 


090C 


11 


038 8 


07 


090 C 


11 


0396 


07 


090C 


11 


039 6 


07 


09 OC 


11 


039 A 


07 


090C 


11 


03AA 


C7 


09 OC 


11 


03BE 


07 


0900 


11 


03CE 


07 


090C 


11 


03 DA 


C7 


09 OC 


11 


03 C A 


07 


90C 


11 


03 F4 


07 


090C 


11 


03 f 8 


07 


090C 


11 


03FA 


G7 


090C 


11 


03 FA 


07 


090C 


11 


03 FA 


07 


090C 


11 


03 FA 


07 


090C 


11 


03 FE 


a 


0910 


LI 


0412 


07 


0910 


11 


042 2 


:j7 


0910 


11 


04 3 6 


G7 


0910 


11 


0436 


■■J l 


0910 


11 


0442 


07 


0910 


11 


044A 


07 


0910 


11 


45 A 


C7 


09 10 


11 


C4 6E 


07 


0910 


11 


C 4 1 2 


07 


0910 


11 


4 74 


C7 


0910 


11 


04 74 


07 


0910 


11 


4 74 


07 


0910 


11 


0474 


07 


0910 


11 


474 


G7 


0910 


11 


C474 


07 


0910 


11 


0474 


07 


0910 


11 


C474 


07 


0910 


11 


0474 


07 


0910 


11 


C4 74 


07 


0910 


14 


0000 


C7 


0910 


14 


0000 


C7 


0910 


14 


0000 


G7 


0910 


14 


000 


G7 


0910 


14 


000 3 


G7 


0914 


14 


C02C 


C7 


0914 


14 


C030 


07 


0914 


L4 


CC38 


07 


0914 


14 


0033 


C7 


0914 


14 


3 8 


07 


0914 



1503 
1504 
150 5 
1506 
150 7 
1508 
1509 
1510 
1511 
1512 
1 5 L 3 
1514 
151.5 
1516 
1517 
1518 
1519 
152 
1521 
1522 
1523 
1524 

152 5 
1526 
1527 
1528 
1529 

153 
1531 
15 32 
1533 
1534 
15 3 5 
15 36 
15 37 

153 8 
1539 

154 
1541 
1542 
1 543 
1 544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 

155 9 
1.560 



RO := LSTACKM4(R5) ; R3 := RO; ASSEMBLE; 
Rl := SAVERU 
END; 
PROCEDURE 8ITSSHIFTARG2CR1); COMMENT GENERATES INSTRUCTIONS TO SET UP 
SHIFT OF BITS VALUE. RO IS AN OUTPUT CONTAINING THE SHIFT INSTRUC- 
TION MINUS THE OPCODE; 

BEGIN LOGICAL SAVER I, TEMP; SAVER 1 : = Rl; 

RIO := R6; R6 :- 8; 

RIO := TRFE(RIO); IF RIO < THEN 
BEGIN 

LOADREG; RO := LSTACKM4( R5 ) ; TEMP :■= RO; 
R5 := R5-4; LOADREG; R3 := LSTACKH4( R5) ; RELEASE; 
RO := TEMP; LSTACKM4CR51 := RO ; 

R3 := R3 AND MASK5 SHRL 8; RO := RO AND MASKS OR R3; 
END ELSE 
BEGIN 

SHIFTAMOUNTJ RO := LSTACKM4(R5) AND MASKS SHRL 8; 
TEMP := RO; R5 := R5-4; LOADREG; 
R3 : = TEMP; RELEASE; 

RO := LSTACKM4LRS) AND MASKS OR TEMP; 
END; 

Rl := RSTACKM4CR2) + 4; IF Rl -»= R5 THEN AOJSTACKS; 
Rl := SAVER l; 
END; 



PROCEDURE CALLALLOCATECRU ; COMMENT THIS 
WHICH CALLS THE ALLOCATE ROUTINE; 

INTEGER SAVER lj SAVER1 : = Rl; 

:= #5 8602000 OR FP; EMIT; 

:= #41606007; EMIT; COMMENT ADDS 7 TO R6; 

:= #54600000 OR DUBLMASK; EMIT; 



PROCEDURE EMITS THE CODE 



BEGIN 
RO 
RO 
RO 



Rl 
RO 
RO 
RO 
Rl 
E ND ; 



COMMENT SAVE INSCOUNTER FOR LA INSTRUCTION 

+ 4:; LOGPOINTER := Rl; 

L0GSTACKCR1) := RO ; 
EMIT; 
ALLOCERRJ EMIT; 



TO BE FIXED UP; 



LOGPOINTER 
INSCOUNTER; 

#41006000; 
#45400000 OR 
SAVERl; 



COMMENT SELECTION INDICES FOR PROCEDURE ARRAYS; 
BYTE INITAREF SYN 1, INDEXOP SYN 2, 

INITADCL SYN 6, L80UND SYN 5, 

FILLDESCRIP SYN 3, CLOSEOESCRIP SYN 4; 

SEGMENT PROCEDURE ARRAYS(Rl); COMMENT THIS PROCEDURE CONTAINS ALL PROC 
RELEVANT TO ARRAY DECLARATIONS AND REFERENCES. THE APPROPRIATE 
PROCEDURE IS SELECTED BY THE PARAMETER R3 ; 
BEGIN 

PROCEDURE INITAREF CRD ; 

COMMENT SET UP STACK FOR AN ARRAY REFERENCE (ARG1 - INOXJl 
BEGIN LOGICAL SAVERl; SAVERl :■= RL J 

GETADDRESS; RO := TYPEINF0CR7) AND #F SHLL 4; 
Rl := R3 SHLL 8 OR RO OR #1; STACKP4IR8) := Rl; 
IC<R0,SIMPLETYPE(R7) ) ; STC (RO , STACKP4IR8) \ % 
COMMENT STACKP4 FORMAT: 

SIHPLCTYPE(0s7)f ADDRI8:23), #01 MEN( 24: 27) , CURR DIM(28:31)J 
IF RO -.= 7 THEN Rl := ELSE Rl : = SIMTYPEINF0CR7) SHLL 16; 



PL 360 CCM 


PILATION 


14 


00 50 


€7 


0914 


14 


CC60 


C7 


0914 


m 14 


00 £4 


C7 


0914 


14 


OH 64 


07 


CH4 


14 


0C64 


07 


0914 


14 


C 6 8 


C7 


09 14 


14 


00 6 A 


07 


0914 


14 


CG6A 
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IC(R0,TYPE«R7) ); IF RO = 18 THEN Rl := Rl OR SIGN; 
STACKP8LR8) := Rl; 
COMMENT STACKP8 FORMAT: 

FORMAL SWITCH{0:0)t STRING LEN(8U5), SUBARRAY MASK(16:31); 
Rl := SAVER 1; 
end; 



PROCEDURE 
CCM ME NT 



INDEXOPCRl; 
PERFORM AH 



INDEXING OPERATION ( ARG2 



INDX); 



BEGIN LOGICAL SAVER1J INTEGER NDIMEN, DESPOINT; SAVER1 := 
RO ;= STACKP4CR8) AND #F0 SHRL 4; NDIMEN := RO; 
RO := STACKP4(R8) SHRL 8 AND #FFFF; 

Rl := STACKP4IP8) AND #F * 12S - 8 + RO; DESPOINT := Rl ; 
COMMENT Rl -> (DELTAU), LU), U(I)); 
Rl := R7 SHRL 24; IF Rl = ARSTAR THEN 
BEGIN COMMENT SUBARRAY DESIGNATOR; 

Rl := STACKP4(R8) AND #F - 1; 

RO := #1 SHLL Rl OR STACKP8LR8); STACKP8<R8) := RO J 

IF Rl = THEN 

BEGIN COMMENT FIRST DIMENSION, ESTABLISH REGISTER; 
GENREG; KG := RO SHRL 4 OR LSTACKM4CR5 )% 
RO := RO ANO #OOFFO00O OR #18000000; EMIT; 

END; 
END LLSE 
BEGIN LOADREG; RIO := LSTACKM4IR5) AND #00F 00000; 

IF CHECKFLAG THEN 



Rl 



• 



SEG 



UN 

RO 
END; 
RG : = 
RO : = 

BEGIN 

R3 : = 

IF R3 

BEGIN 

RO 



RO := #59000008 ++ DESPOINT OR 
= #45100000 OR ARRAYERR; EMIT; 



RIO; EMIT; 



#56000004 ++ DESPOINT OR RIO; 
STACKP4CR8) AND #F; IF RO 
COMMENT FIRST DIMENSION, 
:= 0; IC<R3,STACKP4(R8}); 

= 7 OR RO < THEN 

COMMENT STRING OR FORMAL - 
: = #40000002 ++ DESPOINT OR 



EMIT; 
= 1 THEN 
TYPE TO R3J 
RO := STACKP8CR8); 

MULTIPLY; 

Rio; EMIT; 



END ELSE 



IF R3 

BEGIN 

IF 

IF 
RO 
END; 
END ELSE 
BEGIN 
RO 
R3 
IF 



-*= 6 THEN 

COMMENT SHIFT; 
R3 <= 2 OR R3 >= 8 THEN RO : = 2 ELSE 
R3 = 5 THEN RO := 4 ELSE RO := 3; 
3= RO OR #89000000 OR RIO; EMIT; 



BEGIN 
RO 
R3 



COMMENT NOT FIRST DIMENSION; 
:= #4C000002 ++ DESPOINT OR RIO; 
:= LSTACKM4(R5-4>; 
< THEN 

COMMENT ACCUMULATING REGISTER 
:= RIO SHRL 4 OR R3 XOR SIGN OR 



R3 



EMIT; 



ND T DUMPED; 
#1AOOOOOO; EMIT; 






.:■= LSTACKM4CR5) 



R6 := 1; RELEASE; R5 s* R5-4; 



END ELSE 



BEGIN 
RO 
RO 
RO 

END; 

END; 



COMMENT ACCUMULATING REGISTER DUMPED; 
:= RIO OR R3 OR #5A000000; EMIT; 
:= LSTACKM4CR5); R5 := R5-4; LSTACKM4CR5I 
:= RSTACKM4CR2) - 4; RSTACKM4(R2) := RO; 



:= RO; 



**wymmwiitKmm 



PL360 COMPILATION 





14 


02 6 A 


07 


0920 




14 


02 6 A 


07 


0920 




| 14 


02 7 A 


07 


0920 




14 


02 1 A 


07 


0920 




14 


028A 


C7 


0920 




1 14 


02 A 2 


07 


0920 




14 


02AE 


C7 


092 




14 


02 B A 


C7 


0920 




1 14 


02C6 


C7 


0920 




14 


02CE 


C7 


09 20 




14 


02 C A 


07 


09 20 




1 14 


02 E 6 


07 


0920 




14 


02FC 


07 


0920 




14 


02F0 


a 


0920 




) 14 


02 FA 


07 


0920 




14 


02FA 


07 


0920 




14 


02 FE 


07 


0920 




) 14 


02FE 


C7 


09 24 




14 


03 12 


07 


0924 





14 


0322 


07 


0924 




) 14 


033 2 


07 


0924 




14 


338 


C7 


0924 




14 


0342 


07 


0924 


;■, a 


) 14 


034 2 


07 


924 




14 


352 


07 


924 




14 


03 6 


07 


0924 




1 14 


3 74 


C7 


09 24 




14 


0374 


07 


0924 


, 


14 


380 


C7 


0924 


- | 


| 14 


0384 


07 


0924 




14 


0388 


07 


09 24 




14 


0390 


07 


0924 




1 14 


03 A 3 


07 


09 24 




14 


03 BO 


07 


0924 




14 


3C6 


07 


0924 




) 14 


03 C A 


07 


0924 




14 


C3E4 


07 


0924 




14 


03F3 


07 


09 24 


4 


1 14 


0402 


07 


0924 




14 


04 1A 


07 


0924 




14 


(Ml A 


07 


0924 


d 


| 14 


041 A 


07 


0924 




14 


04 IE 


07 


0924 




14 


042A 


07 


0924 




1 14 


04 38 


07 


09 24 




14 


04 38 


C7 


0924 




14 


043 C 


07 


0924 




1 14 


C43E 


07 


0924 




14 


04 3 E 


07 


0924 




14 


043E 


07 


0924 




) 14 


043 E 


07 


09 24 




14 


043E 


07 


0924 




14 


0-442 


37 


92 8 




) 14 


0434 


07 


0928 




14 


0464 


07 


0928 




14 


0464 


07 


0928 




1 14 


04 64 


07 


092 8 




14 


046C 


07 


0928 



ALGOL W COM FILER - PASS 3 



1619 


162 


1621 


1622 


1623 


162 4 


1625 


162 6 


1627 


162 8 


1629 


1630 


1 6 3 1 


163 2 


16 33 


1634 


163 5 


1636 


163 7 


1638 


163 9 


1640 


1641 


1642 


1643 


1644 


1645 


1646 


1647 


164 8 


1-649 


1650 


1651 


1652 


165 3 


1 6 5 4 


165 5 


165 6 


1657 


16 58 


1659 


166 


1661 


1662 


1663 


1664 


166 5 


10-66 


1667 


166 8 


1669 


1670 


1671 


1672 


1673 


1674 


167:5 


1676 



EN D ; 
Rl : = 

BEGIN 

Rl 

RO 

R7 

RIO 

BEGIN 
RO : = 
IF RO 
IF RO 
BEGIN 



STACKP41R8) AND #F; IF Rl = NDIMEN THEN 

COMMENT END OF INDEXING OPERATION; 
:= STACKP4(R8) SHRL 8 AND #FFFF; R3 := 
:= R3 AND #0OF00000 OR Rl OR #5AO0OOO0; 
:= STACKP4(R8) AND #FFOO0O00 OR SIGN; 
= STACKP8IR8) AND #FFFF; IF = THEN 

R3 := P. 3 SHRL 8 AND #FFFF; LSTACKM4<R5! 
= OS ICiR0,5TACKP4(R8) > ; 

= 6 THEN R7 := R7 OR #10000 ELSE 
= 7 THEN 
RO := STACKP84R8) AND fcOOFFOOOOj R7 
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EMIT; 



:= R3; 



:= R7 OR ROJ 
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END; 

CONVERTRESULT; 
END ELSE 
BEGIN COMMENT PROCESS 

INTEGER LDESCRIP; 



SU8ARRAY ACTUAL PARAMETER; 



RO : = 
RO : = 
HO : = 
WHILE 

BEGIN 

BEGIN 

RO 

RO 

Rl 

END; 

Rl : = 

RIO : 

END; 



STACKPMR81 SHRL 

NEXT A DDR + 3 AMD #FFFC; 
RO + 4; LDESCRIP := RO; 
RIO -.= DO 
RO := RIO AND #1; 



8 AND #FFFF + 4; 



NEXTADDR 
RO := 0; 



DESPOINT s= ROJ 

:= RO; 
NOT MEN := RO; 



IF -.= THEN 
COMMENT STARRED DIMENSION; 
:■= NDIMEN + 1; NDIMEN := RO; PI : = LDESCRIP; 
:= #02080000 OR Rl; R3 := DESPOINT SHLL 16; 
:= Rl + 12; LDESCRIP := Rl; EMIT; 



DESPOINT + 12; 
= RIO SHRL l; 



DESPOINT 



Rl; 



RO 
RIO 
RIO 
RO 
RO 
RO 
IF 
RO 
RO 
END; 
END ELSE 
BEGIN 
RO 
R3 
END; 
Rl 
END; 



= NEXTADDR; LDESCRIP := RO; 
:= NDIMEN * 12S + 4; INCRADDR; 
i= LSTACKM4CR5) AND #OOF0O000; 

= #50000000 OR RIO OR LDESCRIP; 



EMIT; 



RO 



RIO SHLL 4 OR SIGN; 

R7 SHRL 24 AND #7F; 

■= 7 THEM RO := STACKP8IR8) AND 

RO OR Rl; LSTACKM4CR5) := RO; 

#41300000 OR LDESCRIP; EMIT; 



Rl := NDIMEN SHLL 16 OR ROJ 



#FF0000 SHRL 8+7; 



SET(SU8ARFLAG) 



COMMENT NOT LAST SUBSCRIPT, UPDATE STACK; 

= STACKP4(R8) ++ 1; Rl : = STACKP8CR8); 

= R8 - SSI2E; STACKP4JR3) := RO; STACKP8IR3) 



* ™ RI| 



:= SAVER1 



PROCEDURE INITADCUR1) ; 

COMMENT SET UP STACK, STORE DELTA! 1), FOR ARRAY DECL (ARt-ARGl). 

CALLED FROM CARD ARG2 - R8 ALREADY ADJUSTED; 
BEGIN LOGICAL SAVER1; SAVER1 i= Rl; 

Rl J= R7 AMD #FFFF; R3 := IDL0CHR1) SHLL 12 + I0L0C2(R1)S 
RO := Rl SHLL 16 OR R3 ++ 4; STACKP4{R8) := RO; 
COMMENT STACKP4 FORMAT: 

NT PTRC0U5), DESCRIPTOR ADDRU6S3D; 
IC(R10,SIMPLETYPEIR1) ) ; RIO := RIO AND #FF; 
IF RIO <= 2 OR RIO >= 8 THEN RO := 4 ELSE 
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IF 


RIO < 5 THEN RO := 8 ELSE 


IF 


RIO = 5 THEN RO x~ 16 ELSE 


IF 


RIO = 6 THEN RO := 1 ELSE RO := SIMTYPEI 


RO 


■:■= RO OR #41000000; EMIT; 


RO 


s- #50000004 ++ R3; EMIT; 


RO 


:= R7 SHRL 16 AMD #FF ; RIO : = RIO SHLL 16; 


RO 


:= RO OR RIO OR SIGN; STACKP81R8) : = RO; 
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COMMENT STACKP8 FORMAT: 

FIRST 01 MEM SW(0:G), SI TYPEU:15), #ID*S< 16:31) 

Rl := SAVERl; 
END; 

PROCEDURE PUTI T I N( Rl } ; 

COMMENT PUT U(II, DELTA* 1+1) IN DESCRIPTOR; 
BEGIN LOGICAL SAVERl; SAVERl : = Rl; 



R3 

RIO : 
RO : = 
RO : = 
RO : = 
Rl : = 
Rl : = 
BEGIN 
Rl 
Rl 



= LSTACKM4CR5) AND #0OF0O0O0; 

:= STACKP40R8) AND #FFFF; COMMENT ADDR OF DELTACI): 

= #50000008 ++ RIO OR R3 ; EMIT; COMMENT UO); 
= #58000004 ++ RIO OR R3; EMIT; 
= #45100000 OR ublberr; EMIT; 

= R3 SHRL 8; RO := #41000001 OR R3 OR Rl J EMIT; 
= STACKP8LR8); IF Rl < THEN 
COMMENT FIRST DIMENSION; 



AND #7FFFFFFF; 

SHRL 16; IF Rl 
Rl = 7 THEN RO 
COMMENT SHIFT; 



t= Rl 
J= Rl 
BEGIN IF 
BEGIN 

IF Rl <= 
IF Rl = ! 
RO := RO 
END; 
EMIT; 
END; 
END ELSE 

BEGIN RO := #40000002 
END; 
RO := #5000000C ++ RIO 



STACKP8CR8) : 

i= 6 THEN 

i= #40000002 



2 OR Rl >= 8 THEN RO : 
THEN RO := 4 ELSE RO 
OR #89000000 OR R3; 



= Rl; 

++ RIO OR R3 ELSE 

= 2 ELSE 
: = 3; 



++ Rio OR R3; 



EMIT; 



OR R3 



EMIT 



Rl := SAVERl; 



END 



PROCEDURE FILLOESCRIP(Rl) ; 

COMMENT COMPLETE BOUND PAIR, UPDATE 

BEGIN LOGICAL SAVERl; SAVERl := Rl; 

PUTITIN; R3 := LSTACKM4C R51; 



STACK (AR, - ARG2); 



RO 
R6 
RO 
RO 

R3 
R7 

END; 



R3 AND #00F 00000 OR #49000000 OR DELTALIMIT; EMITS 

l; RELEASES R5 i= R5 - 4; 

#45100000 OR DESCERROR; EMIT; 

STACKP4IR8) ++ 12; Rl : = STACKP8CR8); 

R8 - SSIZE; STACK P41R3) := RO ; STACKP8IR3) := Rl; 

R7 OR SIGN; Rl := SAVERl; 



PROCEDURE CLDSEDESCRIP CR1 ) ; 

COMMENT COMPLETE LAST BOUND PAIR, DECLARATION < AR I - ARG2) 
BEGIN LOGICAL SAVERl; INTEGER DESLENGTH, NARRAYS; 

SAVERl := Rl; PUTITIN; 

R3 := STACKP8CR8) SHRL 16; COMMENT SIMPLE TYPE; 

RO := CLN SHLL 12 OR FP; 

IF R3 = 6 OR R3 = 7 THEN RO : = RO OR #5 8000000 ELSE 
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0944 


14 


0894 
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173 5 
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RO OR #58100000; EMIT; 
= 3 OR R3 = 5 THEN R3 := 7 ELSE R3 := 3; 
£41001000 OR R3; EMIT; 

= 7 THEN RO := DUBLMASK ELSE RO := SINGLMASK; 
KO OR #54000000; 



BEGIN RO := 
IF R3 

RO : = 
IF R3 
RO : = 
END; 
EMIT; 

R7 := STACKP4IR8) SHRL 16; Rl : = TYPEINF01R7 } *12S + 8; 
OESLENGTH : = Rl; RO := STACKP8IR8) AND #FFFF; NARRAYS := RO; 
R3 := IDL0CHR7) SHLL 12 + IDL0C2IR7); 
R7 := R3; R3 := R3 + 4 SHLL 16; 
FOR RIO := 1 STEP 1 UNTIL NARRAYS DO 

BEGIN COMMENT COPY DESCRIPTOR, STORE AND UPDATE FREE POINTER; 
RO := #5000000 OR R7; EMIT; 

RO := LSTACKM4IR5) AND SOOFOOOOO SHRL 4 OR #1AOOOOOOJ EMIT; 
STACKP8(R8) SHRL 16; IF Rl = 9 THEN 

COMMENT REFERENCE ARRAY, SUPPLY # DIMENSIONS; 
:= STACKP4<R8) SHRL 16; 
:= TYPEINFO(Rl) SHLL 16 OR #92000000 OR R7; EMIT; 



Rl : = 

BEGIN 
Rl 
RO 

EN D ; 

R7 s = 



RO 

END; 
RO -: = 



R7 + DES LENGTH; 
DESLENGTH - 5 SHLL 



16 OR #02000004 ++ R7 ; EMIT; 



R3 

RO 
RO 
R7 
END; 



INSCOUNTER - 6; INSCOUNTER : = RO; 
LSTACKM4CR5); R6 := 1; RELEASE; R5 != R5 - 

#45400000 OR ALLOCERR; EMIT; 

CLN SHLL 12 OR FP OR #50000000; EMIT; 

SIGN; Rl := SAVERl; 



4; 



PROCEDURE L BOUND! R 1 1 ; 

COMMENT PUT HI) INTO DESCRIPTOR in - AR61); 

BEGIN LOGICAL SAVERl, SAVERS; SAVERl := Rl; SAVERS := 

R8 - SSIZE; RIO := STACKP4<R3) AND #FFFF + 4; 

LSTACKM4(R5) AND #00F00000 OR RIO OR #50000000; 

LSTACKM4CR5); R6 : = 1; RELEASE; R5 := R5 - 4; 

SAVER6; Rl := SAVERl; 



R3 
RO 
R3 
R6 
END; 



R6; 



EMIT; 



INTEGER SAVERl; 
CASE R3 OF 

BEGIN 

initaref; index op; 

lbound; initadcl; 
END; 

Rl := SAVERl; 
END; 



SAVERl := Rl; 

FILLOeSCRIP; CLOSEDESCRIPJ 



SEGMENT 14 NAME = SEG#14 



LENGTH 



09C0 BASE REG = 15 



11 


04 74 


C7 


0943 


11 


4 74 


07 


948 


11 


0474 


07 


0948 


11 


474 


07 


0948 


11 


0484 


07 


094C 


11 


C48A 


07 


094C 


11 


49 2 


07 


094C 


11 


0492 


07 


094C 



1702 

VB3 PROCEDURE TERMPROCEXI T IR1) ; COMMENT THIS PROCEDURE HANDLES 

1784 TERMINAL NODE VARIABLES OR LITERALS FOR TYPED PROCEDURE EXIT; 

1785 BEGIN INTEGER SAVERl; SAVERl : = Rl; GETTYPE; 

1786 Rl := R7 SHRL 24; 

1787 IF R3 ■= 6 THEN 

1788 BEGIN COMMENT LOGICAL; 

1789 GET ADDRESS; 
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11 


04<?£ 


07 


0940 


11 


Q4B0 


07 


094C 


• 11 


04 ec 


07 


0940 


11 


cmc a 


07 


C94C 


11 


0404 


07 


09 40 


• 11 


04 Eo 


07 


CO'} 40 


11 


C4F2 


07 


094C 


11 


050A 


07 


0940 


• 11 


C5 2A 


07 


09 4C 


11 


5 23 


G7 


0940 


11 


52A 


07 


09 40 


# 1 1 


52 A 


07 


0940 


11 


52A 


07 


0940 


11 


C ** 2 A 


07 


0940 


• I5 


coco 


07 


0940 


1 15 


coco 


07 


0940 


; 15 


0000 


07 


0940 


• 15 


00 04 


07 


0958 


15 


OOOE 


C7 


09 58 


15 


001 A 


07 


0958 


l> • 15 


c* /*» "i '■ 
U 'J Z o 


07 


0958 


1 15 


0032 


07 


0958 


15 


003C 


07 


0958 


• 15 


003E 


07 


0958 


15 


003E 


7 


095 8 


15 


00 3 E 


07 


0953 


9 15 


00 3E 


07 


0958 


15 


004 2 


07 


950 


15 


0056 


07 


09 50 


• 15 


00*62 


07 


095C 


15 


0082 


07 


0950 


15 


0092 


07 


095C 


• 15 


00A6 


07 


09 50 


15 


OOCO 


07 


09 50 


15 


O0D2 


07 


950 


• 15 


CODA 


07 


09 50 


15 


00 £ A 


07 


09 50 


15 


COF4 


C7 


0950 


# 15 


0100 


07 


0950 


15 


0114 


07 


09 50 


15 


012 


07 


095C 


15 


013E 


07 


09 50 


15 


0156 


07 


0950 


15 


016 2 


C7 


09 50 


• 15 


0176 


07 


0950 


15 


0182 


07 


0950 


15 


019C 


07 


09 5C 


15 


01AC 


07 


09 50 


15 


01AE 


07 


09 50 


15 


01AE 


07 


09 5C 


• 15 


01 A E 


07 


095C 


15 


01AE 


07 


095C 


15 


1 B2 


07 


0960 


• 15 


0.106 


07 


0960 


15 


1 E 6 


07 


0960 


15 


0202 


07 


0960 


# 15 


0216 


07 


0960 


15 


0226 


07 


0960 



1790 
1791 

17 92 
1793 
1794 
179 5 
17 c >o 

179 7 
1798 

1799 

1800 
1301 

180 2 
1803 
1804 
1805 
1306 
1307 
1808 
1309 
1310 
1811 
1812 
1813 
1814 
1815 
1316 
1817 
1318 
1819 
1820 
1821 
1822 
1823 
1824 
132 5 
1826 
1327 
1328 
1829 
1830 

18 3 1 
18 32 
1883 
1834 
1835 
1336 
1837 
183 8 
1339 
1840 
1841 
1842 
1343 
1344 
1345 
1846 
1347 



RO := #43300000 OP. R3; EMIT; COMMENT VALUE IN R3| 

R7 := #86000000; R6 := 6; SET* TERMNODE ) ; 
END ELSE IF R3 = 7 THEN 
BEGIN COMMENT STRING; GETADDRESS; 

RO := #41300000 OR R3 ; EMIT; COMMENT ADDRESS OF STRING IN R3J 

R7 := #87)00000; R6 := 7; SET(TERMNODE) ; 
END ELSE IF Rl = RCCLID THEM RECOROALLOCATE ELSE 
BEGIN CONVERT; LOADREG; END; 

Rl : = SAVER l; 
END; 

SEGMENT PROCEDURE PARAMETERS ( Rl ) ; COMMENT THIS PROCEDURE CALLS THE 
APPROPRIATE PROCEDURE TO HANDLE ACTUAL AND FORMAL PARAMETERS; 

BEGIN 

PROCEDURE EMIT IT (Rl); COMMENT EMITS SAPDS; 

BEGIN INTEGER SAVEINS; ARRAY 2 INTEGER TEMP; 

STM { RO , R 1 , T EMP ) ; MVC < 3 , S A VEI NS , 1 NSCQUNTER) ; 

Rl := STACKP8<R8* AND MASK; INSCOUNTER '= Rl; 

EMIT; 

Rl := STACKP8(R8) + 4; STACKP8CR8) : = Rl; 

MVC {3, I NSCOUNTER, SAVEINS); LMIRO, Rl, TEMP ) ; 
END; 

PROCEDURE SU8RENTRY CRD; COMMENT THIS PROCEDURE EMITS THE CODE FOR 
I « PL I C I T SO BR UT I N E E M T RY ; 
BEGIN INTEGER SAVERl; SAVER 1 : = Rl; 
RO := #58200000 OR MP; EMIT; 
CALL ALLOCATE; 

RO := #1.8330000; EMIT; RO := #18440000; EMIT; 
RO := #90046000; EMIT; 
RO : = #50600000 OR MP; EMIT; 

R3 := CLN - 1; CLN :- R3 ; Rl := 12 - R3 SHLA 2 + DSP; 
RIO := R8 - SSIZE; RIO := STACKCR10) AND MASK - 4-; 
RO := TREE! RIO) SHRL 24; 

IF RO = STACKADDR THEN Rl := TREE (RIO) AND MASK; 
R3 := R3 SHLL 12 OR Rl; NEXTADDR := R3; 
Rl := CLN; IF Rl = 10 THEN 

BEGIN RO := #58805000 OR DSP; EMIT; END ELSE 
IF Rl < 10 THEN 

BEGIN RO := Rl + 1 SHLL 20 OR #98085000 OR DSP; EMIT; END; 
RO :■= CLN SHLL 20 OR #18060000; EMIT; 
Rl := CLN; IE Rl = 1.1 THEN 

BEGIN RO := #50806000 OR DSP; EMIT; END ELSE 
IF Rl < 11 THEN 



BEGIN RO 



1 SHLL 20 OR #90086000 OR DSP; 



EMIT; 



end; 



CHAININ; Rl := SAVERl; 
END; 



PROCEDURE SU3REXITIR1) ; COMMENT THIS PROCEDURE EMITS THE CODE FOR 
IMPLICIT SUBROUTINE EXIT; 
BEGIN INTEGER SAVERl; SAVERl := Rl; 

Rl := NEXTADDR AND MASK SHRL 12; RO J= NEXTADDR AND #FFF; 

IF Rl -.= CLN OR RO >= #FF9 THEN BEGIN R3 : = 5; EROR; £ND| 

RO := CLN SHLL 12 OR #98120000 OR RETAJ EMIT; 

RO := #50200000 OR MP; EMIT; 

RO := #07F10000; EMIT; 

COMMENT FIXUP LA INSTRUCTION IN SUBRENTRY; 



1. 
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15 


0226 


07 


0960 


15 


023 2 


01 


096 


15 


023 A 


07 


0960 


15 


QUI 


07 


96 


15 


2 5 6 


07 


0960 


15 


025A 


C7 


0960 


15 


2 5C 


C7 


0960 


15 


025C 


a 


0960 


15 


02 5C 


a 


09 60 


15 


02 5C 


07 


096 


15 


02 50 


07 


0960 


15 


02 6 


07 


0964 


15 


02 84 


07 


0964 


15 


02.84 


07 


0964 


15 


02 8A 


07 


09 64 


15 


0292 


07 


0964 


15 


C29E 


07 


096 4 


15 


2A6 


07 


0964 


15 


02B2 


07 


0964 


15 


C2C0 


C7 


0964 


15 


2CO 


07 


09 64 


15 


02CC 


07 


0964 


15 


02DC 


07 


09 64 


15 


02 DC 


C7 


0964 


15 


02 E a 


07 


0964 


15 


02FC 


07 


09 64 


15 


030 6 


07 


0964 


15 


G31E 


07 


0964 


15 


03 2E 


07 


964 


15 


033 A 


07 


0^64 


15 


G33A 


07 


0964 


15 


C34A 


a 


0964 


15 


€34 A 


07 


0964 


15 


0354 


C7 


09 64 


15 


03 5 A 


07 


G964 


15 


0364 


07 


0964 


15 


0370 


C7 


0964 


15 


03 74 


07 


09 64 


15 


0376 


C7 


0964 


15 


37 6 


07 


0964 


15 


0376 


07 


0964 


15 


3 1 6 


G7 


0964 


15 


37 A 


C7 


096 8 


15 


03 66 


07 


096 8 


15 


3 $ 2 


07 


968 


15 


398 


C7 


0968 


15 


0398 


07 


0968 


15 


0393 


07 


096 8 


15 


039C 


07 


0968 


15 


03 88 


07 


096 8 


15 


03C4 


07 


09 5 8 


15 


03 DC 


07 


0968 


15 


3EO 


07 


0968 


15 


03F0 


07 


0968 


15 


03 F 4 


07 


096 8 


15 


04 CO 


C7 


096 8 


15 


0412 


C7 


0968 


15 


041 A 


07 


09 68 



1848 
1340 
18 50 
1351 
1852 
1 353 
1354 
1855 
1356 
1357 

185 8 
1859 
I860 
1361 
18 62 
1363 
1364 

186 5 
1866 
1867 
186 8 
1369 
1870 
137 1 
1372 
1673 
18 74 
1375 
1876 
1877 
1378 
1879 
1880 
1831 
1882 
1833 
13 34 
1885 
1386 

188 7 
1888 
1889 
1.890 
1891 
1892 

189 3 
130 4 
139 5 
1896 
1897 
1898 
1899 
1900 

i<m 

1002 
1903 
1904 

1905 



Rl := LOGPQ INTER; R.3 := LOGSTACK(Rl) *■ 

Rl := Rl - 45 LOGPOINTER : = Rl? 

RIO := NEXTAOOR AMD rfFFF OR #6000 «■ 7 SHRL 
PROGRAM <R3) := RIO; 
Rl :■= SAVER l; 
E NO ; 



2; 



3 SHLL 3; 



PROCEDURE PR0CEDURECALLIR1 
PROCEDURE CALL CODE, CO 
AND SETS UP POINTERS TO 
BEGIN INTEGER SAVER 1; 
MARKRECORDS; DUMP 
COMMENT GET NUMBER 
Rl := 1; R3 := R8 
Ll: RIO := STACKCR3) AND 
RIO := TREE (RIO) SHL 
IF RIO = APRPAREN TH 
Rl := Rl -I- 1; R3 
L2: R3 := Rl; PROCCALLC 
COMMENT SAVE NEXT ADD 
AND INSCOUNTER OF 
Rl := LOGPOINTER + 4 
Rl := Rl + 4; RO 
LOGPOINTER := Rl J 

= 7 THEN RO := 
Rl SHLL 24 + R 
= 12 THEN Rl : 
#47F0E00G; 
CLN; IF RO = 1 
COMMENT PAD T 
;= #47000000; 



I 
R 
R 
B 

E 

R 
K 
R 
R 
R 
END; 



IF Rl 
Rl ■: = 
F RO 
: = 
1 = 
EG IN 
RO 

nd; 



); COMMENT THIS PROCEDURE SETS UP 
UMTS THE NUMBER OF ACTUAL PARAMETERS <«1), 
BASE OF THE SAPDS AND IMPLICIT SUBRS; 
SAVER1 : = Rl; 
ALLGENREG; DUMPALLFLREG; 

F ACTUAL PARAMETERS; 

MASK; 
L 1 SHRL 25; 
EN GOTO L2; 

:= R3 - SSIZE; GOTO LIS 

ODE; 
R <T0 BE RESET AFTER SUBRS COMPILED) 

BRANCH AROUND SUBRS; 
; RO := NEXTADDR; LOGSTACK(Rl) : = RO; 

:= INSCOUNTER; LOGSTACK (Rl > : = RO; 

Rl := Oi IC(R1,SIMPLETYPECR7)H 

SIMTYPEINF0IR7) SHLL 16 + INSCOUNTER; 
0; RO := CLN; 
= Rl-4 ELSE Rl := Rl-8; STACKP4-CR8J := Rl; 

EMIT; 
2 THEN 

CORRECT SARD DISPLACEMENT; 
EM I T ; 



1 := R3 SHLA 3; 
1 := Rl + RIO; 
1 := Rl SHLL 16 
8 : = R8 +■ SSIZE; 
1 s= SAVER I ; 



RIO := INSCOUNTER; 
INSCOUNTER := Rl; 
RIO; STACKP8CR8) : = Rl; 

SUBRENTRY; R8 := R8 - SSIZEl 



PROCEDURE ACPARAM(Rl); COMMENT THIS PROCEDURE BUILDS A SAPD AND 

IMPLICIT SUBROUTINE (IF THERE IS TO BE ONE) FOR A PROCEDURE CALL; 
BEGIN INTEGER SAVER1; SAVER1 := Rl; 

R3 := CLN + 1; CLN := R3 ; 
IF R7 = NULLST THEN R7 : ■= SIGN; 
IF R7 >= THEN 

BEGIN COMMENT ACTUAL PARAMETER IS ID OR CONSTANT. 
NO IMPLICIT SUBROUTINE FOR ID; 
R7 := R7 AND MASK2; 

Rl := CLN; IF Rl <= 6 THEN BEGIN R3 := 4; EROR; END; 
IF Rl = 12 THEN Rl := INSCOUNTER - NUMBYTESUBR 
ELSE Rl := INSCOUNTER - NUMBYTESUBR - 4; INSCOUNTER := Rl; 
Rl := CHAIN! 0); 

WHILE Rl >= INSCOUNTER DO Rl := PROGRAM? R 1+2) ; 
CHAIN (0) := Rl; 

Rl := LOGPOINTER - 4; LOGPOINTER := Rl; 
GETTYPE; RO := #A00O000O OR R3; 
IF R3 = 7 THEN 
BEGIN Rl := S IMTYPE INFO( R7) SHLL 8 OR RO; RO 2= Rl; END; 
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15 


0426 


07 


096 8 




1*5 


04 2C 


C7 


0068 


A 


15 


044C 


07 


96B 




15 


04 5 C 


07 


096 8 




15 


0A5C 


07 


0968 




15 


04 64 


07 


0968 




15 


0464 


07 


96 8 




15 


Q46E 


C7 


96 3 


fp 


15 


04 7 A 


07 


0968 




15 


04 7 E 


07 


96 8 




15 


048A 


07 


96 8 


a 


15 


0492 


07 


0968 




15 


04 A 4 


07 


0968 




15 


0483 


07 


096 8 




15 


04 C 4 


07 


096 8 




15 


C4CC 


C7 


96 8 




15 


04CA 


07 


096 8 




15 


C4EA 


07 


96 8 




15 


04 £ A 


07 


96 3 




15 


05GC 


07 


0968 




15 


05 06 


07 


096 8 




15 


5 1 6 


07 


096 8 




15 


053 2 


07 


0968 


^Bf 


15 


C54 2 


07 


968 




15 


54A 


07 


096 8 




15 


0558 


07 


0968 


• 


15 


C553 


07 


96 8 




15 


C55C 


07 


0968 




15 


C55C 


07 


96 8 


• 


15 


564 


07 


096 8 




15 


0574 


07 


096 8 




15 


G574 


07 


096 8 


• 


15 


57A 


07 


96 8 




15 


0586 


07 


0968 




15 


C592 


07 


0968 


# 


15 


5 90 


07 


96 3 




15 


5A4 


07 


096 8 




15 


5B6 


C7 


96 8 


• 


15 


05B6 


07 


096 8 




15 


05BA 


07 


096 8 




15 


5BA 


07 


0968 


• 


15 


5CG 


07 


0968 




15 


C5C3 


07 


0968 




15 


5C 8 


C7 


96 8 


• 


15 


05 DO 


07 


0968 




15 


05 08 


C7 


096 8 




15 


C5EA 


C7 


968 


# 


15 


5FA 


07 


0968 




15 


06 A 


07 


0968 




15 


06 IE 


07 


96 8 


• 


15 


6 32 


07 


096 8 




15 


0652 


07 


968 




15 


66 A 


07 


096 8 


• 


15 


067E 


07 


0968 




15 


068E 


G7 


0968 




15 


696 


07 


0968 


• 


.15 


06 A 


07 


0968 




15 


06A4 


C7 


0968 



190 6 
1907 
190 8 
1909 
1910 
1911 
19 1 2 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
19 2 5 
1926 
192 7 
1928 
1 92 9 
19 30 
1931 
1932 
1933 
19 34 
19 3 5 
19 3 6 
1937 
1938 
1939 

194 
1941 
1942 
1943 
1944 
1945 
1946 
1747 
1948 
1949 
1950 

195 1 
1952 
1953 
1954 
19 5 5 
1956 
1957 
19 53 
1959 
1960 
1961 

196 2 
1963 



STRYNG OR Rl = TRUE OR 



Rl : = R7 SHRL 24; 

IF Rl = NUMBER OR Rl = BIT OR Rl = 

Rl = FALSE OR Rl = NULLL THEN 
BEGIN COMMENT LITERAL; 
IF R3 = 7 THEN 

BEGIN COMMENT GET STRING LENGTH FROM CONSPTTAB; 
RIO := R7 AND MASK + CPTBASEj 
RO := CONSPTTAB (RIO) AND OPCODEMASK 
END ELSE 



SHRL 16 OR #A2000007; 



RO : = 
Rl : = 
RO : = 
RO : = 
Rl : = 
BEGIN 



RO OR #0 2000000; EMITIT; 

STACKP4<R8) AND MASK; 



11 



RO : 

end; 

CHAIN IN 
Rl 

IF 



STACKP8(R8) SHRL 
#5820000 OR MP; 
CLMJ IF Rl <= 

IF = THEN RO 
RO 
:= RO OR DSP; 



OR #41301000 



16 - Rl 

EMIT; 
THEN 
:= #58B05000 ELSE 
:= Rl SHLL 20 OR #98065000; 

EMIT; 



EMITITJ 



AND MASK + CPTBASE; 



Rl 



RO : = 
RO : = 
Rl : = 
R3 : = 
END ELSE 
BEGIN COMMEN 

FORMAL 
Rl : = 
IF Rl 
BEGIN 

Rl 

IF 

IF 



RIO : = R7 
R7 SHRL 24; 

= NULLL THEN RO s= #41300000 OR NULLREF 
CONS PTTABI RIO) AND MASK OR #4130E000; 
#071=10000; EMIT; 

INSCOUNTER SHLL 16; 
STACKP8(R8) AND MASK OR Rl; STACKP8<R8> :« 



ELSE 



IT; 



R3| 



ACTUAL, ANO IF 



ELSE 

or Rl; end; 

EMITIT; 



10, CHECK WHETHER FORMAL OR 
WHETHER VALUE AND/ OR RESULT; 

0; IC(P.1,TVPE(R7}); 

=16 OR Rl = 19 THEN 

COMMENT FORMAL NAME PARAMETER; 

:= R7 SHRL 24; 

Rl = FUNCID THEN RO 5= RO OR #00400000 

Rl = ARRAY ID THEN 
BEGIN Rl := TYPEINF0IR7) SHLL 16; RO s= RO 
EMITIT; Rl := IOLOC2(R7); 

RO := IDL0CKR7) SHLL 12 OR Rl OR #983400001 
END ELSE 
BEGIN COMMENT ACTUAL OR FORMAL BUT VALUE/RESULT. CHECK 

WHETHER PROCEDURE OR SOME KIND OF VARIABLE; 
Rl := R7 SHRL 24; 
IF Rl = FUNCID THEN 
BEGIN COMMENT PROCEDURE; 

RO := RO OR #02400000; EMITIT; 

Rl := STACKP4CR8) 4ND MASK; 

RO := STACKP8CR8) SHRL 16 - Rl OR #41301000; EMITIT; 

RO : = #07000000; EMIT; COMMENT MARKER FOR CHECK; 

RO := #13430000; EMIT; COMMENT SET R4 = R3 + 4096; 

RO := #5A400Q0O OR ADDRSTEP; EMIT; 

RO := IDL0C2(R7) AND #FF; CHAINOUT; 

RO := RO OR #53400000; EMIT; RO := #18F4000Q; EMIT; 

RO s= IDL0C2IR7) SHRL 8 AND #FF - CLN «- 1 SHLA 2 + 
DSP OR #58505000; EMIT; 

RO := #07FF00O0; EMIT; 

Rl := INSCOUNTER SHLL 16; 

R3 := STACKP8LR8) ANO MASK OR Rl; STACKP8(R8) i- R33 
END ELSE 
IF Rl = RCCLID THEN 
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15 


6B0 


C7 


0968 




15 


0680 


07 


963 




| 15 


6C0 


C7 


096 8 




15 


9 6D2 


07 


0968 




15 


06E6 


07 


0968 


^ 


| 1.5 


6F2 


07 


963 




15 


C?C4 


07 


0968 




15 


7 1 6 


07 


968 




| 15 


C7 22 


07 


0968 




15 


0734 


07 


096 8 




15 


074 6 


07 


0963 




| 15 


7 52 


07 


968 




15 


C7 5E 


07 


096 3 




15 


07 5 E 


07 


0^68 




) 15 


07 62 


07 


096 8 




15 


C76E 


07 


0968 




15 


077 A 


0? 


0968 




1 15 


0^84 


C7 


096 8 


-■ 


15 


C7 84 


07 


0968 


p 

6 


15 


0788 


07 


0968 


'"' * 


) 15 


C 7 98 


C7 


09 68 




15 


079C 


07 


0968 




15 


C7QC 


07 


0968 




| 15 


C79C 


C7 


0963 




15 


079C 


07 


0963 




15 


079C 


07 


0968 


4 


1 15 


07AO 


07 


0968 




15 


07 3C 


07 


0968 


. 


15 


07C6 


07 


0968 




| 15 


07CC 


07 


968 




15 


07CC 


07 


096 8 




15 


704 


07 


0968 




| 15 


07 D4 


07 


0968 




15 


70 8 


07 


0968 




15 


07 DC 


C7 


0968 




| 15 


C7E4 


07 


096 8 




15 


C?E4 


07 


096 3 




15 


C7EE 


07 


9 68 




| 15 


7F8 


07 


0968 




15 


C7F3 


07 


0968 




15 


07FE 


07 


0968 




| 15 


07FE 


07 


0968 




15 


C7FE 


07 


968 




15 


30C 


07 


096 8 




| 15 


80C 


07 


0968 




15 


8OC 


07 


0968 




15 


0S1C 


C7 


0968 




| 15 


C32C 


07 


0968 




15 


834 


07 


0963 




15 


840 


07 


0968 




| 15 


C850 


07 


96 8 




15 


C864 


G7 


0968 




15 


376 


07 


0968 




| 15 


C8 7A 


07 


096 8 




15 


8 7A 


07 


0968 




15 


087E 


07 


0968 




| 15 


0864 


C7 


0968 




15 


0898 


07 


0968 



1964 
196 5 
1966 
1967 
196 8 

196 9 
1970 
1971 
1972 
1973 
1974 

1 9 7 5 
19 76 

197 7 

197 8 
19 79 
1980 
1831 

198 2 
1983 
1984 
193 5 
1936 
1987 

198 8 
1939 

199 
199 1 
199 2 
1993 
1994 
199 5 
199 6 
199 7 
1998 

199 9 
2000 
2001 

200 2 
200 3 
2004 
2005 
2006 
2007 
2008 

2 009 
2910 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2 020 
2021 



BEGIN COMMENT EMIT FULL SUBR 
RO := #A20(>0009; EMITIT; R 
RO := STACKPS<R8) SHRL 16 
SUBRENTRY ; M A'RKRECORDS 5 



69.326 a 00:02 

- CALL RECORD ALLOCATE; 

1 := STACKP4(R8) AND MASK; 

- Rl OR #41301000; EMITIT; 

R3 := 0? 
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IC(R3,TYPEINF0{R7+1 ) ) ; R3:=R3 SHLL 4 ++ 


rectable; 






RO := #41300000 OR R3; 


EMIT; 












RO := a R EC ALLOC ATE; RO : = 


NEG RO; 


emitcall; 








P,3 := NEXTADOR + 3 AND #FFFFFFFC; 












RO := #5 0300000 OR R3; 


EMIT; 












RO := #41300000 OR R3; 


EMIT; 












R3 := R3 + 4; NEXTADOR 


i= R3; 


SUBREXIT; 








Rl := CLN + 1; CLN := 


Rl; 












END ELSE 














BEGIN COMMENT VARIABLE, CON 


ID, OR 


ARRAY 10; 








IF Rl = CON ID THEN RO : = 


RO OR #01000000 


ELSE 








IF Rl = ARRAY ID THEN 














BEGIN Rl := TYPE INFO CRT) 


SHLL 16 


; RO : = 


RO OR 


Rl; 






END; 














EMITIT; 














RO := IDL0CHR7) SHLL 12 


+ IDL0C2IR7) OR 


#41300000; 






EMITIT; 














END; 












END; 










END; 












END ELSE 












BEGIN 


COMM ENT NONT ER MI NAL ; 










Rl 


: = 


CLN; IF Rl <= 7 THEN BEGIN 


R3 := 4; 


EROR; 


END; 




Rl 


.» — 


R7 SHLL 1 SHRL 25; 










IF 


Rl 


= THEM 










BEGIN 


COMMENT STATEMENT; 












RO 


:= #A240OOOO; EMITIT; 










END ELSE 










BEGIN 


COMMENT EXPRESSION; 












RIO := LSTACKM4CR5); 












IF 


Rl = 6 THEN 












BEGIN COMMENT LOGICAL - CHECK IF ARRAY 


ELEMENT 


* 








R3 := R7 SHLL 8 SHRL 24; 











IF R3 = THEN RIO : = RIO OR SIGN; 

END; 

IF RIO >= THEN 

BEGIN COMMENT COMPUTED ADDRESS - INCLUDES 

SUBSCRIPTED VARIABLES AND FIELD DESIGNATORS; 
RO := R7 AND 1; IF RO = 1 THEN 

BEGIN COMMENT STRING PROCEDURE (WITH P ARAMS) AS ACTUAL 

PARAM - MOVE RESULT INTO LOCAL STACK AT POINT OF CALL; 

RO := R7 AND TYPEMASK SHRL 8 OR Rl OR #A 20000 00; EMITIT; 

Rl i- INSCOUNTER - 10; INSCOUNTER := Rl; 

RIO := LDGPOINTER; Rl := LOGSTACK (R10-8) ; 

RO := R7 AND TYPEMASK OR #02000000 OR Rl; 

R3 := #3000 0000; EMIT; 

RO := RO AND MASK OR #41300000; EMIT; 

Rl := R7 AND TYPEMASK SHRL 16 + LQGSTACKCR 10-8) + 1; 

LOGSTACK (Rl 0-8) s = Rl; 
END ELSE 

BEGIN COMMENT DON'T MOVE; 
RO := Rl OR # A 3000000; 
IF Rl = 7 THEN BEGIN Rl := R7 AND 

RO := Rl; 



TYPEMASK 
END; 



SHRL 8 OR RO; 





PL360 CO 


MPILATION 




15 


89 A 


07 


0968 




L5 


08AA 


07 


0968 




| 15 


8C 


07 


96 8 




15 


8C4 


a 7 


096 3 




15 


8 02 


07 


96 8 


\ 


1 15 


0SE6 


07 


0968 




15 


8 E 6 


C7 


968 




15 


8E6 


07 


96 8 




1 l5 


C8EA 


07 


096 8 




15 


08EA 


07 


96 8 




15 


G3F2 


07 


96 8 




| 15 


0SF6 


07 


0968 




15 


G906 


07 


0968 




15 


916 


C7 


096 8 


f 


| 15 


0932 


07 


0968 


i 


15 


0^32 


07 


96 3 




15 


93C 


C7 


0963 


■'■ i 


| 15 


94 6 


07 


0968 


-■■- 


15 


0<352 


07 


96 8 


; ; 


15 


9 6 6 


C7 


968 


'.' 1 


| 15 


9 -6 6 


07 


0968 


■! 


15 


C98Q 


07 


0968 


"• 


15 


C<5 84 


07 


0968 


- i 


| 15 


099 


C7 


096 8 




15 


C9 93 


37 


0968 




15 


09AA 


07 


0968 




| 15 


0<»C6 


07 


968 




15 


o<jce 


C7 


968 




15 


09 DC 


a 


0968 




) 15 


09CC 


07 


968 




15 


09E4 


07 


096 8 




15 


09E8 


07 


96 8 




| 15 


CSEA 


C7 


0968 




15 


09EA 


07 


0968 




15 


cw e a 


07 


0968 




| 15 


09EA 


7 


0968 




15 


09EE 


07 


096C 




15 


9F2 


07 


096 C 




| 15 


09FE 


07 


096C 




15 


OAOA 


07 


■096C 




15 


0A22 


07 


096 C 




) 15 


0A3 6 


7 


09 6C 




15 


0A3A 


07 


09 6C 




15 


0A3A 


C7 


096 C 




| 15 


0A4A 


07 


096C 




15 


0A56 


07 


096C 




15 


0A5E 


C7 


096C 




) 15 


0A6A 


07 


096C 




15 


0A6A 


07 


096 C 




15 


0A73 


07 


096C 




1 15 


0A7E 


07 


096C 




15 


0A7E 


07 


096C 




15 


CA7E 


C7 


096C 




) 15 


0A8E 


C7 


096C 




15 


OAAO 


07 


096 C 




15 


OAAO 


€7 


096C 




| 15 


oeoc 


07 


096C 




15 


0814 


07 


096C 
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2022 
2023 
2024 
2025 
20 2 6 
2 02 7 

202 8 
2029 
20 30 
20 31 

203 2 
2 033 
2034 
2035 

203 6 
2037 
2 03 8 
20 39 
2040 
2041 

204 2 
2043 
2044 
2045 
2046 
2047 
204 8 
2049 
2050 
2051 
2052 
2053 
20 5 4 
2055 
20 56 
2057 
20 5 8 
20 5 9 
2060 
20 6 1 
2062 
20 63 
2064 
206 5 
200 6 
2067 
206 8 
2069 
2070 
2 071 
2072 
2073 
20 74 
20 75 
20 7 6 
2077 
20 78 
2079 



RO := RIO AMD 
:■= RIO AMD MASK 



#FFF; IF RO • 
OR #4130 0000; 



■- THEN 
EMIT; END ELSE 



RIO AND #FO00 SHLL 4 OR 
-.= #13330 000 THEN EMIT; 
END; 



#18300000; 



AND 



LA 



EMITIT; 

BEGIN RO 
BEGIN 

RO :■= 

IF RO 
END; 

END ELSE 
BEGIN COMMENT RESULT IN REGISTER GIVEN BY TOP 

LSTACK ENTRY - STORE RESULT IN LOCAL STACK 

TEST (SU8ARF LAG); IF = THEN 

BEGIN COMMENT SUBARRAY; RESET( SUBARFLAG) ; 

RO := LSTACKM4KR5) AND iFFFFF OR #A2000D00j EMI TIT; 
R3 •:= LSTACKM4<R5) AND #0F000000 SHRL 4 OR SIGN; 
LSTACKM4IR5):=R3; R6:=l; RELEASE; R5:=R5-4; GOTO LU 

END; 

RO := Rl OR #A2000000; EHITIT; 

R3 := R7 SHLL 1 SHRL 25; 

IF R3 >= 8 THEN R3 := lj 

STORERESULT; IF R3 = 6 THEN 



LI 



end; 
l: r3:=lstackh4(r5); 
end; 
resetrecord; 



GOTO Ll; 
R6:=R7 SHLL 1 SHRL 25; RELEASE; RS:=RS~4; 



Rl : 

RO : 

Rl i 

Rl : 

R3 : 
END; 

5UBRENTRY; 

Rl := SAVER l; 
END; 



STACKP4CR8) AND MASK; 

STACKP8(R8) SHRL 16 - 

CLN-l; CLN := Rl J SUBREXIT; 

INSCOUNTER SHLL 16; 

STACKP8CR8J AND MASK OR Rl; STACKP8(R8) 



Rl OR #41301000; EHITIT; 

Rl := CLN+l; CLN := Rl; 

= R3j 



P. 7 



SIGN; 



PROCEDURE LASTPARAMCR1 ); COMMENT THIS PROCEDURE CALLS ACPARAM FOR LAST 
ACTUAL PARAMETER AMD FINISHES THE PROCEDURE CALL; 



SAVERl; 



BEGIN INTEGER 
AC PAR AM; 

Rl := CLN + l; 
IF Rl = 12 THEN 



SAVERl := Rl; 



CLM := Rl; 

Rl := INSCOUNTER - NUMBYTESUBR 
ELSE Rl := INSCOUNTER - NUMBYTESUBR - 4; INSCOUNTER := Rl; 
Rl :•= CHAINCO); WHILE Rl >= INSCOUNTER DO Rl := PROGRAM! Rl+2 ) J 
CHAIN CO) := Rl; 

COMMENT FIXUP BRANCH AROUND SAPDS-SUBRS AND RESTORE NEXTADDR; 
Rl := LOGPOINTER - 4; R3 := LOGSTACK(Rl) + 2; 
RIO := INSCOUNTER OR #E000; PR0GRAMIR3) := RIO; 

Rl := Rl - 4; RO :■= LOGSTACK I Rl I ; 

NEXT A DDR := RO? Rl := Rl - 4; LOGPOINTER s= Rl; 

COMMENT PUT PROCEDURE SIMPLETYPE IN 
R3 := STACKP4(R8) AND OPCODEHASK; 
IF R3 -•= THEN 
BEGIN COMMENT TYPED PROCEDURE. MARK APPROPRIATE REGISTER USED - 

PROCEDURE RETURNS RESULT IN THAT REGISTER; 

R3 := POO SHRL 24; IF R3 >= 6 THEN R3 := 1; 

RO := FLAG.; R( 4):= RO; RO := 5 - R3 SHLL 30; 

CASE R3 OF 

BEGIN genreg; FLREG; FLREG; PRFLREG; PRFLREG; end; 

RO := 0; R< 4):= RO; 

R3 := STACKP4CR8) SHRL 24; IF R3 <= 5 THEN CONVERTRESULT 



UPPER BYTE OF R7; 
R7 := R3 OR SIGN; 



PL 3 60 COMPILATION 





15 


OB 2.4 


07 


096 C 




15 


CB3A 


07 


096C 


M 


| 15 


33 A 


07 


09 6 C 




15 


004 A 


07 


096C 




15 


0B4E 


07 


096C 


^ 


I 15 


035A 


C7 


006C 




15 


08 5 A 


07 


096C 




15 


36A 


07 


096C 




| 15 


C87A 


07 


096C 




15 


0B8A 


07 


09 6 C 




15 


0B9E 


07 


096C 




| 15 


OBAE 


07 


096 C 




15 


0BC2 


07 


096C 




15 


03D2 


C7 


096C 


■ 


) 15 


OBCE 


C7 


096C 




15 


OBDE 


C7 


09 6 C 




15 


QBE6 


07 


096 C 


Z; A 


| 15 


08 E 6 


07 


09 6C 


s 


15 


3E6 


07 


09 6 C 


F. 

b 


15 


OBEA 


07 


096C 




| 15 


OB EC 


07 


096C 


t; 


15 


OSEC 


07 


096 C 


.-I 


15 


OBFG 


07 


0970 


4 


| 15 


OBFO 


07 


970 




15 


0C14 


07 


0970 




15 


OC2 3 


07 


097 


1. 


| 15 


0C2C 


07 


0970 




11 


0*2A 


07 


0970 


i 


11 


052A 


07 


0970 


| 


1 il 


052A 


07 


0970 


I 


11 


Q52A 


07 


0970 


| 


11 


52 A 


07 


0970 




) 16 


COCO 


07 


0980 


I 


16 


0000 


07 


0980 




16 


000 


07 


09 60 




| 16 


0000 


C7 


09 30 




16 


00 OG 


C7 


0980 


i 


16 


ccca 


07 


0934 




| 16 


GOIE 


07 


0984 




16 


003E 


07 


0984 




16 


0044 


07 


0984 


1 g 


| 16 


0054 


07 


09 84 




16 


0070 


07 


0984 




16 


CC82 


07 


09 84 




| 16 


00 8 6 


07 


09 84 




16 


00 88 


07 


09 84 




16 


CO 8 8 


C7 


0984 




1 16 


00 68 


07 


0984 




16 


0088 


07 


0984 




16 


0083 


07 


09 84 




1 17 


00 04 


07 


0988 




17 


0004 


7 


0988 




17 


00 04 


07 


093 8 




| 17 


0004 


07 


0988 




17 


OCIO 


07 


0988 
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2 030 
2.081 
2032 
208 3 
20 84 
2085 
2086 
20S7 
2 3 8 
2039 
2 090 
2091 
2092 
2093 
2094 
2095 
2096 
2 09 7 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
210 5 
2106 



ELSE IF P.3 = 6 THEM 
BEGIN COMMENT LOGICAL; 

R3 := LSTACKH4IR5) SHLL 1 SHRL 9; LSTACKM4<R5) := R3 » 

R7 := R7 OR #10000; 
END ELSE IF R3 = 7 THEN 
BEGIN COMMENT STRING; 

R3 := LSTACKM4(R5) SHLL 1 SHRL 9; 

RO := STACKP4(R8) AND TYPEMASK OR 

R3 := #30000000; EMIT? 

RIO := STACKP4IR83 AND TYPEMASK 



LSTACKM4(R5) := R3J 
NEXTADDR OR #02000000; 



8 AND 

EMIT; 
TYPEMASK 



EN 
Rl 

END; 



RO :=LSTACKM4( R5) SHLL 

NEXTAOOR := RIO; 

Rl := STACKP4CR8) AND 

END ELSE If R3 = 9 THEN 
BEGIN COMMENT REFERENCE; 

r5 := r5 + 4; setrecord: 
end; 
d; 

:= SAVER 1; 



SAVER 1 := Rl; 



SHRL 16 +1+ NEXTADDRJ 

MASKS OR #41000000 OR NEXTADORS 



OR R7 + ■ 1 ; R7 : = R 1 ; 



R5 



* R5 - « 



■+; 



INTEGER SAVERl; 
CASE R3 OF 

BEGIN PRUCEDURECALL; ACPARAM; LASTPARAM; SU8REXIT; 
END; 

Rl := SAVERl; 
END; 



SEGMENT IS' NAME = SEG#15 



LENGTH = 0D50 BASE REG =15 



2107 

2108 
210 9 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2 120 
2121 
2122 
2123 
2124 
2125 
2126 
212 7 
2123 
2129 
2130 
2131 
2132 
2.133 
2134 



SEGMENT PROCEDURE ENTRYEX ITJ Rl) ; COMMENT THIS 
EXIT PROCEDURES FOR PROCEDURES AND BLOCKS. 
PROCEDURE IS SELECTED BY THE PARAMETER R3; 
BEGIN INTEGER. DPD, SAVE4, LIMTt H0LD4; 



PROCEDURE CONTAINS EN 
THE APPROPRIATE 



PROCEOUR 
fOR A 



E C 

MD 

PARA METE 

BEGIN IN 

RO : = 

RO i = 

IF 

RO 
RO 
Rl 
END; 



Rl 



ALLC0NVLR13; COMMENT THIS PROCEDURE SETS UP THE PARAMETERS 
CALLS THE CONVERT ROUTINE TO CONVERT VALUE AND RESULT 
RS, RA = 0,1 : RESULT, VALUE ; 
TEGER SAVERl; SAVERl := Rl; 

R3 SHLL 8 OR #41000000; EMIT; 

CLN SHLL 12 OR DPD OR #43000000 + 4; EMIT; 
0=0 THEN BEGIN COMMENT RESULT - NEGATE RO i 
RO := #11000000; EMIT; END; 

CLN SHLL 12 + IDL0C2(R4) OR #41200000; EMIT; 

SFPARCQNV; RO := NEG RO; EMITCALL; 

SAVERl; 



SEGMENT PROCEDURE PROCEDUREENTRY ( Rl ) ; COMMENT THIS PROCEDURE EMITS THE 
FOR PROCEDURE ENTRY; 
BEGIN INTEGER SAVERl; SAVERl : = Rl; 

COMMENT PLACE SIMPLETYPE OF PROCEDURE, BASE AND LENGTH OF 
FPARS IN MAMETABLE, AMD WHETHER OR NOT THERE ARE RESULT 
PARAMETERS IN STACK; 
Rl := 0; ICtRliSI MPLETYPECR7) ) J STACKP4JR8) := Rl; 

IF Rl = 7 THEN 
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17 


0018 


C7 


098 8 


17 


CO 18 


C7 


098 3 


17 


0022 


07 


98 8 


17 


02 6 


7 


0988 


17 


002 6 


07 


0988 


17 


002E 


07 


098 8 


17 


003 A 


07 


09 3 8 


17 


34 


07 


09 8 8 


17 


00 3 E 


J 7 


0988 


17 


0C50 


07 


98 3 


17 


00 54 


07 


988 


17 


00 34 


07 


0988 


17 


00 58 


07 


0988 


17 


006 


07 


0988 


17 


C060 


07 


098 8 


17 


0060 


C7 


0988 


17 


00 60 


07 


0988 


17 


0C6A 


07 


98 8 


17 


0C7C 


C7 


98 3 


17 


00 8 2 


07 


98 8 


17 


CO 82 


07 


0988 


17 


008E 


C7 


988 


17 


0096 


37 


0988 


17 


00 A 6 


07 


0988 


17 


COAE 


07 


0988 


17 


00 B8 


C7 


09 88 


17 


00B8 


C7 


988 


17 


00C2 


7 


98 8 


17 


OODO 


07 


0980 


17 


CODE 


C7 


0988 


17 


CODE 


07 


98 8 


17 


00 EC 


07 


0988 


[7 


00 FO 


07 


098 8 


17 


0104 


07 


098 8 


L7 


C10C 


07 


09 8 8 


1 1 


0110 


07 


0988 


17 


01 1C 


07 


0938 


17 


0124 


07 


0988 


17 


013C 


07 


0988 


17 


0154 


07 


0988 


17 


0173 


07 


0988 


17 


019 8 


07 


098 8 


17 


01 A 8 


07 


0988 


17 


01A8 


07 


0988 


17 


0184 


07 


09 88 


17 


018C 


07 


0988 


17 


1C 2 


07 


988 


17 


01C2 


07 


988 


17 


0102 


07 


98 


17 


01D2 


07 


98 8 


17 


01 06 


07 


988 


17 


1 E 2 


07 


0988 


17 


01FC 


07 


0988 


17 


01 FE 


07 


0988 


17 


02C6 


07 


098 3 


17 


02CA 


07 


0988 


17 


02CA 


07 


0988 


17 


214 


07 


0988 



2135 
2136 
213 7 
2133 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
215 5 
2156 

215 7 
2 15 8 
2159 
2160 
2161 

216 2 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 

217 3 
2174 
2175 
2176 
2177 
2178 

217 9 

218 
2181 
2182 
2183 
2184 
213 5 
218 6 
2187 
2188 
2189 
2190 
2191 
2192 



AND MASK; 
16 OR R3S 



BEGIN COMMENT STRING PROCEDURE; 

RO := SIMTYPEINF0(R7) SHLL 16 OR Rl 

STACKP4(R8) := RO ; 
END; 

Rl := TYPEINF0(R7) SHLA 2; 
IF Rl -.= THEN 
BEGIN COMMENT THERE ARE FPARS; 

Rl := BLOCKLIST(Rl); R3 := Rl 

RIO s = Rl SHRL 16 - 12 + R3 SHLL 

STACKP8CR8) := RIO; 
END ELSE 
BEGIN COMMENT NO FPARS; 

RO := 0; STACKP8<R8) : = RO; 
ENO; 
COMMENT SET CLN (CURRENT LEVEL NUMBER) , LOGSEG (CURRENT 

PROGRAM SEGMENT NUMBER), AMD NEXTADOR (LOCAL STACK ORIGIN) 
R3 := R7 ANO MASK; R3 5= NAMETABLE1R3 I ; 
RO : = R3 AND #FF; LOGSEG := RO; IF RO = 1 THEN 
BEGIN RIO s- R1Q-R1Q; STACKP8CR8) := RIO; 
E NO ; 

SEGNO (0) := RO; RO := 0; SEGTA3IDX := RO; 
RO := ENDCHAIN; CHAINCO) := RO ; 
RESET(PRIMT); MVI ( 0, TRACEIT) ; CLKO, TRACE) 
BEGIN RIO := LOGSEG; LM (RO ,R1, TRACEBITS ) ; 

SL OL { RQ ,810); IF RO < THEM 



IF -.= THEN 



BEGIN 
RO 
IF 

end; 
£ nd ; 

RIO 
RIO 



COMMENT SET TRACE FLAG FOR SEGMENT; 
:= RO-RO; IC( RO, TRACE) ; STC ( RO , TRACEIT) ; 
RO = 2 OR RO = 5 OR RO = 8 THEN SET (PR I NT); 



SHRL 8 



Rl 
Rl * 
R14 
RO ; 



:= R3 ANO #-FFO0 

:= RIO SHLL 12; 

= R3 SHRL 16 OR RIO 

= Rl +• 8; NEXTADOR 

:= SAVE14; 

= 0; INS COUNTER := RO ; 



+ 7 ANO 
:= Rl; 



CLN : = RIO; 



.8; BASELOC := Rl: 



:= RO 



NUMSTACK := RO, 



FOR 
FOR 

RO 
RO 

RO 



Rl 
Rl 



;= 

:■= 



STEP 2 
STEP 4 



NUMSTACKP 

REFP COUNT 5 = RO; 

UNTIL 200 DO PROGRAM! Rl) s= RO; 

UNTIL 96 DO NUMSTACK (Rl) := RO ; 



:= LO ADM ARK OR #FC08; EMIT; 



RO 



•— '-J t 

' — A • 



WRITENUMBER; 

WRITENUMBER; 
COMMENT EMIT SFPO'S; 
R3 := STACKP3(R8) SHRL 16; 
R3 := STACKP8IR8) AND MASK 
IF R3 = THEM 
BEGIN COMMENT NO FPARS; 



RO := 4096 



:= #47F0O0OC); 
WRITENUMBER; 



EMIT; 



LIMT := R3; 



RO '.■= 

END ELSE 

BEGIN 

RO : = 
Rl : = 

FOR RIO 

BEGIN 



0: 



WRITENUMBER; 



0; Rl := TYPEINF0IR7) SHLL 
BLOCKLIST(Rl) SHRL 16 / 12; 
= R3 STEP 12 UNTIL LIMT DO 
Rl := 0; 

IC(R1,SIMPL£TYPE(R10) ); 
BEGIN 

RO := Rl; IF Rl = 7 THEN 

BEGIN COMMENT STRING; 



2 



RO := Rl; WRITENUMBER; 



PL36C COMPILATION 



17 


0214 


07 


09 8 8 


17 


0220 


07 


0980 


• ll 


022O 


07 


0988 


17 


2 2 


07 


0988 


17 


0228 


07 


098 8 


# 17 


C234 


07 


098 8 


17 


02 A 


07 


988 


17 


0240 


07 


098 3 


% 17 


2 AC 


37 


098 8 


17 


G24C 


07 


098 8 


17 


2 58 


C7 


0988 


• 17 


2 64 


07 


0988 


17 


0270 


07 


098 8 


17 


0270 


07 


0988 


• 17 


02 7 


C7 


098 8 


17 


027 3 


07 


0988 


17 


02 84 


07 


0988 


• 17 


28 8 


07 


98 8 


17 


028C 


07 


0988 


17 


0202 


07 


098 8 


17 


020 6 


07 


098 8 


17 


2. AC 


07 


0938 


17 


0284 


07 


983 


• 17 


02B3 


07 


098 8 


17 


02BC 


07 


0988 


3.7 


021)2 


07 


098 8 


• 1T 


02CC 


C7 


0988 


17 


02 FO 


07 


098 8 


17 


02F8 


07 


0983 


• 17 


030C 


7 


0983 


17 


0318 


07 


0988 


17 


2 20 


07 


0988 


17 


0340 


G7 


098 8 


17 


0350 


07 


0988 


17 


3 64 


07 


0988 


• iT 


0370 


07 


0988 


17 


3 78 


7 


0988 


17 


03 7 e 


C7 


0988 


• ! 7 


03 8 


C7 


098 8 


17 


C38C 


07 


098 8 


17 


0304 


07 


0988 


17 


03A4 


07 


0988 


17 


03A4 


07 


0938 


17 


03 80 


07 


0983 


• 17 


03B3 


7 


098 8 


17 


0388 


\» I 


0988 


17 


03C4 


07 


0988 


• l? 


030 8 


C7 


0988 


17 


0.3F0 


07 


0988 


17 


03F0 


07 


0988 


• 17 


C3FQ 


C7 


0988 


17 


03 FC 


07. 


0988 


17 


0406 


07 


0988 


• 17 


04 6 


07 


0988 


17 


040 E 


07 


0988 


17 


04 OF 


07 


0988 


17 


04 10 


07 


0938 


17 


0432 


07 


0988 
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2193 
2194 

219 5 
219 6 
2197 
2198 

2 1 9 9 
2 20 

220 1 
;j i n 2 

2203 
2204 
220 5 
2206 
2207 
220 8 
2209 
2210 
2211 
22 1 2 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
223 7 
223 8 

223 9 
2240 
2 241 
2242 
2243 
22 44 
2245 
2246 

224 7 
2248 
2249 
22 5 



MRITE-NUMBER; 

INS COUNTER := RO; 



Rl := SIMTYPE INFO (RIO) SHLL 8 OR RO; RO :~ Rl; 

end; 
EN D ; 

Rl : = 0; IC(P,1,TYPE(R10)); 

IF Rl = 19 THEN RO := RD OR #00400000 ELSE 

IF Rl = 18 THEM 

BEGIN COMMENT ARRAY; 

Rl := TYPEINFO(RIO) SHLL 16 OR RO; RO := Rl; 

end; 

IC(R1,VR(R10))J Rl s= Rl SHLL 24 OR RO; RO := Rl; 

writenumber; 

END; END; 

COMMENT LEAVE ROOM FOR LABEL TABLE, UPDATE CONSTANT POINTER 

TABLE, AND OUTPUT CONSTANT TABLE; 
RO := LITORG; INSCOUNTER := RO; 
RIO := CONSPTTABL - 4 + CPTBASE; 
FOR Rl := CPTBASE STEP 4 UNTIL RIO DO 
BEGIN 

R3 := CONSPTTABtRll + RO; 

CONSPTTAB(Rl) := R3; 
E ND ; 

RIO := CONSTABL + 3 SHRL 2 SHLL 2-4; 
FOR R3 := STEP 4 UNTIL RIO DO 
BEGIN 

Rl ;= CONSTAB + R3; RO : = 81; 

END; 

ro := inscounter + 3 shrl 2 shll 2; 
ro := ro or #eqoo; program? s) := ro; 
ro := #58200000 or mp; emit; 
callallocate; 

Rl := INSCOUNTER; LAADD := Rl; 

RO := #41300000; EMIT; RO := #41400000; 

RO :- #90046000; EMIT; 

RO := #50600000 OR MP; EMIT; 

R3 := STACKP8IR8) SHRL 16; LIMT := R3 ; 

R3 := STACKP3CR3) AND MASK; 

IF R3 -.= THEN 

FOR RIO ;= R3 STEP 12 UNTIL LIMT DO 

BEGIN RO := 0; Rl : = 0; 

IC(R1 iSIMPLETYPE(RIO) ); IC(R0,VR( RIO ) I; 

IF Rl = 9 AND RO >= 1 THEN 

BEGIN COMMENT REF VALUE/RESULT PARAM; 

Rl := REFPCOUNT + 1; REFPCOUMT := Rl; 

IF Rl = 1 THEN 

BEGIN COMMENT FIRST ONE; 

Rl 2= LAADD; RO := IDLGC2CR1Q); PROGRAM* Rl + 2) :* RO; 
RO := #58300000 OR NOLLREF; EMIT; 
RO := #6000 + X0L0C2(R10) OR #50300000; EMIT; 
END; 
END; 
END; 

RO := REFPCOUNT; IF RO -»= THEN 

BEGIN COMMENT AT LEAST ONE REFERENCE VALUE/RESULT PARAMETER; 
IF RO > 1 THEN 
BEGIN 

Rl := LAADD; Rl := PROGRAM ( R 1+2 ) ; R3 := #6000 OR Rl; 
RO := RO SHLL 2-5 SHLL 16 OR R3 + 4 OR #02000000; 
R3 := R3 SHLL 16; EMIT; RO := REFPCOUNT; 



EMIT; 
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17 


0446 


07 


0988 


17 


044 6 


07 


0988 


17 


0462 


07 


98 8 


17 


46 2 


7 


98 8 


17 


462 


07 


988 


17 


46 A 


G7 


0988 


17 


04 7 


07 


0988 


17 


047 


07 


098 8 


17 


46 6 


07 


0988 


17 


04A2 


07 


0988 


17 


G4A6 


7 


098 8 


17 


04BA 


07 


098 8 


17 


04DG 


07 


98 8 


17 


04E6 


C7 


0988 


17 


04 F 4 


07 


0988 


17 


05CA 


07 


98 8 


17 


518 


07 


0988 


17 


53 2 


07 


098 8 


17 


5 3C 


C7 


098 8 


17 


0540 


07 


098 8 


17 


C540 


07 


098 8 


17 


0544 


C7 


0988 


17 


54C 


07 


0983 


17 


0560 


7 


988 


17 


56C 


C7 


0988 


17 


058A 


07 


0988 


17 


05A2 


07 


0988 


17 


05/S6 


07 


0938 


17 


C5AE 


07 


0988 


17 


CSC 2 


G7 


0988 


17 


5CE 


Zl 


0988 


17 


5E3 


07 


0988 


17 


G5F0 


07 


0988 


17 


604 


07 


0988 


17 


06 04 


07 


0988 


17 


6 10 


07 


0988 


17 


6 1C 


:>7 


0988 


17 


6 24 


07 


0988 


17 


062A 


07 


0988 


17 


C62C 


07 


0988 


17 


0*30 


G7 


09 88 


1 7 


063C 


07 


0988 


17 


C650 


07 


0988 


17 


65 8 


07 


093 8 


17 


0660 


07 


098 8 


17 


C6 7C 


07 


0988 


17 


0684 


07 


0988 


17 


069 8 


07 


0988 


17 


06A0 


07 


0988 


17 


06 8 


07 


0988 


17 


G6B3 


07 


098 8 


17 


C6B3 


07 


0988 


17 


C6B8 


07 


0988 


17 


C6C4 


37 


098 8 


17 


C 6C 8 


C7 


0988 


17 


06C6 


07 


0988 


17 


06E2 


07 


0988 


17 


C6EA 


07 


0988 



2251 
2252 

2253 
.7.254 
225 5 
2256 
2257 

225 3 
22 5 9 
2260 
2261 
2262 
2263 
2264 
2265 
226b 

226 7 
2263 
2269 
2270 
22 71 
2272 
2273 
2274 

227 5 
22 76 
2277 
22 7 8 
2279 
2280 
223 1 
2232 
22 3 3 
2284 
2285 
2236 
2237 

228 8 
22 39 
2290 
2291 
2292 
2293 
2294 
22^5 

229 6 
229 7 

229 8 
2299 
2300 
2101 
2302 

230 3 
2304 
230 5 
2306 
2807 
2308 



END; 

RO := P.O SHLL 16 OR REFVAR+1 OR #92006000; EMIT; 
END; 

COMMENT SAPO - OPD OPERATIONS; 
Rl := TYPE INFO (R7) SHLA 2; 
IF Rl -v= THEN 
BEGIN COMMENT THERE ARE FPARSj 

R0:=0; Rl := BLOCKL 1ST (Rl ) SHRL 16 / 12; RIO := Rl SHLA 3 - 8; 
SAVE4 := R4; R3 := 12 - CLN SHLA 2 + DSP; DPD :- R3; 

FOR R4 := STEP 8 UNTIL RIO 00 
BEGIN RO := #18420000; EMIT; 

RO := #4400100 + R4 + 16; EMIT; 

RO : = #9034600 + DPD + R4; EMIT; 

R3 :■= #1000 + R4 + 12 SHLL 16; 
RO := #06006000 + DPD + R4; EMIT; 

R3 := #1000 + R4 + 15 SHLL 16; 
RO := #02 006000 + DPD + R4 + 4; EMIT; 

END; 
R4 := SAVE4; 

end; 

Rl := CLN; 
IF Rl = 10 THEN 

BEGIN RO := #58805000 OR DSP; EMIT; END ELSE 
IF Rl < 10 THEN 

BEGIN RO := Rl + 1 SHLL 20 OR #98065000 OR DSP; EMIT; END; 
RO := CLN SHLL 20 OR #18060000; EMIT; 
Rl := CLN; 
IF Rl = 11 THEN 

BEGIN RO := #50806000 OR DSP; EMIT; END ELSE 
IF Rl < 11 THEN 

BEGIN RO := Rl SHLL 20 OR #90086000 OR DSP; EMIT; END; 
RO := INSCOUNTER; BASESTLOC := RO; 
RO := STOREMARK OR 8ASEL0C; EMIT; 
COMMENT DPD - PV OPERATIONS; 
R3 := STACKP8IR8) SHRL 16; LIMT := R3j 
«R3 := STACKP8CR8) AND MASK; SAVE4 : = R4; 
R4 := 6; CNTP := R4; 
IF R3 -.= THEN 

FOR R4 t= R3 STEP 12 UNTIL LIMT DO 
BEGIN 

R3 := CNTP + 8; CNTP := R3; 

R3 : = TYPEINF0CR4) SHRL 8; IF R3 = 3 THEM R3 := 1; 
IF R3 = 1 THEN 

BEGIN COMMENT VALUE; H0LD4 : = R4; R4 := 5AVE4; 
RO : = #FF; R3 := CLN SHLL 12 OR DPD; FPARCOOE; 
SAVE4 := R4; R4 := H0LD4; 

R3 := 0; IC(R3» SIMPL ETYPE(R4) ) ; IF R3 = 1 THEN R3 := 8; 
IF R3 <= 5 THEN 

BEGIN COMMENT CALL CONVERT; RIO := 1; CALLCONV; END ELSE 
BEGIN R3 := R3 - 5; 
CASE R3 OF 
BEGIN 

RO := #02000000; 
BEGIN 

Rl := IDL0C2(R4); RIO := CLN SHLL 12 OR Rl; 

R3 := SIHTYPEINF0IR4); Rl := TYPEINF0<R4) SHRL 8J 

IF Rl = 3 THEM 

BEGIN COMMENT VALUE/RESULT - NO BLANKING NEEDED; 
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17 


C6EA 


07 


0983 


17 


6F8 


07 


0983 


1 7 


6 F8 


07 


098 8 


17 


06FE 


07 


0988 


17 


071Q 


07 


0988 


17 


C718 


07 


98 8 


17 


072E 


C7 


0988 


17 


07 2 E 


7 


0988 


17 


0732 


07 


098 8 


17 


C74 6 


07 


09 8 3 


17 


07 58 


07 


0988 


17 


C753 


07 


098 8 


17 


0774 


07 


0988 


17 


7sa 


07 


0988 


17 


G7A0 


C7 


98 8 


17 


0736 


07 


0988 


17 


7 CE 


07 


0988 


17 


07D2 


C7 


988 


17 


7D2 


07 


0988 


17 


Q7E2 


07 


938 


17 


C If 6 


07 


0988 


17 


804 


07 


0988 


17 


G616 


07 


098 8 


17 


0816 


07 


098 8 


17 


0816 


7 


988 


17 


82 A 


07 


0988 


17 


8 3 2 


07 


0988 


17 


832 


07 


0988 


17 


033E 


7 


0988 


17 


083E 


07 


0938 


17 


846 


07 


0988 


17 


C84E 


07 


0983 


17 


084E 


07 


098 8 


17 


862 


07 


988 


17 


C87A 


7 


098 8 


17 


0882 


07 


988 


17 


C8 92 


07 


98 8 


17 


esse 


07 


98 8 


17 


8AE 


07 


0988 


17 


8AE 


07 


0988 


17 


8BA 


C7 


0988 


17 


8C6 


07 


0988 


17 


cm?. 


7 


0988 



16 


C 8 8 


07 


0988 


16 


00 88 


07 


0988 


16 


O088 


07 


0988 


16 


00 8 8 


07 


0988 


16 


00 8C 


07 


093C 


16 


00 8C 


07 


09 8 C 


16 


0C8C 


07 


098C 


16 


0Q8C 


07 


09 8 C 


16 


0094 


07 


098C 


16 


CC9A 


07 


09 8 C 


16 


00 9 A 


07 


098C 


16 


OOAE 


7 


098 C 



2309 


2310 


23 1 1 


2312 


2 3 1 3 


2 314 


2 315 


2316 


2317 


2313 


2319 


2320 


2321 


2 322 


2323 


2324 


2 32 5 


2326 


232 7 


2328 


232° 


233 


2331 


2332 


2333 


2334 


2335 


2 336 


233 7 


2338 


2 3 3 9 


2340 


234 1 


2342 


2343 


2344 


2345 


2 346 


2 347 


2348 


2349 


2350 


2351 


SEGMENT 


2352 


235 3 


2 354 


235 5 


235 8 


235 7 


235 3 


2 3 5 9 


2 3 60 


2361 


236 2 


236 3 



RO := R3 SHLL 16 OR #02000000; GOTO L2; 

E ND ; 

IF R3 = THEN GOTO LI; 

RO : = #92400000 OR RIO; EMIT; 

IF R3 = 1 THEN 

BEGIN RO := RIO + 1 OR #92400000; EMIT; 

END ELSE 

8 EG IN 

RO := R3 - 1 SHLL 16 OR RIO + 1 OR #02000000; 
R3 := RIO SHLL 16; EMIT; 

END; 
LI: RO := CLM SHLL 12 OR RETA OR #58200000; EMIT; 
RO := #4 3202000 OR CNTP; EMIT; 

RO := INSCOUNTER +10 OR #47FOE000; EMIT; 
RO := #02000000 OR RIO; R3 := #30000000; EMIT; 
RO := INSCOUNTER - 6 OR #4420E000; EMIT; 

GOTO L; 
END; 

RO := #0203 0000; RO v= #02030000; 

END; L2: 

RIO := IDL0C2CR4); Rl := CLN SHLL 12 OR RIO; 
RO := RO OR Rl ; R3 := #30000000; EMIT; 

L: END; 
END; 

R3 := TYPEINFOCR4 3 SHRL 8; IF R3 = 3 THEN R3 := 2; 
IF R3 = 2 THEN 
BEGIN COMMENT RESULT - PLACE INFO INTO STACK; 

RO := STACKP4CR8) OR SIGN; STACKP4CR8) := RO J 
END; 

Rl := 0; IC(R1,TYPE(R4) ); 
IF Rl = 13 THEN 
BEGIN COMMENT FPAR ARRAY - COPY DESCRIPTOR; 

RO := #FF; R3 .*= CLN SHLL 12 OR DPDJ H0LD4 : = R4J 
R4 J= 5AVE4; FPARCODE; SAVE4 := R4; R4 ?= HOL04; 
Rl := TYPEINF0CR4) * 12; 

Rl := Rl + 3 SHLL 16 OR #02000000; RIO 3= IDL0C2CR4); 

RO := CLN SHLL 12 OR RIO OR Rl; 
R3 := #30000000; EMIT; 

END; 

Rl := DPD + 8; DPD := Rl; 

END; 

R4 := SAVE4; Rl := SAVER1; RESET* TERMNODE J 5 
E ND ; 



17 NAME = SEG#17 



LENGTH = 0988 BASE RFG = 15 



PROCEDURE PROCEXIT(Rl); 

PROCEDURE EXIT; 
BEGIN INTEGER SAVER 1; 
COMMENT DETERMINE IF 
ADDRESS OF RESULT 
WHETHER PROCEDURE 



COMMENT THIS PROCEDURE EMITS CODE FOR 



SAVER I := Rl; 

TYPED PROCEDURE. IF SO PLACE RESULT OR 
IN APPROPRIATE REGISTER DEPENDING ON 
HAS FPARS OR NOT; 



Rl : = STACKP4IR8) AND MASK; 

IF Rl -.= THEN 

BEGIN COMMENT TYPED PROCEDURE; 

R6 := Rl; IF R7 >■= THEN TERMPROCEXIT 
IF R6 <= 5 OR R6 >= 8 THEN 



ELSE 
LOADREG; 
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| 16 


ooce 


07 


C98C 


16 


00D6 


07 


098C 


# 16 


00 F2 


07 


098C 


16 


00 F 8 


07 


098C 


16 


OOF 3 


07 


098C 


16 


1 A 


07 


093C 


16 


QIC A 


07 


093C 


16 


010 A 


07 


09 8C 


£ 16 


3120 


07 


09 8 C 


16 


0134 


07 


09 8 C 


16 


0134 


07 


09 8C 


16 


0146 


07 


098C 


16 


015E 


07 


093C 


16 


015E 


07 


09 8C 


m i6 


0170 


07 


G98C 


16 


018 3 


07 


098C 


16 


0183 


07 


09 8C 


: : 16 


CI 90 


07 


09 8 C 


■'. 16 


ci98 


07 


09 3C 


16 


019C 


07 


098C 


, • 16 


019C 


07 


098C 


,: i 16 


01A0 


07 


098C 


'■ 16 


01A8 


07 


098 C 


3 16 


01A8 


07 


09 3 C 


16 


013C 


07 


098C 


16 


018C 


07 


098C 


• 16 


01C4 


07 


098C 


- 16 


01CC 


G7 


098C 


16 


01D4 


07 


09 8C 


• 16 


01 DA 


07 


098C 


16 


01DA 


07 


098 C 


16 


010A 


7 


098C 


• 16 


01E4 


07 


09SC 


16 


1 F4 


07 


098C 


16 


0IF4 


07 


098C 


16 


0200 


07 


G98C 


16 


Q20E 


37 


09 8 C 


16 


214 


07 


098C 


• 16 


022C 


07 


098C 


16 


C23A 


07 


093 C 


16 


024A 


07 


098C 


16 


024A 


07 


098C 


16 


024E 


07 


098C 


16 


02 5C 


07 


09 8C 


£ 16 


0263 


07 


09 8C 


16 


C2 7F 


07 


098C 


16 


2 7E 


07 


09 8C 


16 


292 


07 


98C 


16 


02A6 


07 


098C 


16 


C 2 A A 


07 


C93C 


16 


02 A A 


07 


098 C 


16 


0282 


07 


098C 


16 


2 82 


07 


098C 


• 16 


02 02 


07 


09 8 C 


16 


02EE 


07 


09 8C 


16 


0302 


07 


098C 


16 


03 OE 


07 


098C 


16 


030E 


07 


098C 



2364 

2365 
2366 
23 6 7 
2 368 
236 9 
2 370 
2371 
2372 
2373 
2374 
2375 
2376 
2 37 7 
23 7 8 
2379 
238 
2381 
2 382 
23 8 3 
2384 
2385 
2386 
23 8 7 

238 3 

23 3 9 
2390 

239 1 
2 39 2 
2393 
2394 
239 5 
2 39 6 
239 7 
2398 
2399 
2400 
240 1 
2402 
2403 
2404 
2405 
2406 
2407 
2408 

24 09 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2413 
2419 
2420 
2421 



LI 



Rl := STACKP8LR8) ; R6 t= R6 AND MASK; 

IF R6 = 6 THEN Rl := ELSE IF R6 = 7 THEN Rl := 1; 

IF Rl -.= THEN 

BEGIN COMMENT PROCEDURE HAS FPARS; 

R3:=R6; IF R3>=0 THEN R3:=l; RIO: =LSTACKM4{ R5) J 

CASE R3 OF 

BEGIN 

BEGIN RO := RIO AND MASK5 SHRL 4 OR #18300000; 

IF RO -.= #18330000 THEN EMIT; 
END'; 
BEGIN RO := RIO AND MASKS SHRL 4 OR #38000000; 

IF RO -.= #38000000 THEN EMIT; RO := 0; 
END; 
BEGIN RO := RIO AND MASK5 SHRL 4 OR #28000000; 

IF RO ->= #28000000 THEN EMIT; RO := 0; 
END; 

RO := #38000000; 
RO := #28000000; 
BEGIN COMMENT LOGICAL; 
END; 

BEGIN COMMENT STRING; 
IF -.TERM NODE THEN 
BEGIN COMMENT NONTERMINAL; 

RO := #41300000 OR LSTACKM4C R5 ) I EMIT; 
END; 

RIO := STACK CR8J AND MASK; 

RIO := TREE* RIO) AND TYPEMASK; COMMENT EXPR LENGTH; 
R3 i- STACKP4CR8) AND TYPEMASK; COMMENT PROC LENGTH; 
IF RIO -»= R3 THEN 

BEGIN COMMENT MOVE EXPR TO LOCAL STACK, THEN BLANK 
UP TO PROC LENGTH; 

RO := RIO OR #02000000 OR NEXTADOR; 
R3 := #3 0000000; EMIT; 
COMMENT NOW BLANK ; 

Rl := STACKP4<R8) AND TYPEMASK SHRL 16; 
R0:=R10 SHRL 16; R3:=R1-R0-1 ; COMMENT # TO BLANK-1; 
IF R3 < THEN GOTO L2; 

RO := RO + NEXTADOR + 1 OR #92400000; EMIT; 
IF R3 = THEM GOTO L2 ELSE IF R3 = 1 THEN 
BEGIN COMMENT BLANK 1 MORE; RO : = RO + 1; EMIT; 
END ELSE 
BEGIN 

Rl s= RO AND MASK + 1 OR #02000000; 
RO := R3 - 1 SHLL 16 OR Rl; 
R3 s= RO - 1 SHLL 16; EMIT; 
END ; 
L2: RO := #41300000 OR NEXTADOR; EMIT; 

Rl:=STACKP4(R8) ANO TYPEMASK SHRL 16+NEXTA0DR+1 ; 
NEXTADOR := Rl; 
END J 

IF TERMNQDE THEN GOTO LI; 
END; 
END; 

IF RO = #38000000 OR RO = #28000000 THEN FORCECOMPLEXJ 
R3 := LSTACKM4CR5); RELEASE; R5 r= R5 - 4; 
RESETRECORO; 
END ELSE 
BEGIN COMMENT PROCEDURE HAS NO FPARS; 
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16 


312 


07 


98C 




16 


0320 


07 


098C 




16 


C31W 


07 


098C 




16 


3 4 8 


07 


98C 




16 


03 54 


07 


09 8 C 




16 


3 5 4 


07 


098C 




16 


03 54 


07 


09 80 




16 


366 


07 


098C 




16 


C366 


)7 


09 80 




16 


038C 


07 


09 8 C 




16 


C3 90 


07 


09 8 C 




16 


03 90 


07 


09 80 




16 


0390 


07 


09 8C 




16 


0390 


07 


098C 




16 


03 94 


07 


098C 




16 


039 A 


07 


098C 




16 


039A 


07 


09 8C 


" A 


16 


03 A 8 


C7 


0980 




16 


03 4 8 


07 


09 80 


™ 


16 


03B8 


07 


09 8C 


■ (V 


16 


G3B8 


07 


09 SC 




16 


03CA 


07 


0980 




16 


03E2 


7 


098C 




16 


C 3 E E 


C7 


0980 




16 


G3EE 


07 


098 




16 


04 


07 


09 8C 




16 


0418 


07 


0980 




16 


0418 


07 


0980 




16 


C41C 


07 


0980 


9 


16 


042 E 


07 


09 3C 




16 


044 6 


07 


098 C 




16 


44 6 


07 


098C 




16 


044 6 


07 


09 80 




16 


045A 


07 


098C 




16 


0466 


07 


098C 




16 


0472 


07 


098C 




16 


04 7 A 


07 


09 8C 




16 


0470 


07 


0980 


— 




16 


C48Q 


07 


0980 




16 


04 RC 


07 


098C 




16 


04 AC) 


07 


0980 


^^ 


16 


04A3 


07 


0980 




16 


486 


07 


0980 




16 


04CA 


07 


0980 




16 


G4D2 


07 


98C 




16 


04CA 


07 


09 8C 




16 


94E2 


07 


980 




lb 


C4EA 


07 


098C 




16 


04F6 


07 


098C 




16 


04 F 6 


07 


0980 




16 


04F6 


€7 


098C 




lb 


50 2 


07 


980 




16 


05C6 


C7 


098C 




16 


0516 


07 


0980 




16 


52 6 


07 


098 C 




16 


5 4 2 


7 


098C 


• 


16 


05 5 6 


07 


093C 




16 


0562 


07 


098C 



2422 
2 42 3 

2424 
2425 

242 6 
2427 
2428 
2429 
2430 
2 431 

243 2 
2433 
2434 
243 5 
2 4 3 6 
2437 

243 8 
2439 
2440 
2441 
2442 
2443 
2444 
2445 

244 6 
2 447 

244 8 
2449 

245 
2451 
245 2 
2453 
2454 
2455 
2 45 6 
245 7 
245 8 

245 9 
2460 
2461 

246 2 
2463 
2 464 
2465 
2466 
2467 

246 8 
2469 
2470 
2471 
2472 

247 3 
2474 
2475 
2476 
2477 
247 8 
2479 



ALGOL W COMPILER - PASS 3 

: R3 := R6; IF R3 >= 8 THEN R3 : = 1; 

STORERESULT; IF R6 = 6 THEN GOTO L; 

R3 ■:= LSTACKH4IR5); RELEASE; R5 : = R5 - 

RE SET RE CORD; 
L: END; 
END ELSE 

BEGIN Rl := R7 SHRL 24; IF Rl = FUNCID THEN 
BEGIN COMMENT PROPER PROCEDURE WHICH CALLS A 
DUMPALLGENREG; DUMPALLFLREG ; R3:=R3-R3; 
R7 := SIGN; 
END; 
END; 

COMMENT SEARCH FOR AND STORE ALL RESULT 
Rl := STACKP4(R8>; 
IF Rl < THEN 

BEGIN COMMENT THERE ARE RESULT FPARS; 
Rl := STACKP4CR8) AND MASK; IF Rl -.= 
BEGIN 

IF Rl = 1 OR R L >= 6 THEN 
BEGIN 

R3 := MEXTADDR + 3 AMD #FFFFFFFC; Rl 
MEXTADDR := Rl; RO : = #00300000; R6 
END ELSE IF Rl <= 3 THEN 
BEGIN 

R3 := MEXTADDR + 7 AND #FFFPFFF8; 
NEXTADDR : = Rl 5 RO 
END ELSE 
BEGIN 

R3 := MEXTADDR + 7 
MEXTADDR : = Rl; RO 
EN ; 
END; 
R3 := 12 - CLN SHLA 2 + 
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4; 



proper procedure; 
proccallcode; 



PARAMETERS; 



THEN 



:= R3 + 41 

= i; ASSEMBLE; 



Rl := R3 + 8i 



:= o; R6 := 3; ASSEMBLE; 



AND #FFFFFFF8; Rl :» 
:= #0002 0000; R6:=5; 



R3 + 16; 
ASSEMBLE; 



DSP; 



DPD 



R3; 



R3 :■= STACKP8(R8) 
R3 := STACKP8(R8) 

R4 := 6; CNTP 

FOR R4 := R3 STEP 
BEGIN 



SHRL 16; LIMT := 


•■ R3; 


AND MASK; SAVE4 


:= R4; 


= R4; 




12 UNTIL LIMT DO 





R3 : = 
R3 : = 

IF R3 
BEGIN 



CNTP + 8 



R3 = 3 THEN R3 := 2; 



:= 0; 
5 



CALLCONV; END 



CNTP := R3; 
TYPEINF0CR4} SHRL 8; IF 

= 2 THEN 
RO := RO-RO; R3 := CLN SHLL 12 OR DPD; 
H0LD4 := R4 ; R4 := SAVE4; FPARCODE; 

SAVE4 := R4; R4 s= H0LD4; 

R3 := 0; IC(R3,SIMPLETYPE<R4J); 

IF R3 <= 5 THEN 

BEGIN COMMENT CALL CONVERT; RIO 
ELSE BEGIN R3 := R3 - 5; RIO := 
CASE R3 OF 
BEGIN 

RO := #02003000; 
BEGIN COMMENT STRING; 

R3 i= TYPEINF0(R4) SHRL 8; 
RO := #1B220000; EMIT; 

RO := CLN SHLL 12 OR RETA OR #58100000; 
RO := #43201000 OR CNTP; EMIT; 
Rl:=CPTfiASE;R0: = CONSPTTA8(Ri) AND MASK. OR 
#5B20E000;EMIT;R0:=INSCOUNTER+22 OR #4740E000;EMIT| 



IF R3 = 3 THEN 



GOTO LJ 
EMIT; 
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16 


057E 


07 


09 8 C 


16 


059A 


07 


098C 


16 


0582 


07 


098C 


16 


5C6 


07 


098C 


16 


5DE 


G7 


098C 


16 


5EA 


07 


098C 


16 


C5EA 


C7 


98C 


16 


C5FE 


07 


098C 


16 


6 12 


07 


9 8C 


16 


0616 


07 


09 8 C 


16 


0630 


07 


098C 


16 


0644 


07 


098C 


16 


6 44 


07 


093C 


16 


644 


07 


098C 


16 


6 50 


G7 


09 8 C 


16 


6 5C 


07 


09 3C 


16 


0660 


07 


09 8C 


16 


C66E 


07 


098 C 


16 


C66E 


07 


09 80 


16 


06 7 E 


07 


09 8C 


16 


C67E 


07 


09 8 C 


16 


069A 


07 


09 8C 


16 


6. A 6 


07 


098C 


16 


06 A 6 


07 


093C 


16 


06C2 


07 


098C 


16 


6C2 


07 


098C 


.16 


G6C6 


07 


09 8 C 


16 


6D6 


07 


098C 


16 


C6E2 


07 


098C 


16 


06E2 


07 


093C 


16 


06 E 2 


Of 


093C 


16 


06E2 


07 


098C 


16 


C6FQ 


07 


09 8C 


16 


06 F4 


07 


098C 


16 


C7C8 


07 


G98C 


16 


C718 


07 


098C 


16 


0718 


07 


09 8 C 


16 


cue 


07 


098C 


16 


0720 


07 


098C 


16 


073 8 


07 


09 8 C 


16 


0740 


7 


09 8C 


16 


0743 


07 


Q98C 


16 


G74C 


07 


09 8 C 


16 


C7 54 


07 


09 3C 


16 


0762 


07 


098C 


16 


C76C 


07 


098C 


16 


7 70 


07 


098C 


16 


07 7 C 


07 


098C 


16 


C780 


07 


09 3C 


16 


0794 


07 


098C 


16 


07SC 


07 


098 C 


16 


07A4 


07 


098C 


16 


C7A8 


07 


098C 


16 


0^B2 


07 


098C 


16 


C7B6 


07 


09 8C 


16 


07C2 


07 


098C 


16 


C7D6 


07 


098C 


16 


07 DE 


C7 


098C 



2480 
243 1 
2482 
2433 
2434 
2435 
2436 
2 48 7 
24 3 3 
24 3 9 
2490 
24 91 
2492 
249 3 
2494 
249 5 
249 6 
2497 
249 8 
249 9 
2500 
2 501 
2502 
2 50 3 
2 504 
2 50 5 
2 506 
2507 
2 50 3 
2509 
2 5 1 
2511 
2 51.2 
2513 
2 514 
2 515 
2516 
2517 
2518 
2519 
2520 
2 521 
2522 
2523 
2524 
2525 
2 52 6 
2527 
2 52 8 

252 9 
2530 
2.531 
2 532 

253 3 
2534 
233 5 
2 536 
2537 



RO := #92403000; EMIT; 

RO := INSCOUNTER * 10 OR #47F0EO00; EMIT J 
RO := #02003001; R3 : = #30000000; EMIT; 
RO := INSCOUNTER - 6 OR #442 0EOOO; EMIT; 
L: RO := SIMTYPEINF0(R4) SHLL 16 OR #02003000; 
END; 

RO := #02033000; BEGIN RO := #02033000; R10:=6; END; 
END; 

PI := IDL0C2CR4); 

R3 := CLN SHLL 12 OR Rl SHLL 16; EMIT; 
IF RIO = 6 THEN REFSTOR; 
END; 

END; 

Rl := DPD * 8; DPD := Rl j 

END? 

R4 := SAVE4; 

Rl := STACKP4CR8) AND MASK; IF Rl ->= THEN 

BEGIN 

IF Rl = 1 OR Rl >= 6 THEN 
BEGIN 

P. 3 := NEXTADDR - 4; RO := #08300000; R6 t= 1; ASSEMBLE; 
END ELSE IF Rl <= 3 THEN 
BEGIN 

R3 := NEXTADDR - 8; RO := #08000000; R6 : = 3; ASSEMBLE; 
END ELSE 
BEGIN 

R3 := NEXTADDR - 16; RO := #08020000; R6 :» 5; ASSEMBLE; 
END; 
END; 
end; 

COMMENT EMIT PROCEDURE CLOSE CODE; 

R3 := 4; PARAMETERS; 

SAVE4 : = R4; 

R4 := INSCOUNTER *■ 3 AND _4; IF R4 -•= INSCOUNTER THEN 

BEGIN RO :■= 0; EMIT; 

END; 

R4 := #5840; COMMENT USED IN SUBR FDR FORMAL PROCEDURE; 

FOR R3 := 4 STEP 4 UNTIL SEGTA8IDX DO 

BEGIN RIO := INSCOUNTER; RO : = 0; WRITENUMBER; 

Rl : = CHAINCR3); CHAINCR3) := RIO; 

WHILE Rl -.= ENOCH A IN DO 

BEGIN RO := PR0GRAM(Rl+2) ; 
IF R4 -.= PROGRAM* Rl) THEN 

RIO i~ RIO OR #E000 ELSE RIO : = RIO - Rl ++ #3008; 
PROGRAM (Rl+2) := RIO; RIO := CHAINIR3I; Rl := RO; 

END; 
END; 

RIO :■= INSCOUNTER; 

IF RIO > 4096 THEN R4 : = #98EF ELSE R4 := #58E0; 
RIO := BASELOC; Rl := CHAIN(O); 
WHILE Rl -*= EMDCHAIN DO 
BEGIN RO := PROGRAM (Rl+2); 

PROGRAM (Rl) := R4; PROGRAM R 1+2) s= RIO; Rl := RO; 

end; 

program(o) := r4 ; ro : = 8; chain(o) := ro; 

if r4 = #98 ef then r4 := #90ef else r4 := #50f0; 

Rl :•= BASESTLOC; PROGRAM (Rl) := R4; 
RO := INSCOUNTER; PR0GRAMC18) := RO; 
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:- V -^ 



16 


C7E6 


07 


098C 


16 


07 EE 


07 


09 8C 


16 


Q7F0 


07 


09 8C 


16 


C^FO 


07 


098C 


16 


07 FO 


07 


09 8C 


• 16 


C7FC 


07 


09 90 


16 


07 FO 


07 


09 90 


16 


7FO 


07 


0990 


% 16 


7F0 


C7 


0990 


16 


C7F3 


G7 


0998 


16 


C806 


C7 


0998 


• 16 


CSCC 


07 


0998 


16 


81C 


07 


0998 


16 


C81E 


07 


099 8 


£ 16 


0326 


07 


0998 


16 


82 A 


07 


0998 


16 


CS.32 


C7 


0998 


• 16 


832 


07 


0998 


16 


836 


07 


0998 


16 


8 3E 


C7 


0998 


# 16 


C83E 


C7 


0993 


16 


C84A 


07 


0998 


16 


CS52 


07 


099 8 


• 16 


OS 5 2 


07 


998 


16 


C8 5A 


07 


0998 


16 


0S5A 


07 


0998 


% 16 


8 64 


07 


0998 


16 


CS64 


07 


998 


16 


0870 


07 


0998 


• 16 


8 78 


07 


0998 


16 


C8 78 


07 


0998 


16 


8 80 


07 


0998 


£ 16 


8 30 


G7 


0998 


16 


C880 


(Y~ r 


099 8 


16 


880 


07 


0998 


16 


088C 


07 


0998 


16 


C898 


07 


0998 


16 


089C 


C7 


0993 


16 


C8AG 


07 


0998 


16 


G8A2 


07 


0998 


16 


8A2 


07 


fvqoq 


• 16 


08B2 


07 


998 


16 


CSC A 


C7 


0998 


16 


08CE 


07 


0998 


• 16 


C8D4 


07 


0998 


16 


8 DC 


07 


0998 


16 


8 DC 


07 


0998 


16 


ceoc 


07 


0993 


16 


C8E4 


07 


0998 


16 


08F8 


07 


0998 


% 16 


C 8F 8 


a 


0998 


16 


000 8 


07 


0998 


16 


09C8 


07 


0998 


% 16 


CO 12 


7 


998 


16 


0912 


07 


0998 


16 


522 


07 


0998 


% 16 


092 2 


07 


0998 


16 


0*326 


07 


0998 



2538 
2539 
2 540 
2 541 
2542 
2543 
2 544 
2 54 5 
2 546 

254 7 
2548 
2 549 
2550 
2551 
2552 
2553 
2 554 

255 5 
2556 
2557 
2 55 8 
255 9 
2 56 
2 561 
2 56 2 
2 563 
2 564 
2.565 
2566 
2567 
2 56 8 
2569 
257 
2571 
2 57 2 
2573 
2574 
2575 
2576 
2577 
2578 
2 579 
2530 
25 81 
2 582 
2583 
2584 
2585 
2586 
2 537 
2538 
2589 
2590 
2 591 
2592 
2 593 
2594 
2 59 5 



R4 := SAVE4J Rl := SAVER1; 
END; 

PROCEDURE BL0CKCALLNENTRY1 Rl } ; 
BEGIN INTEGER SAVER1; 

PROCEDURE LINKREF(Rl); COMMENT SEARCH NAMETABLE FOR REFERENCES - 
COUNT AND PLACE IN PROG SEG WITH STARTING ADDRESS; 
BEGIN INTEGER S AV ERZ , BLENGj SAVERZ : = PI; 

R3 := R.7 AND #FFFO0O SHRL 10; R3 := BLACKLIST (R3) 5 

Rl := R3 AND MASK; 

RO := R3 SHRL 16 + Rl - 12; BLENG := RO; 

FOR R3 := Rl STEP 12 UNTIL BLENG 00 

BEGIN Rl := 0; 

IC(R1,SIMPLETYPE(R3)); 
IF Rl - 9 THEN 
BEGIN COMMENT REFERENCE; 
IC(R1,TYPE(R3>); 
IF Rl = 2 THEN 
BEGIN COMMENT REF ARRAY; 

RIO := AREFCOUNT + 1; AREFCOUNT := RIO; 

IF RIO = 1 THEN 

BEGIN COMMENT FIRST ONE - PUT ADDRESS IN PROG SEG; 

Rl := IDLGC2CR3); AREFADD :« Rl; 

END; 
END ELSE IF Rl = THEN 
BEGIN COMMENT SIMPLE REF; 

RO := REFCOUNT + 1; REFCOUNT := RO; 

IF RO = 1 THEN 

BEGIN COMMENT FIRST ONE - PUT ADDRESS IN PROG SEG; 

Rl := IDLDC2(R3); REFADD := Rl; 
END; 
END; 
END; 

end; 

RO := REFCOUNT; Rl := AREFCOUNT; STACKP4IR8) : = RO; 
STACKP8 1R8) : = Rl; 
Rl := SAVERZ; 
END; 

SAVER! := Rl; Rl : = 0; REFCOUNT :■= Rl; AREFCOUNT := Rl ; 
R1:=R7 AND MASKS; IF R1=0 THEM SETCRESFLAG }ELSE RESET CRESFLAG} ; 

LINK REF; 

RIO -:= R8 - SSIZE; 

TEST(RESFLAG); IF = THEN 

BEGIN COMMENT DATA SEGMENT FOR THIS BLOCK MERGED WITH DATA 

SEGMENT FOR PROCEDURE HEADING; 

Rl := MASKl; STACKP4CR1QJ := Rl; 

Rl s= REFPCOUMT; RO := REFCOUNT; IF Rl = AND RO -«= THEM 

BEGIN COMMENT LOCAL REFS AND NO REF PARAMS - FIXUP LA 3 ; 

Rl := LAAOD + 2; RO := REFADD; PROGRAM (P.l) := RO; 

END; 

Rl := AREFCOUNT; IF Rl -.= THEN 

BEGIN COMMENT REF ARRAYS - FIXUP LA 4 ; 

Rl := LAADD + 6; RO := AREFAOD; PROGRAM! RL) := RO; 

END; 

GOTO MERGE; 
END; 
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16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
L6 
16 
16 
16 
16 
16 
lt> 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 



0926 
0934 
C940 
9 4 8 
0<;54 
09 6 4 
0963 
0984 
0994 
<5 A A 
90 A 
09 DO 
GSEC 
OAOO 
0A18 
0A1C 
0A24 
OA38 
0A44 
0A5E 
0A5E 
0A63 
OATC 
CA9A 
0AA2 
OABA 
GACA 
OACA 
OACA 
OAFC 
OAFC 
B 
OB 2 
OS02 
0802 
OB 06 
310 
C32C 
OB 40 
0B40 
0340 
0B4C 
0B5C 
OB 74 
CS78 
3 80 
CB88 
0883 
088C 
08 8 £ 
088E 
0B8E 
OB 9 2 
89 A 
OB 9c 
OEAA 
0BB2 
0BB4 



07 
07 
07 
07 
07 
07 
C7 
07 
07 
07 
■37 
07 
C7 
07 
07 
C7 
07 
07 
07 
07 
07 
07 

C7 
07 
C7 

07 
07 
07 
C7 
C7 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
7 
07 
07 
07 
07 
7 
07 
C7 
07 
07 
07 
07 
07 
07 



0998 
0998 
0998 
0998 
0998 
0998 
0998 
99 3 
0998 
0998 
0993 
099 8 
0996 
0998 
0998 
0998 
0998 
099 8 
099 8 
0998 
0998 
0998 
f)9<JQ 

09 98 
99 8 
0998 
0998 
0998 
09*38 
099 8 
0998 
0998 
0998 
99 8 
0998 
099C 
C99C 
09 9C 
099C 
099C 
09 9 C 
09 9C 
099C 
099C 
099C 
099C 

09 9C 

Qqgr 

099C 

099C 
099C 
099C 
09AO 
09 AC 
09A0 
09AO 
09A0 
09A0 



2596 
2 59 7 
2 59 8 
2 599 
2600 
2 601 
2602 
2603 
2 604 
2605 
2606 
260 7 
2608 
2609 
2610 
26.1 1 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
262 
2621 
2622 
2623 
2624 
2625 
26 26 
2627 

262 3 
2629 

263 
26 3 1 
2632 
2 63 3 
2634 
2635 
263 6 
2637 
263 8 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2 647 
2648 
2649 
2650 
2651 
2652 
265 3 



Rl := 0; RIO := R8 - SSIZE; STACKP4IR10J : = Rl ; 
Rl := LOGPOINTER + 4; LOGPOINTER : = Rl; 
RO := NEXTADDR; LOGSTACK(Rl) := RO ; 
R3 := CLN - 1; CLN := R3J 

Rl : = R7 AND MASKS; R3 := R3 SHLL 12 OR Rl AND MASK; 
NEXTADDR := R3; 

RO := CLN + 1 SHLL 16 OR #13200000; EMIT; 
CALLALLOCATE; Rl := REFCOUNT; 

IF Rl = THEN RO : = #1 D330000 ELSE RC := #41300000 OR REFADD; 
EMIT; Rl := AREFCOUNT; 

IF Rl = THEM RO := #18440000 ELSE RO : = #41400000 OR AREFAOOi 
EMIT; RO := #90046000; EMIT; 
RO := #50600000 OR MP; EMIT; 
RO := CLN SHLL 20 OR #18060000; EMIT; 
Rl := CLN; 
IF Rl = 11 THEN 

BEGIN RO 5= #50806000 OR DSP; EMIT; END ELSE 
IF Rl < 11 THEM 

BEGIN RO := Rl SHLL 20 OR #90086000 OR DSP; EMIT; END; 
MERGE: 

RIO := REFCOUNT; IF RIO > THEN 

BEGIN RO : = #58300000 OR NULLREF; EMIT; 

R3 := CLN SHLL 12 OR REFADD; RO := #50300000 OR R3 ; EMIT; 

IF RIO > 1 THEN 

BEGIN RO := RIO SHLL 2-5 SHLL 16 OR R3 + 4 OR #02000000; 
R3 := R3 SHLL 16; EMIT; 

END; 

IF RESFLAG THEN RIO := RIO *■ REFPCOUNT; RIO : = RIO SHLL 16; 

RO := CLN SHLL 12 OR REFVAR+1 OR RIO OR #9 2000000; EMIT; 

end; 

Rl := SAVER1; 
END; 

PROCEDURE BL0CKEXITCR1 ); 

BEGIN INTEGER SAVER 1; SAVER1 : = Rl; 

Rl := STACKP4CR8); IF Rl < THEN GOTO MERGE; 

RO := CLN SHLL 12 OR #58100000 OR DL; EMIT; 

RO := #50100000 OR MP; EMIT; 

COMMENT RESET CURRENT LEVEL NUMBER AND FIXUP LA INSTRUCTION 
IN BLOCK ENTRY; 

Rl := CLN ■*- 1; CLN : = Rl; 

Rl := LOGPOINTER; R3 := LOGSTACK(Rl) + 2; Rl := Rl - 4J 

RIO := NEXTADDR AND #FFF OR #6000 + 7 SHRL 3 SHLL 3; 

PROGRAM CR3) := RIO; 

R3 : = LOGSTACK(Rl); NEXTADDR := R3; 

Rl := Rl - 4; LOGPOINTER := Rl; 

MERGE: 

Rl := SAVER l; 
END; 

PROCEDURE LABELOEC(Ri); COMMENT BUILD BRANCH INSTRUCTION IN LABEL TAB; 
BEGIN INTEGER SAVER1; SAVER I := RlS 

RO := #47FOEO00 OR INSCOUNTER; 
R.3 := IDL0C21R7}; 

PR0GRAfHK3+2) : = RO ; RO := RO SHRL 16; PR0GRAMCR3) := RO; 

Rl := SAVERl; R7 := SIGN; 

end; 



**m«m m; mmm m M 
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16 


OB 3 4 


07 


09 A 


16 


OB 84 


07 


09 A 


16 


ceec 


€7 


09A4 


16 


0BC4 


07 


09A4 


16 


03C4 


07 


09 A 4 


16 


OBOE 


07 


09 A 4 


16 


ORE A 


07 


09 A 4 


16 


SEA 


C7 


09 A4 


16 


GCC6 


07 


09A4 


16 


OC06 


C7 


09A4 


16 


0C2A 


07 


09 A4 


16 


0C2A 


07 


9A4 


16 


0C2A 


07 


09 A 4 


16 


CC3G 


07 


09 A4 


16 


0C4 6 


C7 


09A4 


16 


0C48 


C7 


09A4 


16 


0C48 


07 


09 A4 


16 


0C4C 


07 


09A8 


16 


0C4C 


07 


09 A 8 


16 


0C4C 


07 


09 A8 


16 


0C6 6 


C7 


09A8 


16 


0C76 


07 


9A8 


16 


CC€6 


C7 


09A8 


16 


00 A2 


07 


09A8 


16 


0CA6 


07 


09A8 



2654 
2655 
2656 
2657 
2658 
2659 
266 
266 1 
266 2 
266 3 
2664 
2665 
2666 
2667 
266 8 

266 9 

267 
2671 
267 2 
2 673 
2674 
2675 
2676 
2677 
267 8 



PROCEDURE GOOTGCMRl); COMMENT EMIT 
BEGIN INTEGER SAVERl; SAVER1:=R1; 
IE RIO -.= CLN THEN 
BEGIN COMMENT OUT OF BLOCK; 
:= RIO SHLL 20 



CODE FOP GOTO STATEMENT 5 
RiO := TYPEINFCHR71! 



EMIT 



RO := RIO SHLL 20 OR #50000000 OR MP; 
RO := IDL0CKR7); IF RO ->- LOGSEG THEN 
BEGIN COMMENT OUT OF PROCEDURE; 

CHAINOUT; RO := RO OR #58F0OOO0S EMIT; 

COMMENT ASSUME BOTH BASE REGISTERS REQUIRED; 

RO := #18EF0000; EMIT; RO := #5AF00000 OR ADDRSTEP J 
END; 

END; 

RO := IDL0C21R7) OR #47F0EO0O; EMIT; 

Rl := SAVER l; R7 := SIGN; 

end; 



Rl; 



EMIT; 



INTEGER SAVERl; SAVER1 

CASE R3 OF 

BEGIN 

PROCEOUR SENTRY ; PROCEXI T; 

BLOCKCALLNENTRY; BLOCKEXIT; 

LABEL DEC; GOOTOO; 
END; 

Rl := SAVER 1; 
END; 



SEGMENT 16 NAME = SEG#16 



LENGTH = 00E8 BASE REG 



15 



11 


052 A 


07 


09A8 


11 


052A 


07 


09A8 


11 


052A 


07 


09A8 


11 


53 6 


07 


Q9A8 


11 


053E 


07 


9A8 


11 


54 


07 


09A8 


11 


540 


C7 


09A8 


11 


540 


07 


09A8 


11 


54 


C7 


09A3 


11 


C544 


07 


09 AC 


11 


0550 


07 


09AC 


11 


0558 


07 


09AC 


11 


564 


07 


09AC 


11 


0570 


C7 


09 AC 


11 


574 


07 


09 AC 


11 


C576 


07 


09 AC 


11 


57 6 


07 


09AC 


11 


576 


37 


09AC 


11 


0516 


07 


09AC 


11 


57 A 


07 


09B0 


11 


C5 9G 


07 


09B0 


11 


5A0 


07 


09B0 


11 


05A2 


07 


9 BO 


11 


05A2 


07 


0980 


11 


5A2 


07 


09B0 


11 


5A2 


07 


09B0 


11 


05B2 


07 


9B0 


11 


05BA 


07 


09BO 


11 


05BC 


{'■j 


09 BO 


11 


58C 


07 


0980 



2679 

268 
2631 
2632 
2683 
2684 
2685 
2686 
2687 
2638 
2639 
2690 
2691 
2692 
2693 
26^4 
2 69 5 
2 69 6 
2697 

269 8 
2699 
2700 
2701 
2702 
2703 
2704 

270 5 
2706 
2 70 7 
270 8 



PROCEDURE INOI CATEBRANCM R 1) ; 

BEGIN RO := RO SHLL 16; R3 : = LOGPOINTER + 4; 
LOGPOINTER := R3; L0GSTACKJR3I := RO; 

END; 

PROCEDURE GETLENGTH(Rl); 

BEGIN COMMENT GET STRING LENGTH; 

LOGICAL SAVERl; SAVERl := Rl; 

R3 := R7 AND MASK; Rl s= R7 SHRL 241 

IF Rl = STRYNG THEM 

BEGIN R3 := R3 + CPTBASE; IC ( R3 ,CONSPTTAB (R3 ) ) \ R3:=R3 AND #FF; 

END ELSE R3 := NAMETABLE C R3+4) SHRL 16; 

Rl := SAVERl; 
END; 

PROCEDURE LOGCOMPARE(Rl); 

COMMENT EMIT CLI INSTRUCTION FOR LOGICAL EXPRESSIONS; 
BEGIN LOGICAL SAVERl; SAVERl := Rl; 

GETADORESS; RO := CLI I OR #00010000 OR R3; 

EMIT; Rl := SAVERU 
END; 

PROCEDURE INIT I AL IZ EL INK( R 1 ) ; 

BEGIN 

RO := INSCOUNTER - 4; R3 := LOGPOINTER + 4; 
LOGPOINTER s= R3; L0GSTACKCR3) x- RO; 

END; 

PROCEDURE IFJARG2 (Rl); 
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11 


58C 


07 


09 80 


11 


5BC 


07 


09B0 


• II 


C5C0 


37 


09 B4 


11 


C5C6 


C7 


09B4 


11 


05CA 


07 


09 8 4 


• 11 


5DE 


07 


09B4 


11 


05DE 


C7 


090 4 


11 


05 EC 


07 


09 34 


• u 


C5F4 


07 


09 B4 


11 


600 


G7 


09 84 


11 


0ft20 


07 


09 B4 


• L1 


C634 


07 


09 B4 


11 


0634 


07 


39 B 4 


11 


64 


07 


09 34 


• 11 


G644 


07 


0984 


11 


6 44 


07 


09B4 


11 


0644 


07 


09 84 


• u 


C6 58 


C7 


09B4 


11 


6 5C 


ny 


09 84 


11 


0678 


07 


09 B4 


• Li 


68 4 


07 


09 B4 


11 


690 


07 


0984 


11 


06 50 


fy~7 


09B4 


11 


694 


07 


096 4 


11 


6AO 


07 


0984 


11 


C6C4 


07 


09 B 4 


• 11 


6C4 


n 


09 B 4 


11 


06D4 


07 


09 B4 


11 


604 


07 


09 B 4 


11 


6E0 


07 


09 B4 


11 


06 EC 


07 


09 84 


11 


06EG 


07 


09B4 


• 11 


06 EC 


07 


09B4 


11 


06F8 


C7 


09 84 


11 


C6FC 


07 


098 4 


• 11 


06FE 


C7 


09 84 


11 


06FE 


07 


09 84 


11 


06FE 


07 


09 B 4 


• 11 


06FE 


07 


09B4 


11 


C7CA 


€7 


0934 


11 


07 10 


)7 


0984 


# 11 


07 1C 


37 


09 84 


11 


0128 


07 


09B4 


11 


07 2 C 


07 


09 B 4 


• u 


C72C 


07 


09 B4 


11 


C72E 


07 


09B4 


11 


07 34 


07 


09B4 


• 11 


C73E 


07 


09B4 


11 


0742 


07 


09B4 


11 


07 52 


07 


09B4 


• 11 


0?5E 


C7 


09 B 4 


11 


7 6 


C7 


09B4 


11 


0760 


07 


09 84 


# u 


0760 


07 


0934 


11 


07 6 


07 


09 B 4 


11 


C76C 


07 


09C0 


• 11 


0768 


C7 


09C0 


il 


07 7 A 


07 


09CO 



2709 
2710 
2711 
2712 
2713 
2714 
2 715 
2716 
2717 
2718 
2 719 
2720 
2721 
2722 
272 3 
2724 
2'?2 5 
2726 
2727 

272 8 
2 72 9 
2 73 
2 731 
2732 
27 3 3 
2734 
2 78 5 
27 36 

273 7 

273 3 
2739 
2740 
27 41 
2742 
2743 
2744 
2745 

274 6 
2747 
2748 
2749 
2750 
2751 

275 2 
275 3 
2754 
2755 
2756 
27 5 7 

275 8 
2759 
2760 
2 761 
2762 
2763 
2764 

276 5 
2 766 



BEGIN COMMENT IFJ; 

LOGICAL SAVER1; SAVER1 := Rl ; 

IF P. 7 >= THEN 

BEGIN LOGCOMPARE; RO := 7; LOGBRANCH; 

INITIALIZELINK; 
END ELSE 

BEGIN R3 := R7 SHLL 8 SHRL 24; 
IF R3 = 1 THEN 
BEGIN RO := LSTACKM4IR5) OR CLII OR #00010000; 

EMIT; R3 := LSTACKMMR5); RELEASE; R5 '.- R5 -4j 
RO := 7; LOGBRANCH; INITIALIZELINK; 
END ELSE 

BEGIN R3 := LOGPOINTER; IC « RIO ,LOGSTACK ( R3) ) ; 
RIO := RIO AND #FF; 
CASE RIO OF 
BEGIN 

BEGIN RO := LOGSTACK! R3) SHRL 16 AND #FF; 
RO := RO XOR #F ; 

LOGBRANCH; R3 := INSCOUNTER; FIXUP; 
R3 := LOGPOINTER - 4; LOGPOINTER := R3; 
LINKBRANCHES; 
END; 
BEGIN 

RO := LOGSTACK! R3 I SHRL 16 AND #FF; 
LOGBRANCH; R3 : = LOGPOINTER - 4; 
LOGPOINTER s= R3; LINKBRANCHES; 
R3 := INSCOUNTER; FIXUP; 
END; 
END; 
END; 
EN D ; 

R7 := #86000000; R3 : = LOGPOINTER + 4; 
LOGPOINTER := R3 ; RO := 0; L0GSTACK(R3) != RO S 
Rl := SAVER 1; 
END; 

PROCEDURE M ERGE< R 1 ) I 

COMMENT JOIN LINKS OF THE TWO TOP ELEMENTS OF LOGSTACK; 
BEGIN R3 := LOGPOINTER - 8; RO := LOGSTACK* R3) J 
IF RO = THEN 

BEGIN RO := L0GSTACKTR3+4) ; L0GSTACK(R3) := RO ; R3 := R3 + 41 
LOGPOINTER := R3; RO := LOGSTACK* R3+4) ; LOGSTACK? R3) s= RO J 
GOTO XIT; 
END; 

R3 := RO; 
WHILE R3 -.= DO " 
BEGIN RIO := R3; R3 := PR0GRAM(R3+2 I AND #1FFF; 

END; 

R3 := LOGPOINTER-4; RO := LOGSTACK (R3 I ; PR0GRAMCR10+2) := RO; 

RO := L0GSTACKIR3+4) ; L0GSTACK(R3J :■= RO; LOGPOINTER := R3J 
XIT: END; 

PROCEDURE CORRECTP.EG(Rl) ; 

COMMENT SETS PROPER RESULT REGISTER FOR CASE AND IF EXPR; 
BEGIN LOGICAL SAVER1, SAVER6, TEMP; 

SAVER1 := Rl; SAVER 6 s= R6; 

RO := LSTACKM4(R5); IF R3 > 5 THEN R3 : = 1; R6 := R3 ; 

CASE R3 OF 
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11 


77 A 


07 


09C0 




11 


077 A 


07 


0900 




1 11 


07 92 


07 


090 




11 


0748 


07 


09C0 




11 


C7B4 


07 


0900 




1 11 


07GE 


07 


090 




11 


C7CA 


07 


09CO 




11 


C706 


07 


0900 




1 11 


07DE 


07 


090 




11 


GTE 6 


07 


09 CO 




11 


C7FS 


07 


0900 




1 11 


07F6 


07 


090 




11 


0302 


C7 


09 CO 




11 


0802 


97 


O9C0 




1 11 


OBOE 


07 


09 CO 




11 


0826 


07 


09 00 




11 


83A 


C7 


09C0 


4 


1 11 


84 A 


07 


09 CO 




11 


C84A 


07 


09 CO 


o 


11 


C 8 5 6 


07 


090 




1 11 


086E 


07 


09 CO 




11 


882 


07 


9C0 




11 


8 92 


07 


09 CO 




1 11 


89 2 


07 


09CO 




11 


8AA 


07 


09CG 




11 


08CE 


07 


09C0 




1 11 


C8CE 


07 


09 CO 




11 


8E6 


07 


0900 




11 


090 A 


07 


09 CO 




1 11 


Q90A 


07 


09 CO 




11 


09 22 


07 


0900 




11 


092 A 


C7 


09C0 




) 11 


C82C 


07 


0900 




11 


09 2C 


07 


09C0 




11 


092C 


07 


09C0 




1 u 


G9 2C 


07 


09C0 




11 


09 2C 


07 


0-9C0 




11 


09 2 C 


07 


09 00 




1 11 


09 30 


07 


0904 




11 


93 8 


07 


0904 




11 


094 


07 


09C4 




1 11 


0944 


07 


09C4 




11 


094C 


07 


09 C 4 




11 


09 50 


07 


0904 




1 11 


09 5E 


07 


09C4 




11 


096A 


07 


09C4 




11 


9 7 2 


07 


9C4 




1 11 


09 7E 


07 


09C4 




11 


098 6 


07 


09 C4 




11 


99 2 


07 


9C4 




1 11 


C996 


07 


09C4 




11 


998 


07 


0904 




11 


998 


C7 


090 4 




1 11 


0998 


07 


0904 




11 


0998 


07 


09 C 4 




11 


C99C 


07 


090 8 




1 11 


0<»A2 


07 


09C8 




11 


09AA 


07 


09C8 



2767 

276 8 
2 769 
27 70 
2771 
27 72 

277 3 
2774 
277 5 
2 7 76 
277 7 

277 8 
2779 

278 
2781 
2782 
278 3 
2784 
278 5 
278 6 
278 7 
2788 

278 9 

279 
2791 
279 2 
2793 
2794 
2 7 95 
2796 
2797 
279 8 

279 9 
2800 
2801 
2802 
2803 
2804 

280 5 
2806 
280 7 
2808 
2809 
2810 
2311 
2312 
2813 
2814 
2815 
2816 
2 817 
2318 
2819 
2820 
2821 
2822 
2823 
2824 



BEGIN 

IF RO -.= #80200000 AND RO -»= #2000 THEN 
BEGIN TEMP := RO ; R3 := RO; RELEASE; R5 := R5-4; 
GENP.EG; COMMENT GENREG MUST OBTAIN R2 HERE; 
RO := TEMP; IF RO < THEN 

RO := RO XOR SIGN SHRL 4 OR #18200000 ELSE 
BEGIN Rl := #2000; LSTACKM4TR5) := Rl; 
RO := RO AND #FFF; IF -.= THEN 
RO := #41200000 OR TEMP ELSE 
RO : = TEMP SHLL 4 OR #182 00000; 

end; 

EMIT; 
END; 

IF RO -= #80 00000 THEN 
BEGIN RO := RO XOR SIGN SHRL 4 OR #38000000; EMIT; 

R3 := LSTACKM4IR5); RELEASE; R5 s= R5-4; 

RO := #C00OO000; FLREG; COMMENT FLREG MUST OBTAIN FO; 

end; 

if ro -*= #80000000 then 

BEGIN RO := RO XOR SIGN SHRL 4 OR #28000000; EMIT; 

R3 := LSTACKM4(R5); RELEASE; R5 := R5-4; 

RO := #80000000; FLREG; COMMENT FLREG MUST OBTAIN FOlS 
END; 
BEGIN RO := #38000000; FORCECOMPLEX; R3 s= LSTACKM4(R5) ; 

R6 : = 4; RELEASE; R5 := R5-4; RO := #40000000; PRFLREGl 
END; 
BEGIN RO := #28000000; FORCECOMPLEX; R3 := LSTACKM4JR5 ) I 

R6 := 5; RELEASE; R5 := R5-4; RO := #00000000; PRFLREG; 
END; 
END; 
R6 := SAVER6; Rl := SAVER! ; 



END; 

PROCEDURE F.ILLCASET 
COMMENT FILL TA 
LOGSTAC 
LENGTH 
BEGIN LOGICAL S 
RIO := FIRSTC 
RIO := RIO + 
RIO := RIO - 
R3 := LOGPOIN 
FOR Rl := 2 S 
BEGIN R3 :■= 
PRGGRAM(Rl 
R3 := R3 A 

end; 

RO :■= FIRSTCA 
PROGRAM i R 10+2 
Rl := SAVERl; 
END; 



ABLE(R1 ); 

BLE BACKWARDS. START WITH ADDRESS IN TOP 

K POSITION. LAST ONE IN FIRSTCASEl C 2) . 

OF TABLE IN FIRSTC AS El; 

AVERl; SAVERl := Rl; 

AS El SHLL 2; 

INSCOUNTER; INSCOUNTER : = 



COMMENT RA HAS ADDRESS 



RIO; 

OF LAST 



CASETA8LE ENTRY; 



TER; R3 := L0GSTACK(R3); 
TEP 1 UNTIL FIRSTCASEl DO 

PR0GRAMCR3+2) I RO : = R3 ++ #47FOEG04| 

0+2) := RO; RO := RO SHRL 16; PROGRAMCR10) := RO J 

ND #1FFF; RIO := RIO - 4; 



SEK 2)++ #47F0E004; 

} := RO; RO := RO SHRL 



16; PROGRAM(RID) s= RO; 



PROCEDURE ANOORARGi ( Rl ) ; 

BEGIN COMMENT IF AND, ANDFLAG IS ON, 
LOGICAL SAVERl; SAVERl : = Rl; 
IF R7 >= THEN 

BEGIN LOGCOMPARE; TEST( ANDFLAG) ; 
IF = THEN RO := 7 ELSE RO : = 8; 



IF OR, ANDFLAG IS OFF; 
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11 


09BA 


07 


09C8 


11 


G9CA 


C7 


9C 8 


• u 


09CE 


07 


09C8 


11 


09DE 


07 


09C8 


11 


C9DE 


C7 


09C8 


• 11 


09EC 


07 


09 C 3 


LI 


09F4 


07 


09C3 


11 


OAOC 


07 


09C8 


• L1 


OA20 


€7 


9C8 


11 


O.A34 


07 


09C 8 


LI 


OA44 


07 


09CH 


• 11 


0A48 


07 


09C8 


11 


QA58 


07 


09C8 


11 


OA58 


07 


09C.8 


• 11 


0A£A 


07 


09C8 


11 


OA76 


07 


09C8 


11 


OA7E 


07 


09 C8 


• 11 


0A7E 


C7 


09C3 


11 


A 7 E 


07 


09C8 


11 


0A8E 


07 


09C8 


£ 11 


0A8 6 


07 


09C8 


11 


OAC2 


07 


09C8 


11 


OACA 


07 


09C8 


• ll 


0AD2 


07 


09C8 


11 


OAD2 


07 


09C8 


11 


0AE6 


07 


09C3 


• 11 


OAFE 


07 


09C8 


11 


602 


07 


9C8 


11 


0B16 


C7 


09C8 


• 11 


0B22 


C7 


09C8 


11 


082 E 


07 


09C8 


11 


GB2E 


07 


09C8 


• 11 


83 A 


07 


09 C 8 


11 


033 A 


C7 


09C8 


11 


0B3A 


07 


09C8 


# 1 1 


0B42 


07 


09C8 


11 


C844 


07 


09 C 3 


11 


OB 44 


07 


09C8 


# U 


844 


07 


09C8 


11 


0848 


07 


09CC 


11 


8 54 


07 


09 CC 


• 11 


0B5C 


07 


09CC 


11 


OB €4 


07 


09CC 


11 


0874 


07 


Q9CC 


4 ii 


OB 84 


07 


09CC 


ii 


OB 8 a 


07 


09CC 


ii 


0B8C 


07 


09CC 


• ii 


088E 


07 


09CC 


ii 


B 8 E 


07 


09CC 


ii 


0892 


07 


09D0 


ii 


08A2 


07 


9D0 


ii 


OBAE 


07 


09DC 


ii 


OB 8 6 


07 


09 DO 


• 1] 


08C6 


C7 


0900 


u 


0BD2 


07 


09D0 


ii 


0BD6 


07 


09 DO 


% ii 


0BD8 


C7 


0900 


u 


0EC8 


07 


0900 
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2 825 
2326 
2827 
2 32 8 
2829 
2 380 
2831 
2 38 2 
2333 
2834 
233 5 
2836 
2 83 7 
2 83 8 
2 33 9 
28 40 
2341 
2842 
2843 
2344 
2345 

284 6 
2 847 
2848 
2849 
2 350 
2851 
2352 

285 3 
2354 
285 5 
2856 
2 85 7 
2 85 8 
2 859 
2 360 
2861 
2 862 
2 86 3 
2864 
2865 
2 866 
2 867 
2868 
2 86 9 
2 6 70 
2 371 
2872 
2 373 
2874 
2875 
2 3 76 
2877 
2 37 8 
2 3 79 
2830 
2881 
2 332 



R3 := L0GP01NTER+4J LOGPOINTER := R3; RIO :« OJ 
L0GSTACKCR3) : = RIO; 
L0G8RANCH; I NIT I ALI2ELINK; 

EMO ELSE 

BEGIN R3 := R7 SHLL 8 SHRL 24; 
IF R3 = 1 THEM 
BEGIN RO := LSTACKM4(R5> OR CLII OR #00010000; EMIT; 

R3 := LSTACKM4CR5); R5 := R5 - 4; RELEASE; TEST { ANOFL AG) J 
IF = THEN PO := 7 ELSE RO := 8; 

R3 := L0GP0INTER+4; LOGPOINTER := R3; RIO := 0; 
L0GSTACK(R3) := RIO; 
LOGBR ANC H ; I N I T I AL I Z EL I NK *, 
END ELSE 

BEGIN R3 : = LOGPOINTER; RIO := R3 - 4; LOGPOINTER := RIO; 
IC(R10,LOGSTACK<R3)); RIO := RIO AND #FF; TESTC ANDFLAG) J 
IF = THEN RIO :=R10 XOR #3; 
CASE RIO OF 
BEGIN 

BEGIN RO := 0; IC{ RO ,LOGST ACKCR3+1 » ) J 

L0G8RAMCH; LINKBRANCHESi R3 := INSCOUNTER; FIXUP; 
R3 := L0GP0INTER+4; LOGPOINTER := R3J 
RO := L0GSTACK(R3-4) ; L0GSTACMR3) i- RO; 
RO := 0; LQGSTACKIR3-4) := RO; 
end; 

BEGIN RO := LQGSTACKCR3) SHRL 16 AND #FF XOR #F J 

L0G8RANCH; RO := L0GP0INTER+4; LOGPOINTER :« ROS 

R3 := INSCOUNTER; 

FIXUP; R3 := LOGPOINTER; RO 

L0GSTACMR3) := RO; RO := 0; 

LINKBRANCHES; 
END; 

end; 
END; 
END; 

R6 := R6 OR #06000000; Rl : = SAVER1; 
END; 

PROCEDURE M E RG E24 < R 1 ) ; 

BEGIN LOGICAL SAVERl; SAVERl := Rl ; 

R3 i= LOGPOINTER - 12; RO : = LOGSTACK? R3) *, 

Rl := LOGSTACK! R3+4 ) ; LOGSTACK (R3) := Rl; 

L0GSTACMR3+4) := RO; MERGE; 

RO := LOGPOINTER-4; LOGPOINTER : 

R3 := LOGPOINTER + 4; LOGPOINTER 

LOGSTACK (R3) := RO; 

Rl := SAVERl; 
END; 
PROCEDURE MERGE34CR1) ; 

BEGIN LOGICAL SAVERl; SAVERl := Rl ; 

R3 : = LOGPOINTER - 4; LOGPOINTER := R3 ; 

R3 := LOGPOINTER + 4; LOGPOINTER := R3 ; 

RO := LGGSTACKCR3+4) ; L0GSTACKCR3) := RO; 

R3 := LOGPOINTER-12; RO := LOGSTACK! R3) ; 

L0GSTACMR3) := Rl; L0GSTACKCR3+4) := RO; 

Rl := SAVERl; 
END; 

SECHENT PROCEDURE UNCONDJUMP{ Rl) ; 



:= LOGSTACK CR3-4) ; 
LOGSTACK (R 3-4) :*ROj 



RO; MERGE; 
= R3; RO f: 



L0GSTACKIR3+4); 



merge; 



Rl := L0GSTACKCR3+4); 
MERGE; 



^ m [] w >mmmmimmwmi\\tmim t M 
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11 


08D3 


07 


09 DO 


18 


C0C4 


07 


09 08 


18 


00 OA 


07 


090 8 


18 


CO 10 


07 


09D8 


18 


0018 


C7 


09 D 8 


18 


002 


07 


09 D 8 


13 


0034 


07 


09 03 


18 


0044 


7 


09D8 


18 


04A 


C7 


09D8 


18 


00 58 


07 


09D8 


18 


0C63 


07 


09 03 


18 


00 6 8 


a 


9D8 


18 


0068 


C7 


09 08 


18 


0C68 


C7 


09D8 


18 


008A 


07 


090 8 


18 


O0A8 


07 


0908 


18 


00C6 


07 


0908 


18 


O0E4 


07 


0908 


18 


0102 


7 


9D8 


18 


010A 


07 


0908 


18 


0122 


07 


908 


18 


0142 


07 


908 


18 


014E 


07 


0908 


18 


01 5E 


07 


09 D8 


18 


162 


07 


90 8 


18 


0162 


07 


0908 


18 


G176 


07 


0908 


18 


0176 


07 


090 8 


18 


018A 


07 


09D8 


18 


01 SA 


07 


0908 


18 


Q18E 


C7 


0908 


18 


010 2 


07 


908 


18 


C192 


07 


908 


18 


01BE 


07 


09D8 


18 


01C6 


07 


0908 


18 


QIC 6 


07 


0908 


18 


01C6 


07 


0908 


18 


01 E8 


07 


0908 


18 


01F2 


07 


09D3 


18 


01 F2 


07 


903 


18 


01 F2 


07 


0908 


18 


01FC 


a 


090 8 


18 


02 6 


07 


0908 


18 


020E 


07 


0908 


18 


218 


07 


090 8 


1 8 


022 8 


C7 


908 


18 


24 6 


07 


090 8 


18 


02 50 


07 


0908 


10 


0250 


07 


0908 


18 


0250 


07 


0908 


18 


0258 


07 


0908 


18 


02 58 


C7 


09 OC 


18 


26C 


C7 


09 DC 


18 


0278 


07 


09 DC 


18 


0280 


07 


09 OC 


18 


0288 


07 


090C 


18 


0200 


07 


09 DC 


18 


029C 


07 


09DC 



2883 
2 884 
2 88 5 
2336 
2 3 87 

288 8 
2 839 

289 
2891 
289 2 
2 393 
2894 
2395 
289 6 
2 897 

289 8 
2899 
2900 

290 1 
290 2 
290 3 
2904 
290 5 
2906 
2907 
2908 
290 9 
2910 
2911 
2912 
291.3 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2.921 
2922 
2923 
2924 
292 5 
292 6 
2927 

292 8 
2929 
2930 
293 1 
2932 
2933 
2<L34 

293 5 
2936 
2937 
293 8 
2939 
2940 



BEGIN LOGICAL SAVGR1 t LNGTH; 
IF R7 >= THEN 

BEGIN K3 :■= R7 AND OPCODEMASKJ 

IF R3 = NULLS! THEN GOTO STMNT 



SAVER! := Rl 



ELSE 



IF R3 = #50000000 THEN COMMENT 
BEGIN RECORDALLOCATE; R3 : = 9; 
END ELSE GETTYPE; 
Rl := R7 SHRL 24; 

IF Rl = FUNG ID ANO R3 = 



PCCLIO; 

GOTO SKIP; 



BEGR- 

END; 

CASE R3 

BEGIN 

BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
R3 ; = 
BEGIN 



CALLPROPROC WOP ARAM; 



THEN 
GOTO 



STMNT; 



OF 



CONVERT ; 

CONVERT; 

CONVERT; 

CONVERT ; 

CONVERT; 
6; 

GETLENGTH; 
GETAODRESS; RIO 
EM IT ; 



LOADREG; 
LOAOREG; 
LOADREG; 
LOADREG; 
LOADREG; 



R3 
R3 
R3 
R3 
R3 



IS 

2; 

3; 
4; 
5; 



13 := R3 
:= R3; 



SHLL 16; 
GENREG; 



END; 
END; 
END; 

END; 
END; 

LNGTH 

RO:=RO 



• = R 3 ; 

OR RIO 



SKIP: 



R3 
R3 
END; 
BEGIN 
END; 
BEGIN 
END; 
BEGIN 
R3 
END; 
END; 

IF R3 <= 
BEGIN 
IF R7 >= 
TESTUFEXP); 
R3 := R7 SHLL 
END; 
END ELSE 
BEGIN R3 
IF R3 



= LSTACKM4CR5) 
= 7; 



SHLL 1 SHRL 9 



OR LAA; 
LSTACKM4(R5J:»R3i 






LOADREG; 

LOADREG; 

COMMENT 
= 0; 



R3 := 8 



R3 



■= Q: 



NULL ST; 



5 THEN 



THEN 



R7 

IF 



:= R3 SHLL 24 OR SIGN; 
-.= THEN CONVERTRESULT; 



1 SHRL 25: 



IF R3 

BEGIN 
IF R3 
BEGIN 
R3 
END; 

END; 

IF R3 = 6 
BEGIN 



= R7 ANO S7F000000J 

= THEM GOTO STMNT ELSE 
= 7 THEN 
Rl := R7 AND TYPE MASK; 

<= 5 OR R3 >= 8 THEN 
LOADREG; IF -1FEXP 



R3 := R3 SHPL 24; 
LNGTH := Rl; END; 
THEN CONVERTRESULT; 



■= R7 SHLL 1 SHRL 25; 



AMDORARGl; R3 := LOGPOINTERJ 



THEN 

LOGICAL SAVE; 
SETCLOGFLAGI 5 SEKANDFLAG) ; 
TESTIUJIFEXP); IF = THEN 

BEGIN RO := LOGS TACK (R3-12 ) 5 RIO := LOGSTACK (R3-4) ; 
L0GSTACMR3-12J := RIO; LOGSTACKt R3-4) := RO; 
RO := LOGSTACK LR3- 8) ; RIO := LOGSTACK !R3); 
LOGSTACMR3-8) : = RIO; L0GSTACMR3) := RO; GOTO STMNT; 
END; 
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18 


C29C 


07 


09DC 


13 


02A4 


C7 


09 DC 


IB 


02 AC 


07 


09 DC 


18 


02 84 


G7 


09 DC 


18 


02BA 


07 


09 DC 


16 


02 CE 


07 


09 DC 


18 


02DE 


C7 


09 DC 


18 


02F6 


C7 


09 DC 


18 


03 C2 


07 


09 OC 


18 


03CA 


07 


09 DC 


18 


03CA 


07 


09 DC 


18 


0314 


07 


09 EO 


13 


C 3 2 A 


07 


09E0 


18 


0332 


07 


09E0 


18 


034 6 


C7 


09 EO 


18 


34 6 


07 


09E0 


18 


35 2 


07 


09 EO 


18 


03 5 A 


07 


09 EC) 


18 


037 6 


07 


09 EO 


18 


03 7 E 


07 


09E0 


18 


392 


07 


09EO 


18 


0390 


07 


09 EO 


13 


C398 


07 


09 EO 


18 


C3 9C 


07 


09E0 


18 


3BC 


G7 


09 EO 


18 


03C0 


C7 


09E0 



11 


08C8 


07 


09 EO 


11 


0BD8 


C7 


09 EO 


11 


0BD8 


C7 


09 EO 


19 


0000 


07 


09 EO 


19 


0000 


07 


09 EO 


19 


0004 


07 


09 EC 


19 


COO A 


07 


09 EC 


19 


OOOA 


C7 


09EC 


19 


0026 


07 


09 EC 


19 


003E 


07 


09 EC 


19 


004E 


C7 


09EC 


19 


004 E 


C7 


09EC 


19 


0C6E 


07 


09 EC 


19 


0C7 6 


G7 


09 EC 


19 


00 76 


07 


09 EC 


19 


00 82 


07 


09EC 


19 


00 62 


07 


09 EC 


19 


0082 


07 


09 EC 


19 


€ 8 E 


C7 


09EC 


19 


00 96 


07 


09 EC 


19 


0C9E 


07 


09EC 


19 


00 A 2 


07 


09EC 


19 


00 68 


07 


09 EC 


19 


OOBC 


07 


09 EC 


19 


00 BC 


C7 


09EC 


19 


OOCO 


07 


09 EC 


19 


O0D6 


C7 


09EC 


19 


OOCA 


07 


09 EC 


19 


OOCA 


07 


09 EC 



2941 


2942 


294 3 


2 944 


294 5 


2946 


2«47 


2948 


294 9 


29 5 


2951 


295 2 


2953 


2954 


295 5 


29 5 6 


2957 


2 95 8 


2959 


2960 


2961 


2962 


2963 


2964 


2965 


2986 


SEGMENT 


296 7 


2 96 8 


2969 


2970 


297 1 


29 72 


2973 


2974 


297 5 


2976 


2977 


2 97 8 


297 9 


2980 


2981 


298 2 


29 83 


2934 


2985 


2986 


2987 


298 8 


293 9 


2990 


299 1 


2992 


2993 


2994 


2995 



RO := LGGSTACMR3-8); RIO := L0GSTACKCR3-4M 
LOGSTACKCR3-8) := RIO ; RIO := LOGSTACK (R3) J 
L0GSTACK(R3-4) := RIO; LOGSTACK <R3) :=R0; 
R7 := #86000000; R6 := R6 OR R7; 
MERGE24; TESTUFEXP); IF -.= THEN GOTO STHNTJ 
R3:=LOGP0INTER-4; LOGPOI NTER : =R3; RO :=LOGSTACKf R3+4) J 
SAVE := RO; RO := #0200; INDICATEBRANCHj RO 5= SAVE; 
R3 := L0GPU1MTER+4; LOGPGINTER := R3 ; L0GSTACMR3) s= RO; 
GOTO XI T; 
END ELSE 
BEGIN LOGICAL SAVER6; SAVER6 : = R6 ; R6 := R3; 

R7 := R3 SHLL 24 OR SIGN; IF R3 = 7 THEN R7:=R7 OR LNGTH; 

IF P.3 = 9 THEN 

BEGIN R5 := R5 - 4; RESETRECORO; R5 := R5 «- 4; 

END; 

CORRECTREG; 

TEST! IF EXP) ; IF -»= THEN 

BEGIN RO := #F; LOG BRANCH; LINKBRANCHES; 

TEST(CLFLAG); IF -*= THEN 

BEGIN R3 ■:= LSTACKM4(R5) J RELEASE; R5 2= R5 - 45 END; 
END; R6 := SAVER 6 OR R7; 

END; 

GOTO XI T; 
STMNT: RO := #F; LOGBRANCH; LINKBRANCHES; R7 : = SIGN; 
X1T: Rl := SAVER 1; 

END; 



18 NAME = SEG#18 



LENGTH = 0408 BASE REG = 15 



SEGMENT PROCtOURE STFUNCT ION <R1); 

BEGIN COMMENT GENERATES CODE TO LOAD R3 OR F01/F23 WITH VALUE, 
RETURNS {LENGTH, TYPE) IN R3; 
INTEGER SRI, SAVEADD, SAVETYPE; SRI :* Rl; 
IF R7>= THEN 
BEGIN COMMENT 10; 

GETTYPE; SAVETYPE := R3; GET ADDRESS; 
DUMPALLGENREG; DUMPALLFLREG; 

SAVEADD := R35 R3 := SAVETYPE; IF R3 = 7 THEN 
BEGIN COMMENT IT IS A STRING; 

IF R7 < THEN R3 := R7 SHLL '8 SHRL 24 ELSE GETLENGTH; 
R3 := R3 SHLL 16 OR 7; 
END; 

Rl :■= SAVETYPE; SAVETYPE := R3 J R3 := SAVEADD; 
CASE Rl OF 
BEGIN 

RO := #58300000; COMMENT INTEGER; 
RO := #7 8000000; COMMENT REAL; 
RO := #6 8000000; COMMENT LONG REAL; 
BEGIN COMMENT COMPLEX; 

RO := #78000000 OR R3 ; EMIT; R3 := R3 + 4; 
RO := #78200000; 
END; 
BEGIN COMMENT LONG CCOMPLEX; 

RO := #68000 000 OR R3 ; EMIT; R3 := R3 + 8; 
RO := #68200 000 ; 
END; 
RO := #43300000; COMMENT LOGICAL; 
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19 


00 £2 


07 


09EC 


19 


OOt A 


C7 


09 EC 


19 


00F2 


07 


09 EC 


19 


00F6 


07 


09EC 


19 


01 CO 


07 


09EC 


19 


0110 


07 


09EC 


19 


one 


07 


09 EC 


19 


one 


07 


09EC 


19 


one 


37 


09EC 


19 


0144 


07 


09EC 


19 


0152 


07 


09EC 


19 


C152 


07 


09EC 


19 


0156 


07 


09EC 


19 


0160 


J 7 


09 EC 


19 


C16A 


07 


09 EC 


19 


0186 


07 


09 EC 


19 


01A4 


07 


09EC 


19 


0108 


07 


09 EC 


19 


01D0 


07 


09 EC 


19 


■010E 


07 


09 EC 


19 


01DE 


07 


9EC 


19 


01DE 


07 


09EC 


19 


01EE 


07 


09 EC 


19 


01L : E 


07 


09EC 


19 


OIF E 


07 


09 EC 


19 


01FG 


07 


09 EC 


19 


02CA 


07 


09 EC 


19 


020A 


C7 


09 EC 


19 


021A 


07 


09EC 


19 


021 A 


07 


09EC 


19 


022 6 


07 


09 EC 


19 


0226 


C7 


09 EC 


19 


0236 


07 


09EC 


19 


023 6 


C7 


09 EC 


19 


0242 


C7 


09 EC 


19 


242 


G7 


09EC 


19 


0256 


07 


09EC 


19 


02 5 A 


07 


09EC 


19 


0266 


07 


09 EC 


19 


026 6 


07 


09 EC 


19 


02 7A 


07 


09EC 


19 


927 E 


07 


09 EC 


19 


0282 


07 


09EC 


19 


028E 


C7 


9 EC 


19 


02 A 


C7 


09 EC 


19 


02AC 


07 


O^EC 


19 


02AC 


07 


09EC 


19 


02B0 


C7 


09EC 


19 


028C 


07 


09EC 


19 


0202 


07 


09EC 


19 


G2D2 


07 


09 EC 


19 


02D6 


C7 


09EC 


19 


020E 


C7 


9 EC 


19 


02 E 6 


07 


09 EC 


19 


02F8 


07 


09EC 


19 


02 F 3 


07 


09EC 


19 


02 F 8 


C7 


09 EC 


19 


0306 


07 


09 EC 



2 996 
2997 

2 99 8 
2999 
300 
3001 
300 2 
3003 
3004 
300 5 
3006 
3007 
300 8 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
30 20 
30 2 1 
3022 
302 3 
302 4 
302 5 
3026 
302 7 
302 8 

302 9 
3030 
3031 
3032 

3 033 
3034 

303 5 
303 6 
303 7 
3038 
3039 
30 40 
3041 
3042 
3043 
3044 
3045 
3046 
3 04 7 
3048 
3049 
3050 
3051 
3052 
3053 



RO := #41300000; COMMENT STRING? 
RO := #58300000; COMMENT BITS; 
BEGIN COMMENT REFERENCE; 

IF K3 > THEN RO := #58300000 ELSE 

BEGIN R3 := R3 SHLL 1 SHRL 5; RO := #18300000; 

RESETRECORD; 
END; 
END ; 
END; 

HO := RO Oft R3; EMIT; 
END ELSE 

BEGIN COMMENT IT IS A <T EXP>; 
R6 := R7 SHLL 1 SHRL 25; 
RIO := R7 SHLL 8 SHRL 24; 
IF R6 = 4 OR R6 = 5 THEN LOADREG ELSE 
IF RIO = AMD R6 = 6 THEN EVALUATELQG; 
R3 := LSTACKM4CR5I ; RELEASE; R5 s= R5-4; 
OUM PAL LGENR EG ; DUMP ALL FLREG ; 

Rl := R6; IF Rl >= 8 THEN Rl 5= 1; 
CASE Rl OF 
BEGIN 

IF R3 -*= #80300 000 THEN 

BEGIN COMMENT INTEGER, BITS, REFERENCE; 

ro := #08300000; assemble; 
end; 

IF R3 -*= #80000 000 THEN 
BEGIN COMMENT REAL; 

RO := #08000000; ASSEMBLE; 
END; 

IF R3 -v= #80000 000 THEN 
BEGIN COMMENT LONG REAL; 

RO := #08000 000; ASSEMBLE; 
END ; 

IF R3 -.= #80020000 THEN 
BEGIN COMMENT COMPLEX; 

R5 := R5 + 4; RO := #38000000; FORCECOMPLEXJ R5 := R5-4; 
END; 

IF R3 i= #80020000 THEN 
BEGIN COMMENT LONG COMPLEX; 

R5 ■:= R5 + 4; RO := #28000000; FORCECOMPLEXJ R5 := R5-4J 
END ; 
BEGIN COMMENT LOGICAL; 

IF R3 > THEN RO := #43300000 OR R3 ELSE 

BEGIN R3 := R3 SHLL 1 SHRL 5; RO := #18300000 OR R3; 

END; EMIT; 
END; 
BEGIN COMMENT STRING; 

RO := R3 AND MASKS; IF RO -.= THEM 

BEGIN RO := LAA OR #300000 OR R3; EMIT; 

END ELSE 

BEGIN 

R3 := R3 SHLL 4 AND MASK4; 

IF R3 -.= #00030000 THEN 

BEGIN RO := #18300000 OR R3; EMIT; 

END; 

END; 

ro := r7 and rfffoooo or 7; savetype := ro; 
end; 
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19 


03 06 


07 


09 EC 


19 


032 6 


07 


09EC 


19 


0332 


07 


09 EC 


19 


0332 


07 


09EC 


19 


033E 


C7 


09 EC 



11 


0BC8 


87 


09EC 


11 


09C8 


07 


09 EC 


11 


OBDS 


07 


09 EC 


20 


0000 


07 


09F0 


2 


ooco 


07 


09 FS 


2 


0000 


07 


OOF 8 


20 


00 04 


C7 


0A04 


20 


0C2E 


07 


0AG4 


20 


C04 8 


07 


0A04 


20 


0053 


07 


0A04 


20 


00 64 


07 


0A0 4 


20 


0C70 


07 


0A04 


20 


Of] 7 4 


07 


0A04 


20 


00 76 


07 


A 04 


20 


0076 


07 


0A04 


20 


0C76 


07 


OAOC 


20 


ocas 


07 


OAOC 


20 


009 A 


07 


OAOC 


2 


00A3 


07 


OAOC 


20 


OOBC 


07 


OAOC 


20 


OOCE 


07 


OAOC 


20 


00D6 


07 


OAOC 


20 


00F4 


07 


OAOC 


2 


0F4 


07 


OAOC 


2 


010C 


07 


OA OC 


2 


C10C 


07 


OAOC 


20 


011E 


07 


OAQC 


20 


013 A 


07 


OAOC 


20 


014E 


07 


OAOC 


20 


01 6 A 


07 


OAOC 


20 


CI 70 


7 


OAOC 


20 


0180 


07 


OAOC 


20 


c i a s 


07 


OAOC 


20 


018A 


07 


OAOC 


20 


018A 


07 


OAOC 


20 


018A 


7 


OAOC 


20 


0194 


07 


0A10 


20 


01 A4 


07 


0A10 


20 


0130 


07 


OA 1 


20 


01 04 


07 


0A10 


20 


C1E4 


07 


0A10 


20 


01F4 


G7 


OA10 


20 


01FC 


07 


0A10 


20 


02C3 


07 


0A10 


20 


0208 


07 


OA10 


20 


0216 


07 


0A10 


20 


02 IE 


7 


OA 1 


20 


0226 


C7 


0A10 


20 


C234 


07 


0A10 


20 


C240 


07 


0A10 



3054 


.305 5 


3056 


3057 


3 05 8 


SEGMENT 19 


30 5 9 


306 S 


306 1 


3062 


3063 


3064 


306 5 


3066 


30 67 


306 3 


3 Ob 9 


3070 


3071 


3072 


3073 


3074 


307.5 


3076 


307 7 


30 78 


3079 


308 


3081 


308 2. 


308 3 


308 4 


3085 


3086 


308 7 


308 8 


3089 


3090 


3 091 


3092 


309 3 


3094 


3095 


3096 


3 097 


3098 


3099 


3100 


310 1 


3102 


810 3 


3104 


310 5 


3106 


3107 


3 1 8 



END; 

IF R6 ->~ 7 THEN SAVETYPE := R6; 

END; 

r3 := savetype; res et ( r3fl ag) ; rl 

:nd; 



:= SRI; 



NAME = SEG#19 



LENGTH = 0380 BASE REG = 15 



SEGMENT PROCEDURE STANDAR0FUNCTIONCR1) 
BEGIN LOGICAL SAVERlJ 

LOGICAL SAVEADD, TEMP; BYTE RLE, 
P RO C E OUR E I MA GL OH G I M AG < R 1) ; 

BEGIN ARRAY 2 LOGICAL TEMP; 
STM< RO , R 1 1 TEMP ) ; CONVERT ; 
R6 := 3; R3 := RO OR SIGN; 



LONGFLAG, TERMFLAGj 



Rl := LSTACKM8fR5) AND MASKS SHRL 4 



LSTACKM8(R5) 



Rl; R5 



LOADREG; RO := TEMP; FLREG; 
RO := RO OR S; ASSEMBLE; 
OR LSTACKM4(R5); 
R5 - 4; R4 := R4 - 4; 



Rl 
Rl 

EN D ; 
PROCEDURE 

BEGIN 
SRO 
IF 



= FSTACKM4TR4) 

:= TEMP (4); 



XOR SIGN, 



FSTACKM4(R4> := Rl; 



REAL INT (Rl ) ; 
LOGICAL SRO,SRl; 
:= RO; SRI ;= Rl; CONVERT; 
R7 >= THEN GETAQQRESS ELSE 



BEGIN R3 



LSTACKM4CR5) 



IF R3 



R5 



< THEN 
= R5 - 4; 
:= ME XT A DDR * 3 

#70000000 OR R35 



R5 := R5 - 4; 



RO : = 
R3 : = 
IF R3 
BEGIN 
RO : = 
R3 : = 
R7 : = 
END; 
PROCEDURE 
BEGIN 



BEGIN R6 := 2 3 RELEASE; 
RO := R3 XOR SIGN; R3 
NEXTADOR := R3; RIO 
INCRADDRJ RO := RO QR 

END ELSE 

BEGIN R6 := 1; RELEASE; 
END; 

#41000000 OR R3; EMIT; 

OJ IF R3 -»= R<6) THEM DUMPALLGENREG; 

= R<4) THEN GENREG ELSE 

Rl 41 := R3; GENREG; R3 := 0; RC 

3REALINTEGER; RO := NEG RO; 

SRO; EMITCALL; 



AND SMASKJ 

EMIT; 
END; 



R3:=#FFFFFFFF; 



4)5= R3; 



END; 



#8100000 0; Rl := SRI 



REALPART(Rl) 



COMMENT RO IS 



INPUT AS FOR FLREG; 
:= Rl; IF R7 > THEN 
SAVE A DO := R3; 

= THEN R3 : 
XOR 

R3 



= ELSE 
SIGN SHRL 



LOGICAL SRI; SRI 
BEGIN GETADDRESS; 
TESTtRLF); IF 
IF R7 < THEN R3 := R7 
IF R.3 = 5 THEN R3 s= 8; 
SAVEADD := R3i FLREG; 
RO '.= RO OR #08000000; 
ASSEMBLE; 
END ELSE 
BEGIN R3 : = LSTACKM4CR5) ; 

BEGIN RO := F STACK! R4-4I XOR SIGN; 
FSTACMR4-4) : « RO; R4 i- R4 + 4; 
RO := R3 AND M.ASK5 OR SIGN; LSTACKM4IR5) 
R3 := R3 AND MASK4 SHLL 4 OR SIGN; 
RELEASE? 



24 ELSE GETTYPE; 



:= R3 + SAVEAOO? 



R3 := SAVEADD; 



IF R3 < THEN 



RO; 
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20 


024C 


C7 


OA 1 


20 


24C 


07 


0A10 


20 


0240 


07 


0A10 


20 


2 50 


07 


0A10 


20 


0252 


07 


0A1O 


20 


0252 


07 


0A1O 


20 


02 5 6 


C7 


OA 1 


20 


02 6 6 


07 


0A1O 


20 


026 6 


07 


0A10 


20 


02. 7C 


07 


0A1O 


20 


0208 


07 


0A10 


20 


2AE 


C7 


0A10 


20 


02 A E 


C7 


0A10 


20 


02EA 


07 


0A1O 


20 


02BA 


07 


0A10 


20 


02 DO 


C7 


0A10 


20 


02D6 


07 


0A10 


20 


2CA 


07 


0A10 


20 


02 EE 


G7 


0A10 


2 


C2F6 


07 


ALC- 


20 


30 A 


07 


OA 10 


20 


030A 


07 


OAK) 


20 


03 1C 


07 


0A10 


20 


one 


07 


OAIO 


20 


032 


07 


0A14 


20 


334 


07 


0A14 


20 


034 3 


07 


0A14 


20 


0348 


07 


0A14 


20 


35 8 


07 


0A14 


20 


036 E 


07 


0A14 


20 


C36E 


07 


0A14 


20 


3 7C 


07 


0A14 


20 


03 8C 


07 


CA14 


20 


38C 


07 


0A14 


20 


03 c 8 


07 


0A14 


20 


03 S3 


07 


0A14 


20 


C3 9C 


07 


0A14 


20 


03 A 4 


07 


0A14 


20 


03 B 4 


07 


0A14 


20 


a -> r n 
\j $ C u 


07 


0A14 


20 


03DC 


07 


0A14 


20 


C3F8 


07 


0A14 


20 


03FC 


07 


0A14 


20 


0404 


07 


0A14 


20 


0418 


07 


0A14 


20 


04 18 


07 


0A14 


20 


0410 


07 


0A14 


20 


Q42C 


07 


0A14 


20 


4 2C 


07 


0A14 


20 


04 30 


07 


0A14 


20 


440 


07 


0A14 


20 


0440 


07 


0A14 


20 


0444 


07 


0A14 


20 


Q44E 


07 


0A18 


20 


045E 


07 


0A18 


20 


046A 


07 


0A18 


20 


04 84 


07 


0A18 


20 


0494 


07 


0A18 



3109 


3 1 1 


3111 


3 1 1 2 


311 3 


3114 


3115 


3116 


3 1 1 7 


3118 


3119 


3120 


3121 


3122 


312 3 


3124 


312 5 


312 6 


312 7 


312 8 


3129 


3130 


3131 


3132 


3133 


3134 


313 5 


3136 


3 1 3 7 


313 8 


3139 


3140 


3141 


3142 


3143 


3144 


3145 


3146 


3147 


3148 


3149 


3150 


3 1 5 1 


3152 


3153 


3154 


315 5 


3156 


3157 


315 8 


3 1 5 9 


31o0 


3161 


316 2 


3163 


3164 


3165 


3166 



ENO; 

END; 

Rl 
END; 



= SRI J 



SAVER1 :•= Rl; 

IF R3 <= 2 OR R3 = 6 THEN 

BEGIN COMMENT WRITE, WRITEON, SYSACT; 

IF R3 -.= 6 THEN R3 := R3-R3 ELSE R3 := #01000000; TEMP := R3J 

CONVERT; STFUNCTION; R3 := R3 OR TEMP OR fBOOOOOOO; 

RO := aWRITEEDIT; RO : = NEC RO; EMITCALL; R7 := SIGN; 
END ELSE 
IF R3 <= 5 THEN 
BEGIN COMMENT READ, READON, READCARO; 

IF R3 -i= 5 THEN R3 := R3-R3 ELSE R3 := #01000000; TEMP := R3S 

IF R7 < THEN 

BEGIN RO := LSTACKM4( R5 ) ; COMMENT IF RO < THEN? 
R6 := l; ZRELEASE; R5 i= R5 - 4; 
IF RO -.= #3000 THEN 
BEGIN RO := RO OR LAA OR #300000; EMIT; 

END; 

RO i= R7 SHRL 24 AND #7F ; R3 s= R7 AND #FFOOOO OR RO; 
ENO ELSE 
BEGIN INTEGER SAVER3S 

GETTYPE; IF R3 = 7 THEN 

BEGIN GETLENGTH; R3 := R3 SHLL 16 OR T, 

END; 

SAVER3 5= R3; GETADDRESS; 

RO := R3 OR #41300000; EMIT; R3 := SAVER 3 5 
END; 

R3 := R3 0R TEMP OR #80000000; RO := 3READIN; RO := NEG RO; 
EMITCALL; R7 := SIGN; 

END ELSE 

IF K.3 <= 22 THEN 

BEGIN COMMENT STANDARD FUNCTIONS WITH INLINE CODE; 
R3 := R3 - 6; CASE R3 OF BEGIN 
BEGIN COMMENT 000; 

LOADREG; Rl := CPTBASE; RO := C0NSPTTABCR1 ) 

AND MASK OR LSTACKM4CR5) XOR SIGN 

OR #5400E000; EMIT; R3 := LSTACKM4( R5 ) ; R6 := 1; 

RELEASE; RO : = 0; R3 := LOGPOINTER + 8; R5 := R5 - 4* 

LOGPOINTER := R3; 

L0GSTACKCR3-4) := RO; L0GSTACK(R3) *•■= RO ; 

RO := #0107; INDICATEBRANCH; R7 := #86000000*. 
ENO; 
BEGIN COMMENT 8ITSTRING; 

LOADREG; R7 : = #88000000; 

END; 

BEGIN COMMENT NUMBER; 

LOADREG; R7 := #81000000; 
END; 
BEGIN COMMENT DECODE; 

LOGICAL SAVER3; RESETC TERMFLAG) ", IF R7 >= THEN 

BEGIN SETCTERMFLAG); GETADDRESS; ENO ELSE 

BEGIN R3 := L STACKM4CR5 ) ; R5 := R5 - 4; END; 

SAVER3 := R3; GENREG; R3 := RO OR SIGN; RO *= RO OR S; 

R6 := 1; ASSEMBLE; 

RO := LSTACKM4LR5) XOR SIGN OR ICC OR SAVER3; 
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20 


04A4 


0? 


0A18 


20 


C48 8 


07 


0A18 


20 


04CC 


07 


0A18 


20 


04CO 


37 


0A18 


20 


C4DG 


07 


0A18 


20 


04D4 


07 


0A18 


20 


04D4 


07 


0A1C 


20 


04b A 


07 


0A1C 


20 


04 F 4 


37 


0A1C 


20 


04FA 


07 


0A1C 


20 


50 8 


07 


0A1C 


20 


05 1 A 


07 


C A 1 C 


20 


5 3 2 


07 


0A1C 


20 


552 


07 


OA IC 


20 


550 


07 


0A1C 


20 


556 


07 


0A1C 


20 


56C 


07 


0A1C 


20 


C5 8 8 


07 


GA1C 


20 


G53C 


G7 


0A1C 


20 


053C 


07 


0A1C 


20 


C590 


07 


0A1C 


20 


C59 8 


07 


0A1C 


20 


0598 


07 


0A1C 


20 


59C 


07 


0A1C 


20 


5A4 


07 


OA 1 C 


20 


5A4 


07 


0A1C 


20 


5A8 


07 


OALC 


20 


G5BG 


07 


0A1C 


20 


C5 80 


07 


0A1C 


20 


5B4 


07 


OA IC 


20 


058C 


07 


0A1C 


20 


C5BC 


07 


0A1C 


20 


5C0 


07 


OA IC 


20 


5D4 


07 


0A1C 


20 


5E2 


07 


OALC 


20 


05F8 


07 


0A1C 


20 


0610 


07 


0A1C 


20 


C626 


07 


0A1C 


20 


6 2E 


•07 


0A1C 


20 


C62E 


07 


0A1C 


20 


63 2 


07 


0A1C 


20 


0636 


07 


OALC 


20 


C64C 


07 


0A1C 


20 


06 5 


07 


0A1C 


20 


0650 


07 


0A1C 


20 


0654 


07 


0A1C 


20 


0664 


07 


0A1C 


20 


066 E 


07 


0A1C 


20 


0673 


07 


0A1C 


20 


0686 


07 


OALC 


20 


06 8 E 


07 


0A1C 


20 


C 692 


07 


0A1C 


20 


0692 


07 


OALC 


20 


06 96 


07 


GA1C 


20 


06 A 6 


07 


0A1C 


20 


06 A6 


07 


OALC 


20 


06 A A 


07 


OALC 


20 


06AE 


07 


OA IC 



3167 

316 8 
3169 
3170 
3171 
3172 
3173 
3174 

317 3 
3176 
3177 

317 8 
3179 
3180 
3101 
3182 
3183 
3184 
3185 
3136 

318 7 

318 8 
3189 

319 
3191 
3192 
3193 
3194 
3195 
3196 
3197 

319 8 
3199 
3200 
3 201 
3202 

320 3 
3204 
320 5 
3206 
3207 
320 8 
3 20 9 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3 221 
3 222 
3223 
322 4 



XI" 



EMIT; IF -.TERMFLAG THEN 

BEGIN R3 :■= SAVER3; R6 i= 1? RELEASE; END; 

R7 := #8100000 0; 
END; 
BEGIN COMMENT CODE; 

LOGICAL SAVER3; 

LOADREG; R3 := LSTACKM4( R5) ; IF R3 >= THEM 

BEGIN R6 := 1 J RELEASE; 

END ELSE 

BEGIN R3 := R3 Xf)R SIGN; RO J ■= R3 OR #50000000 OR 
NEXTADDR + 3 AND SMASK; RIO := RO AND MASK; 
MEXTADDR:=RL0; EMIT; R3:=LSTACKM4(R5) S R6:=l; 
RELEASE; R3 := NEXTADDR; RIO := 4; INCRADDR; 
R5 := R5 - 4; 

END; 

SAVER3 := R3 ; GENREG; R3 s= RO SHRL 8; 

LSTACKM4(R5) : = R3 ; RO := RO OR LAA OR SAVER3 ++ 3; EMIT; 

R7 := #8700000 0; 
END; 
BEGIN COMMENT TRUNCATE; 

RO :■= CASEl; REALINT; 

END; 
BEGIN COMMENT ROUND; 

RO := CASE2; REALINT; 

END; 
BEGIN COMMENT ENTIER; 

RO := CASE3; REALINT; 

END; 

BEGIN COMMENT EXPONENT; 

RO := CASE4; REALINT; 

END; 
BEGIN COMMENT ROUNDED; 

LOADREG; R7 := LSTACKM4IR5) AND MASKS; 

RIO := NEXTADDR + 7 AND _8 ; R7 := R7 OR RIO; 

RO := R7 OR #6 0000000; EMIT; RIO x- RIO + 1; 

RO := #07020000 OR RIO; R3 5= RIO SHLL 16; EMIT; 

RO := R7 OR #6A0O000O; EMIT; RIO := RIO + 7; 

NEXTADDR := RIO; R7 := #82000000; 
END; 
BEGIN COMMENT REALPART; 

SET(RLF); 

CONVERT; RO % = #00000000; R6 := 2; REALPART; 

R7 := #82000000; 

end; 

BEGIN COMMENT I M AGP ARTS 

CONVERT; IF R7 < THEM 

BEGIN RO := LSTACKM4 ( R5 1 ; IF RO < THEN 
BEGIN R3 := RO AND MASK4 SHLL 4; 

RO := RO AND MASK5 SHRL 4; RO s= RO OR R3 OR SIGN; 
END ELSE RO := RO + 4; 
LSTACKM4CR5) : = RO; 
end; 

RESETiRLF); 

RO := #C0000000; R6 := 2; REALPART; R7 := #82 000000; 
END; 

BEGIN COMMENT LONGREALPART; 
SET(RLF); 
CONVERT; RO : = #80000000; R6 ',= 3; REALPART; 
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20 


06C4 


37 


OA 1C 


20 


06C8 


07 


OALC 


20 


G6C8 


07 


OAIC 


20 


06CC 


07 


OA IC 


20 


06 CC 


07 


0A1C 


20 


06E6 


07 


0A1C 


20 


06 FO 


07 


0A1C 


20 


06FE 


07 


0A1C 


20 


C7C6 


07 


OAIC 


20 


C70A 


07 


0A1C 


20 


70 A 


07 


OAIC 


2 


C7CE 


07 


OAIC 


20 


7 IE 


07 


OAIC 


20 


C71E 


07 


OAIC 


20 


0722 


07 


OAIC 


20 


72E 


07 


OAIC 


20 


C72E 


07 


OAIC 


20 


073 2 


07 


OAIC 


20 


73E 


07 


OAIC 


20 


C782 


07 


OAIC 


20 


G782 


07 


OALC 


20 


78E 


07 


OAIC 


20 


C7 8E 


07 


OAIC 


20 


7A2 


07 


OAIC 


20 


0786 


07 


OAIC 


20 


G1C3 


07 


OAIC 


2 


07CA 


07 


OAIC 


2 


07 EC 


07 


OAIC 


2 


C8C0 


07 


OAIC 


2 


80C 


07 


OAIC 


20 


0920 


07 


OAIC 


20 


0820 


07 


OAIC 


2(3 


082C 


07 


OAIC 


20 


082C 


07 


0A20 


20 


0844 


07 


0A20 


20 


0860 


07 


0A20 


20 


0876 


07 


0A2O 


2 


C8 94 


07 


0A20 


20 


C893 


07 


OA20 


20 


C8AC 


G7 


0A20 


20 


P: AC 


07 


0A20 


20 


888 


07 


0A20 


20 


88 8 


37 


0A20 


20 


08C0 


07 


0A2C 


2 


C8C0 


07 


0A2C 


20 


8 DC 


07 


0A2C 


20 


09C0 


07 


0A2C 


20 


0910 


> r> "7 
U 1 


0A2C 


20 


0910 


07 


0A2C 


20 


0924 


07 


0A2C 


20 


092E 


07 


0A2C 


20 


0942 


07 


0A2C 


20 


09 5C 


07 


0A2C 


20 


096C 


07 


0A2C 


20 


0986 


07 


0A2C 


20 


C986 


07 


0A2C 


20 


09 8 A 


07 


0A2C 


20 


Q 96 


07 


0A2C 



322 5 


3 22 6 


322 7 


322 8 


3229 


3 23 


3 23 1 


323 2 


3233 


3234 


3 235 


323 6 


3237 


323 8 


3239 


3240 


3241 


3242 


3243 


3244 


3245 


3246 


324 7 


3248 


8 249 


32 50 


3251 


325 2 


325 3 


3254 


3255 


32 5 6 


525 7 


325 8 


32 59 


3 260 


3 261 


3 262 


326 3 


3264 


3265 


3 26 6 


3 267 


3268 


3269 


3 270 


32 71 


3272 


3273 


3 274 


3275 


3 276 


8277 


327 8 


3279 


3280 


3281 


328 2 



R7 := #83000000;; 
END; 

BEGIN COM M E N T L NG I M A G PART ; 
CONVERT; IF R7 < THEN 

BFGIN RO := L STACKM4 ( R5» J IF RO < THEN 
BEGIN R3 := RO AND MASK4 SHLL 4; 

RO :■= RO AND MASK5 SHRL 4; RO := RO OR R3 OR SIGN; 
END ELSE RO : = RO + 8; 
LSTACKM4IR5 ) := RO; 
END; 

RESET(RLF); 

RO := #80000000; R6 := 3; REALPART; R7 := #83000000; 
END; 
BEGIN COMMENT IMAG; 

RO := #C0000000; I MAGLONGIMAG; R7 := #84000000; 
END; 
BEGIN COMMENT LONGIMAG; 

RO := SIGN; IMAGLONGIMAG; R7 : = #85000000; 
END; END; 
END ELSE 

IF R3 <= 36 THEM 
BEGIN COMMENT SHORT/LONG ANALYSIS FUNCTIONS; 

IF R3 > 29 THEN S ETC LONGFLAG ) ELSE RESET* LONGFLAG ) ; 
CONVERT; STFUNCTION; 

RO := RG-RO; Rl := STACKP8CR8) AND MASK / 12 - 22; 
RO := #41000000 OR Rl; EN IT; 
RO := 3ANALFN; RO := NEG RO; EMITCALL; 

IF LONGFLAG THEN RO := #80000000 ELSE RO := #COOO0O00; 
FLREG; 

IF LONGFLAG THEN R7 := #83000000 ELSE R7 := #82000000; 
END ELSE 

IF R3 <= 38 THEN 
BEGIN COMMENT COMPLEX SORT FUNCTIONS; INTEGER SAVERA; 

IF R3 = 37 THEN RIO : = 5 ELSE RIO := 6; SAVERA := RIO; 
CONVERT; STFUNCTION; R3 := SAVERA SHLL 16 J 
RO 3= aARITHFN; RO := NEG RO; EMITCALL; RIO := SAVERA; 
IF RIO = 5 THEN RO := #40000000 ELSE RO :« RO-RO; PRFLREGl 
R7 := SAVERA; 

IF R7 = 5 THEN R7 := #84000000 ELSE R7 := #85000000; 
END ELSE 

IF R3 <= 44 THEN 
BEGIN COMMENT STRING CONVERSION FUNCTIONS; 

INTEGER LENGTH, FUNCNO, SAVERO; R3 := R3-37; FUNCNO := R3; 

COMMENT (FUNCNO 01 V 2) = TYPE ; 
IF R3 = 6 OR R3 = 7 THEN RO := 19 ELSE RO := 11; LENGTH s* RO; 
CONVERT; STFUNCTION; RO := FUNCNO; IF RO <= 3 THEN 
BEGIN RO := #180 30000; EMIT; 
END; 

RO := #FFFF; R(4) := RO; GENRE6; 
R3 := RO SHRL 8; LSTACKM4CR5) : = R3; 
RO := RO OR LAA OR NEXTAOOR; EMIT; 

RO := RO-RO; R(4) := RO; RIO := LENGTH +■ 1; INCRADDRj 
R3 := FUNCNO SHLL 24 OR #80000000; RO : = aHRITEEDIT; 
RO := NEG RO; EMITCALL; R7 := LENGTH SHLL 16 OR #870000001 
END ELSE 

BEGIN COMMENT TIME {R3 =45); 
LOADREG; 
RO := LSTACKM4IR5) AND MASKS SHRL 4 OR #18000000; EMIT; 
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20 


0982 


07 


0A2C 


20 


904 


G7 


0A2C 


20 


G9CC 


07 


0A2C 


20 


09 EO 


07 


0A2C 


20 


09 EO 


07 


0A2C 


20 


G9E4 


07 


0A2C 



11 


0BD8 


07 


OA 20 


11 


8D8 


07 


0A2C 


11 


0BD3 


C7 


0A2C 


21 


OCOO 


07 


0A2C 


21 


0000 


07 


0A2C 


21 


0000 


07 


0A2C 


21 


0000 


07 


0A2C 


22 


0004 


07 


OA30 


22 


00 OE 


07 


0A3 


22 


ooo e 


07 


0A30 


22 


0014 


07 


0A3 


22 


0014 


07 


OA30 


22 


0030 


07 


0A30 


22 


0030 


07 


0A30 


22 


044 


07 


0A30 


22 


00 50 


07 


0A30 


22 


00 5C 


07 


0A30 


22 


00 5C 


07 


0A30 


22 


GO 76 


07 


0A30 


22 


0C76 


C7 


OA3 


22 


00 8 C 


07 


0A30 


22 


CG90 


07 


0A30 


22 


0090 


07 


0A30 


22 


O0B4 


07 


0A30 


22 


00 B4 


07 


0A3 


22 


00 64 


07 


0A30 


22 


00 S 8 


07 


0A30 


22 


000 6 


07 


0A3O 


22 


00 DO 


07 


0A30 


22 


OODO 


07 


0A30 


22 


OCEA 


07 


OA3 


22 


00F6 


07 


0A30 


22 


OOF 6 


07 


0A30 


22 


010 6 


07 


0A30 


22 


01 IE 


07 


0A30 


2 2 


0128 


07 


0A30 


22 


014C 


07 


0A30 


22 


014C 


07 


0A30 


22 


0154 


07 


0A30 


22 


0154 


07 


OA30 


22 


0168 


07 


OA30 


22 


0168 


07 


0A30 


22 


0168 


07 


0A30 


22 


016C 


07 


0A30 


22 


0180 


07 


0A30 


22 


019E 


07 


0A30 


22 


019E 


07 


0A30 


22 


01B6 


07 


0A30 


22 


01C2 


07 


0A30 



3283 


32 84 


3285 


3286 


3 287 


3288 


SEGMENT 


3289 


3 2 9 


3291 


3292 


3293 


3294 


3 29 5 


3 296 


3 29 7 


3298 


3299 


3 300 


3301 


330 2 


3303 


3304 


3305 


3306 


330 7 


3308 


330 9 


3810 


3311 


3312 


3313 


3314 


8315 


3316 


3317 


3318 


3319 


3320 


3321 


3322 


3323 


3324 


332 5 


3326 


3327 


3328 


3 329 


3330 


3 33 1 


3 332 


3333 


3334 


333 5 


333 6 


333 7 



20 



COMPILER 


. - PASS 3 






RO 


:= 3GTIME; RO := 


MEG RO; 




RO 


:■= LSTACKM4{R5 J 


AND MASK5 




R7 


:= #81000000; 




end; 






Rl 


: = 


SAVER 1; 




END; 








NAME = 


= SEG#20 LENGTH 


= OACO 
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emitcall; 

OR #180000001 



EMIT; 



BASE RE* 



15 



SEGMENT PROCEDURE LEVEL2CR1); 
BEGIN 

SEGMENT PROCEDURE NUMEP IC ALASSIGNI Rl ) ; 

COMMENT PROCESSES NUMERICAL ASSIGNMENT (A: = , A:=2 - ARG2); 
BEGIN LOGICAL SAVER1; SAVER1 := Rl; 
R3 := TREEIR6); IF R3 < THEN 

BEGIN COMMENT ON LEFT, EXPRESSION ON RIGHT PROCESSED:; 
IF R7 >= THEN 
. BEGIN COMMENT TERMINAL ON LEFT; 

GETTYPE; R6 := R3; RO ;= R7 SHRL 24; IF RO = CONID THEN 
BEGIN COMMENT INITIAL FOR VALUE, FORCE TO R2 J 
R3 := Is CORRECTREG; RO i- LSTACKM4C R5) % 
R3 := I0L0C.KR7) SHLL 12 + IDL0C2CR7); 



LSTACKMMR5) s= R3; 

END ELSE 

BEGIN GETAOORESS; RO 
BEGIN 

R7 : = 
RO : = 
END; 

ASSEMBLE; 
END; 
END ELSE 

BEGIN COMMENT NON-TERMINAL 
R6 : = 



R5 := R5 + 4; LSTACKM4CR5I s= RO; 

5= LSTACKM4(R5)S IF RO > THEN 
COMMENT EXPR DUMPED TO PROCESS LEFT SIDE; 
= R6 SHLL 24 OR SIGN; LOADREG; 
= LSTACKM4CR5); 

IF R6 = 9 THEN BEGIN RIO := 4; REFSTORJ END; 
ON LEFT; 



R7 SHRL 24 AND #7F| RE SE T( ARGFLAG) ; 
RO := LSTACKM4IR5-4); IF RO > THEN 
BEGIN COMMENT EXPR DUMPED TO PROCESS LEFT 

= R6 SHLL 24 OR SIGN; 



R5 
R5 
END; 

R3 : = 



:= R5 - 
:= R5 + 



4; 

4; 



R7 
RO 



:= LSTACKM4LR5-4) 



SIDE; 
LOADREG; 
SET< ARGFLAG); 



ASSEMBLE; 

R6 := 1; RELEASE; R5 ;= R5 - 41 



EXPR REGISTER; 
RELEASE; R5 



:= LSTACKM4CR5) ; 

R3 := LSTACKM4IR5); 

R6 := R7 SHRL 24 AND #7F; 

IF ARGFLAG THEN IF R6 = 1 OR R6 >= 
END; 

IF -CEQ2 THEN 
BEGIN COMMENT RELEASE 

R3 := LSTACKM4<R5); 
END; 
END ELSE 

BEGIN COMMENT ON RIGHT, 
CONVERT; LOADREG; R6 
R3 := LSTACKM4<R5~4 5 ; 
BEGIN COMMENT HAD TO DUMP ADDRESS FROM LEFT; 

R5 := R5 - 4; R7 := #81000000; LOADREG; 

R3 '.=■ LSTACKM8CR5) SHLL 1 SHRL 9; 
END ELSE 



8 THEN AOJSTACKSj 



= R5 - 4; 



LEFT SIDE PROCESSED; 
:= R7 SHRL 24 AND #7F; 
Rl := CLN SHLL 12; IF R3 



R5 



> Rl THEN 

:= R5 



+ 4; 



f — ^ w i w w w ^wwm n ^rtwi w 
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22 


01C2 


07 


DA 30 


22 


01C6 


07 


0A30 


22 


01CA 


07 


0A30 


22 


1 C A 


07 


0A30 


22 


1 C A 


')7 


0A30 


22 


01EE 


07 


0A30 


22. 


020 6 


07 


GA30 


22 


2C6 


C7 


OA3 


22 


0214 


07 


0A30 



333 8 
3339 
3340 
3341 
3 342 
3343 
3344 

334 5 
3346 



BEGIN COMMENT DID NOT DUHP ADDRESS FROM LEFT; 

R3 := LSTACKM8IR5) 5 

end; 

RO := LSTACKM4(R5); ASSEMBLE; 

R3 := LSTACKM4CR5 ); RELEASE; R.3 := LSTACKM8I R5) ; RIO := R6; 

R6 := 1; RELEASE; R6 := RIO; R5 := R5 - 8J 

END; 

R7 := R6 SHLL 24 OR SIGN; Rl := SAVER 1; 
END; 



SEGMENT 22 NAME = S EG#22 



LENGTH = 0248 BASE REG = 15 



21 


0000 


07 


0A30 


21 


0000 


07 


0A30 


21 


€000 


07 


0A30 


21 


oooc 


07 


0A35 


21 


012 


07 


0A35 


21 


02 


07 


0A3 5 


21 


3 2 


07 


0A3 5 


21 


0C46 


07 


0A35 


21 


octo 


07 


0A3 5 


21 


C 6 8 


07 


0A3 5 


21 


0C80 


07 


0A35 


21 


CC8C 


07 


0A3 5 


21 


CO 80 


07 


0A35 


21 


O0 8C 


07 


0A3C 


21 


OOAO 


07 


0A3C 


21 


OOAE 


07 


0A3C 


21 


OOBE 


07 


0A3C 


21 


00 C A 


07 


0A3C 


21 


OOCH 


07 


0A3C 


21 


000 A 


07 


0A3C 


21 


OOFO 


07 


CA3C 


21 


01 04 


07 


0A3C 


2 1 


one 


07 


0A3C 


21 


0138 


07 


0A3C 


21 


1 3 8 


07 


0A3C 


21 


0138 


07 


0A.3C 


21 


013C 


07 


0A3C 


21 


014E 


07 


0A3C 


21 


0156 


7 


0A3C 


21 


01 5C 


07 


0A3C 


21 


015C 


07 


0A3C 


21 


0166 


07 


0A3C 


21 


0166 


07 


0A3C 


21 


017E 


07 


OA 3C 


21 


0182 


07 


0A3C 


21 


0.182 


07 


0A3C 


21 


0192 


07 


0A3C 


21 


1 86 


07 


0A3C 


21 


01CA 


07 


0A3C 


21 


01D2 


07 


0A3C 


21 


01E6 


07 


0A3C 


21 


01E6 


07 


0A3C 


21 


01 E6 


07 


0A3C 


21 


01 E A 


07 


0A3C 


21 


01F6 


07 


0A3C 


21 


02 OC 


07 


0A3C 



3 34 7 


3 348 


3349 


3 35 


3351 


3352 


3353 


3354 


3355 


3356 


3357 


335 3 


3 3 5 9 


3360 


3361 


3 36 2 


336 3 


336 4 


3365 


3 366 


3 367 


336 8 


3369 


3370 


3371 


3 3 72 


3 373 


33 74 


3 37 5 


3 376 


3377 


337 8 


3379 


3 380 


3381 


338 2 


3383 


3384 


8385 


338 6 


338 7 


338 8 


3389 


3 390 


339 1 


3 892 



BYTE ARGfLAG; SAVER1 



Rl; RESET i ARGFLAG) ; 
IF R3 < THEN 



PROCEDURE LC0LEQAP.G2CR1); 

BEGIN LOGICAL SAVERlJ 
IF R7 >= THEN 

BEGIN R6 :■= R6 AND MASK; R3 := TREECR6); 
BEGIN GETADORESSJ IF R7 < THEN 

BEGIN R7 := #86000000; SET(P3FLAG); LOADREG; END; 
RO := LSTACKM4{R5) AMD .MASKS OR STCC OR R3; EMIT; 
TESKCEQ2); IF -»= THEN 

BEGIN R3 := LSTACKMMR5); R6 := 1; RELEASE; R5:=R5~4; 
END; 
END ELSE 

BEGIN LOGICAL SAVER3; R3 := LSTACK(RS); S.AVER3 :=R3; 
GETADORESSJ Rl := SAVER3; SAVER3 := R3; 
IF R7 < AND Rl ->= LSTACKM4(R5) THEN 
BEGIN SEKR3FLAGJ; LOADREG; 

Rl := LSTACKMMR5) XOR SIGN SHRL 8; LSTACKM4<R5) := RlS 
END; 

gemreg; 

r3 := saver3; ro := ro or r3 or icc; emit; 

ro := lstackm4cr5) shll 1 shrl 1 or. lstackm8( r5) or stcc; 

emit; p. 6 : = i ; r3 : = lstackm4c r5) ; ro := lstackm81r5 1 j 

R5 i= R5 - 8; 



RELEASE; ZRELEASE; 


END; 






END ELSE 






BEGIN 






R.3 : = 


R7 S 


»HLL 8 SHRL 24; 


IF R3 


= 1 


THEN 


BEGIN 


IF 


RO < THEN 



R6 



R6 AND MASK; RO s= TREECR6); 



BEGIN COMMENT ARRAY ON LEFT; 

Rl : = LSTACKM8(R5); IF RL > THEN 

BEGIN COMMENT LOGICAL VALUE HAS BEEN DUMPED; 

R5 := R5-4; R7 := #81000000; LOADREG; R5 := R3+4; 

SET (ARGFLAG); 
END; 

RO := LSTACKM8CR5) AND MASKS OR LSTACKM4IR5) OR STCC; 
EMIT; R3 := LSTACKM4CR5); R6 := i; RELEASE; RS := R5-4; 
IF ARGFLAG THEN ADJSTACKS; 
IF -.CEQ2 THEN 

begin ro := lstackm4i r5 ) ; zrelease; r5 i= r5-4; 
end; 

END ELSE 

BEGIN COMMENT ARRAY OR PROCEDURE ON RIGHT; 

R.3 := LSTA0KM4IR5) SHRL 8 AND MASKS; 

RO s= LSTACKM4CR5) OR R3 OR ICC; EMIT; 

RO := LSTACKM8IR5) OR R3 OR STCC; EMIT; 
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21 


0222 


07 


0A3C 


21 


0236 


07 


0A3C 


21 


024A 


C7 


0A3C 


21 


024 A 


07 


0A3C 


21 


024 A 


07 


0A3C 


21 


2 54 


07 


0A.3C 


21 


0254 


07 


0A3C 


21 


C2 60 


07 


0A3C 


21 


027C 


07 


CA3C 


21 


0284 


07 


0A3C 


21 


028 4 


07 


0A3C 


21 


028 4 


G7 


0A3C 


21 


02 AO 


07 


0A3C 


21 


0280 


07 


0A3C 


21 


02 D 8 


07 


0A3C 


21 


02D8 


07 


0A3C 


21 


02F4 


07 


0A3C 


21 


0304 


07 


0A3C 


21 


C323 


07 


0A3C 


21 


3 28 


07 


0A3C 


21 


0334 


07 


0A3C 


21 


0348 


07 


0A3C 


21 


0348 


07 


0A3C 


21 


034C 


07 


0A3C 


21 


C360 


07 


0A3C 


21 


036 E 


07 


0A3C 


21 


0376 


07 


0A3C 


21 


03 8A 


07 


0A3C 


21 


039 A 


07 


0A3C 


21 


C39A 


07 


0A3C 


21 


38 2 


07 


0A3C 


21 


03C6 


07 


0A3C 


21 


3D6 


07 


0A3C 


21 


3C6 


07 


0A3C 


21 


03D6 


07 


0A3C 


21 


03 D6 


07 


0A3C 


21 


03 C A 


07 


0A3C 


21 


03 DC 


07 


0A3C 


21 


3 DC 


07 


0A3C 


21 


03 DC 


07 


0A3C 


23 


004 


07 


0A4C 


23 


oooc 


07 


0A4C 


23 


0012 


7 


0A4C 


23 


on 12 


07 


0A4C 


2 3 


0C1C 


07 


0A4C 


23 


00 ic 


07 


0A4C 


2 3 


0030 


07 


0A4C 


23 


004 2 


07 


0A4C 


23 


005A 


07 


0A4C 


23 


00 6 A 


07 


0A4C 


23 


006E 


07 


0A4C 


23 


0C6E 


07 


0A4C 


23 


CC7C 


07 


0A4C 


23 


00 88 


07 


0A4C 


23 


0C88 


07 


0A4C 


23 


00 A 


07 


0A4C 


23 


C0B2 


07 


0A4C 


23 


COCA 


07 


0A4C 



3 393 


3394 


330 5 


3 30 6 


3 3 07 


3 30 8 


3399 


34 00 


3401 


3402 


3403 


3404 


340 5 


3406 


340 7 


340 8 


3400 


3410 


3411 


3412 


3413 


3414 


3415 


3416 


3417 


3418 


3419 


3420 


3 421 


3422 


3423 


3424 


342 5 


342 6 


3427 


342 8 


3429 


343 


343 1 


343 2 


3 433 


3434 


343 5 


343 6 


343 7 


343 8 


343 


3440 


344 1 


3442 


3443 


3444 


3445 


3446 


344 7 


3448 


3449 


3450 



R3 := LSTACKM41R5); RELEASE; R3 := LSTACKH8 CR5 ) % 
R6 := lj RELEASE; P. 5 := R5 - 8; 
END; 
END ELSE 
BEGIN IF RO < THEN 

BEGIN COMMENT ON LEFT; 

P.3 := LOGPOINTER; RO := 0; ICLRO ,LOGST ACMR3+1 H J 
LOGBRANCH; L INKBRANCHES I R3 := LOGPOINTER; 
IC(R3,LGGSTACK1R3) ) ; R3 :* R3 AND MASK9; 
CASE R3 OF 
BEGIN 

BEGIN RO := LSTACKM4(R5) OR MVII; EMIT; 

R3 := INSCOUNTER; FIXUP; RO := LSTACKM4CR5) 
OR MVII OR TRUEE; EMIT; R3 := INSCOUNTER; FIXUP; 
E NO ; 

BEGIN RO : = LSTACKM4IR5) OR MVII OR TRUEE; EMIT; 
R3 : = INSCOUNTER; FIXUP; RO := LSTACKM4CR5) 
OR MVII; EMIT; R3 :~ INSCOUNTER; FIXUP; 
END; 
END; 

R3 := LSTACKM4CR5); RELEASE; R5 := R5 - 4; 
END ELSE 
BEGIN COMMENT ON RIGHT; 

IF R3 -.= 2 THEN EVALUATELOG; 

RO := LSTACKM8IR5) ; R3 := RO AND #FO00 SHRL 12; 

IF R3 >= CLN THEN 

BEGIN R5 := R5 - 4; R7 := #81000000; LOADREGj 

R5 := R5 + 4; RO := LSTACKN8(R5) XOR SIGN SHRL 8; 
END; 

RO := RO OR LSTACKM4CR5) XOR SIGN OR STCC; EMIT; 
R3 := LSTACKM4(R5}; RELEASE; R3 := LSTACKM8 CR5) I 
RELEASE; R5 J= R5 - 8; 
END; 
END; 

END; 

Rl := SAVERl; 
END; 

SEGMENT PROCEDURE SCOL EQARG2 (Rl I ; 

BEGIN LOGICAL SAVERl , SAVEADO, SRO , TREEN; SAVERl := Rl; 
R6 := R6 AND MASK2; TREEN s= R6J 
IF R7 >= THEN 
BEGIN COMMENT TERMINALNODE; 

RO := TREECR6); IF RO < THEN 
BEGIN COMMENT ON LEFT; 

RO s= RO AMD TYPEMASK; GETA00RESS5 SAVEAOD := R3I 

Rl := STACKP4iR8); IF R7 < AND Rl -*= LSTACKM44R5) THEN 

BEGIN SRO:=RO; R7 s= #87000000; SETCR3FLAG); LOADREGj 

RO := LSTACKMMR5) XOR SIGN SHRL 8; LSTACKM4(R5) := RO; 
RO t- SRO; 
END; 

RO := RO OR R3 OR #02000000; R3 := LSTACKM4IR5) SHLL 165 

EMIT; 
END ELSE 
BEGIN RO := RO AND TYPEMASK; GETADDRESS; R3 t- R3 SHLL 161 

Rl := STACKP4LR8); IF R7 < AMD Rl -.= LSTACKM41R5) THEN 

BEGIN SRO := RO; R7 := #87000000; SETIR3FLAGJ; LOADREG; 
RO := LSTACKM4LR5} XOR SIGN SHRL 8; LSTACKM4LR5) := RO; 



• 



# 
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23 


00D6 


07 


0A4C 


23 


CODE 


07 


0A4C 


23 


CODE 


07 


0A4C 


23 


OOF 2 


'07 


0A4C 


23 


C F 2 


07 


oam: 


23 


C0F6 


07 


0A4C 


23 


oioe 


07 


0A4C 


2 3 


1 1 6 


07 


0A4C 


2 3 


0122 


07 


0A4C 


23 


014 2 


07 


0A4C 


23 


014 2 


07 


0A4C 


23 


014 E 


07 


0A4C 


23 


0.14E 


C7 


0A4C 


23 


014E 


07 


0A4C 


23 


01 4E 


07 


0A4C 


23 


0152 


07 


OA 4C 


23 


1. 5 A 


07 


0A4C 


2 3 


015A 


07 


0A4C 


23 


0166 


07 


0A4C 


23 


017 A 


07 


0A5O 


23 


0192 


07 


0A30 


23 


1 A 2 


07 


OA50 


23 


G1A2 


07 


OA50 


23 


01A2 


07 


0A50 


22 


01AC 


07 


0A50 


23 


01AC 


07 


0A5O 


23 


0,18 4 


07 


OA50 


23 


01CO 


07 


0A50 


23 


01 04 


7 


0A50 


23 


0104 


07 


0A50 


23 


oica 


07 


0A50 


23 


1 E 


07 


OA50 


23 


01 EC 


07 


0A50 


23 


G2 00 


07 


0A50 


23 


200 


07 


0A50 


23 


0204 


07 


0A50 


23 


0210 


07 


0A50 


23 


0220 


C7 


OA50 


23 


02 20 


07 


OA50 


23 


0238 


07 


0A50 


23 


0240 


07 


0A50 


23 


024 E 


07 


GA50 


23 


02 6 


07 


0A50 


23 


02 6 4 


07 


0A50 


23 


0264 


C7 


OA50 


23 


02 64 


C7 


0A50 


23 


02 6 C 


07 


0A50 


23 


02 7A 


07 


0A50 


2 3 


284 


07 


0A50 


23 


0284 


07 


0A30 


23 


02 8A 


07 


OA50 


23 


0298 


07 


OA50 


23 


02B2 


07 


OA50 


2 3 


028 8 


C7 


OA50 


23 


02C4 


07 


0A50 


23 


02 DC 


07 


0A50 


23 


2 PC 


07 


0A50 


23 


02 EE 


07 


0A50 



343 1 
34 52 
3453 
3454 
345 5 
3456 
345 7 
345 8 

345 9 

346 
3451 
3462 
3463 
3464 
3465 
346 6 
3467 
346 3 
3469 
3470 
3471 
34 72 
3473 
3474 
3475 
34 76 
34 7 7 
3478 
3479 
348 
3481 
3482 
3483 
3434 

348 5 
3436 
3437 
3438 
343 9 
3490 
3491 
3492 
3493 

349 4 
3495 
3496 
34-^7 

349 8 
3499 
3 50 
3501 
3 502 

350 3 
3 504 
3505 
3506 
3 507 
3 50 3 



RO := SRO; 
END; 

RO := RO OR LSTACKM4CR5) OR #02 000000 J EMIT; 
END; 

SRO := RO; 

R6 := l; R3 := LSTACKMMR5) ; RELEASE; R5 := R5 - 4; 
TEST(CEQ2); IE ■= THEN 
BEGIN R3 := SAVEADD; IF R3 = #3000 THEN 

BEGIN GEMREG; RO := RO OR LAA OR #3000; EMIT; 
END ELSE 

BEGIN LSTACKCR5) *•= R3 ; R5 := R5 + 4; 
END; 
END; 
END ELSE 

BEGIN COMMENT NON-TERMINALNOOE ; 
TEST(RECORDFLAG); IF -»=THEN 
BEGIN 

RO := LSTACKM8(R5); IF RO -.= STACKP4(R8) THEN 
BEGIN LOGICAL SAVE; R5 := R5 - 8; SAVE s= RO; GENREGj 
RO := RO OR #58000000 OR SAVE; EMIT; R5 := R5 + 4; 
RO := LSTACKM8CR5) SHLL 1 SHRL 9; LSTACKM8CR5) := RO; 
END; 

end; 

ro := treecr6); if ro < then 

begin comment on left; 

r3 := lstackm4(r5); saveadd := r3; 

ro '■= ro and typemask or lstackm4<r5) or #02000000; 

r3 := lstackm8(r5» shll 16; emit; 

END ELSE 

BEGIN COMMENT ON RIGHT; 

R3 : = LSTACKM8(R5); SAVEADD := R3; 

RO := RO AND TYPEMASK OR LSTACK.M8 C R5) OR #02000000 % 

R3 5= LSTACKM4(R5) SHLL 16; EMIT; 

END; 

SRO := RO; 

R6 := l; TESTJCEQ2); IF -.= THEN 

BEGIN R3 := LSTACKM4CR5 ) ; RELEASE; 

END; 

R5 := R5 - 4; R3 J= LSTACKM4 ( R5 ) } RELEASE; R5 t= R5 - 4; 

TEST(CEQ2)J IF = THEN 

BEGIN R3 := SAVEADD; LSTACMR5I := R3; RIO 2= R3 SHRL 12; 
IF R3 > AND RIO < CLN THEN RSTACKM4(R2) : = R5; 
R5 := R5 + 4; 

END; 
END; 

RO := SROJ R3 := TREEN; 

R3 := TREE(R3) AND MASK; Rl := RO AND TYPEMASK? 
R3 := TRE6CR3) AND TYPEMASK - Rl; 
COMMENT R3 HAS ACTUAL NUMBER OF BLANKS NEEDED; 
IF R3 > THEN 
BEGIN Rl := Rl SHRL 16 + 1; RO := RO AND MASK + Rl % 

RO := RO OR #92400000; EMIT; Rl :■= R3 SHRL 16 - 1; 

IF Rl = THEN NULL ELSE 

IF Rl = 1 THEN 

BEGIN RO := RO AND MASK + 1 OR #92400000; EMIT; 

END ELSE 

BEGIN RO := RO AND MASK; R3 : = RO SHLL 16; RO := RO + 1; 
Rl := Rl - 1 SHLL 16; 



PL360 CCMPILATTON 



23 


02F6 


07 


0A50 


23 


03 C 8 


07 


0A50 


23 


03C3 


07 


0A50 


23 


03 3 


07 


0A50 


23 


^ J v,* u 


07 


OA30 



21 


03 DC 


37 


0A50 


21 


03 DC 


07 


0A50 


21 


03 DC 


07 


0A50 


21 


03 EO 


07 


0A54 


21 


03F4 


07 


0A54 


21 


Q.3FE 


07 


0A54 


21 


04(30 


07 


0A54 


21 


4 1C 


07 


0A54 


2 1 


4.10 


07 


0A54 


21 


04 1C 


07 


0A54 


2 1 


4 26 


07 


0A54 


21 


426 


07 


0A54 


21 


0446 


07 


UA54 


21 


04 5A 


07 


0A54 


21 


04 5 E 


07 


0A54 


21 


0460 


07 


0A54 


21 


04 60 


07 


0A54 


21 


0460 


07 


0A54 


24 


CCOO 


07 


0A54 


24 


000 


07 


0A68 


24 


000 c 


07 


0A63 


24 


001A 


07 


0A63 


24 


00 24 


07 


0A6.8 


24 


003 8 


07 


0A68 


24 


004C 


07 


0A63 


24 


005A 


07 


0A68 


24 


CC70 


07 


0A63 


24 


0078 


07 


0A6 3 


24 


00 80 


07 


0A68 


24 


OC80 


07 


0A68 


2 4 


00 8 3 


07 


0A68 


24 


0088 


07 


0A68 


24 


00*6 


07 


0A6 8 


24 


OOAA 


07 


0A68 


24 


00 8 E 


07 


0A68 


24 


OCBE 


07 


0A68 


24 


00 BE 


07 


0A6 8 


24 


O0C6 


07 


0A68 


24 


O0D4 


07 


0A68 


24 


COEA 


07 


0A68 


24 


0106 


07 


0A68 


24 


0112 


07 


0A6 8 


24 


012C 


07 


0A68 


24 


013 8 


07 


0A68 


24 


0140 


07 


0A68 


24 


0150 


07 


0A6 8 


24 


0158 


07 


0A68 


24 


015C 


07 


0A63 


24 


015C 


07 


0A68 


24 


0166 


07 


0A68 



3509 


3510 


3511 


3 512 


3513 


SEGMENT 


3 514 


8515 


3 516 


3517 


3518 


351° 


3 520 


3 521 


8 5 2 2 


3523 


3 524 


352 5 


3526 


3 52 7 


3528 


352 9 


3 530 


3531 


3532 


3 533 


3534 


353 5 


3 536 


3537 


3 538 


3539 


3 540 


3541 


3 542 


3543 


3 544 


3 545 


3 546 


3547 


3 548 


3 549 


3 550 


3551 


3552 


355 3 


3554 


3 55 5 


3556 


3557 


3 55 8 


355 9 


3580 


35ol 
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RO := RO 

end; 
EftD; 

Rl := SAVER 1; 
END; 
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OR HI OR #02 000000; EH IT; 



LENGTH = 0340 8ASE REG = 15 



356 2 
3563 



PR OC E DU R E RCO L EQ ARG2 CRD; 

BEGIN LOGICAL SAVERl; SAVER1 := Rl ; 

R3 := TREE(R6); IF R3 < THEN NUMERICALASS IGN ELSE 
BEGIN IF R7 >= THEN 

BEGIN P3 := R7 SHRL 24; IF R3 = RCCLIO THEN 
BEGIN RECORDALLOCATE; R7 := #89000000; 
END; 
END; 

NUMERICALASS IGN; 
END; 

RESETRECORD; R5 := R5 + 4; RESETRECORD; R5 s= R5 - 4; 
TESTCCEQ2); IF -.= THEN R7 : = SIGN ELSE R7 s= #89000000; 
Rl := SAVERl; 
END; 

SEGMENT PROCEDURE RECDES I GASS IGNCRl } ; 
BEGIN 

LOGICAL SAVEROf SAVER 1, SAVER3, SAVER6 » SAVERA; 
SAVERl s= Rl; SAVER 6 := R6 ; SAVERA : = RIO; 
IF R7 < AND R7 -»= #86000000 THEN 
BEGIN R3 := LSTACKN8CR5 ) ; IF R3 >= THEN 

BEGIN SAVER3 := R3; R5 := R5 - 8; GENREG; 
RO s= RO OR SAVER3 OR #58000000; EMIT; 
R3 := R7 SHRL 24 AND #F; RO 3= LSTACMR5J; 
IF R3 = 1 OR R3 > 5 OR RO > THEN 
BEGIN R3 := R STACM R2-8) ; RO := RSTACKJ R2-4) J 

RSTACKCR2-8) s= RO ; RSTACKCR2-4) := R3; 
END; 
END ELSE R5 := R5 - 4; 
END ELSE 

BEGIN R3 := LSTACKM4C R5) ; IF R3 > = THEN 

BEGIN SAVER3 := R3; R5 := R5 - 4; GENREG; 

RO := RO OR SAVER3 OR #58000000; EMIT; 
END; 
END; 

R3 := LSTACKCR5); L STACKS R5+4J := R3| 
RIO := R7; R7 := ID SHLL 24 OP STACKP4IR8); 

GETADORESS; R7 := RIO; R3 s» R3 AND #FFF; SAVER3 5= R3; 

GENREG; R3 := LSTACKM4CR5) SHLL 1 SHRL 9; LSTACKM4CR5) := R3; 
R3 := LSTACKM8CR5) XOR SIGN SHRL 8; 

RO := RO OR #41000000 OR SAVER3 OR R3; EMIT; SET? F IELDOP) J 
RIO := STACKP4(R8); R3 := 0; ICCR3 , NAMETA8LELR10+9 )? J 
IF R3 = 7 THEN 

BEGIN Rl 5= SAVEL AND MASK; Rl := TREECRU AND MASK; 
RO := NAMETABLE(R10+4) SHRL 16; 
STC<R0,TREE(R1+1) ); 
END; 
R7 := R7 AND fFFFFFFFE; IF R7 >0 THEN 



BEGIN RIO 



R6; R6 := R3 SHLL 24 OR SIGN OR RIO; 
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24 


0174 


C7 


OA 6 8 


24 


017 4 


07 


0A6 8 


24 


0186 


07 


0A6 8 


24 


0186 


07 


0A6 8 


24 


18 A 


07 


0A6 8 


24 


013A 


07 


0A6 8 


24 


G18A 


07 


0A63 


24 


0183 


07 


0A68 


24 


01E4 


07 


0A6 8 


24 


0200 


07 


0A6 3 


24 


0214 


07 


0A68 


24 


0214 


07 


0A6 8 


24 


23C 


07 


0A68 


24 


0252 


07 


0A6 8 


24 


2 5A 


07 


0A68 


24 


0262 


07 


0A63 


24 


02 6 8 


07 


0A6 8 



3364 


END 


3565 


BEG 


3566 


END 


356 7 


SET 


3 56 8 


CAS 


3 56 9 


BEG 


3570 




3571 




8572 




3 573 




3 5 74 




357 5 


END 


3 57 6 


R3 


3 57 7 


R3 


3578 


-RES 


3 5 79 


R6 


3580 


END; 



ELSE 
IN R6 := R.6 OR R7; IF R7 -.= #86000000 THEN R5 := R5 + 4; 
> 

(RECORDFLAG) ; 
E R3 OF 
IN 

NUiMERICALASSIGN; NUMER ICALASS IGN; NUMER ICALASS IGN J 
NUMERIC ALASSIGN; NUMER ICALASS IGN; LC0LEQARG2J 
SCOL EQARG2 ; NUM ER IC ALA SS IGN ; 
BEGIN RES ET { FI EL OOP ) ; RCOL EQARG2 ; 
END; 
5 

:= SAVER3J IF R3 = THEN CHECKMARK; 
:= 0; R7 := #89000000; 
ET ( R ECCIR DP LAG); R 1 : = S A V ER 1 ; 
:= SAVER6 OR R7; 



# 



SEGMENT 24 NAME = SEG#24 



LENGTH = 02B8 BASE REG = 15 



21 


0460 


07 


0A68 


21 


0460 


07 


0A68 


21 


0460 


07 


0A68 


21 


0463 


07 


0A74 


21 


04 7 8 


07 


0A74 


21 


047C 


07 


0A74 


21 


0482 


07 


0A74 


21 


C4 8A 


07 


0A74 


21 


0498 


07 


OA 7 4 


21 


049C 


07 


0A74 


21 


04B4 


07 


0A74 


21 


046C 


07 


0A74 


21 


OACC 


07 


0A74 


21 


040 Q 


07 


OA 74 


21 


04D0 


07 


0A74 


21 


04 EC 


07 


0A74 


21 


04FC 


07 


0A74 


21 


50 E 


07 


0A74 


21 


0526 


07 


0A74 


21 


5 36 


07 


0A74 


21 


53 A 


07 


0A74 


21 


5 42 


7 


0A74 


21 


0552 


07 


0A74 


21 


0556 


07 


0A74 


21 


0556 


37 


0A74 


21 


05 66 


07 


0A74 


21 


056E 


07 


0A74 


21 


0584 


07 


0A74 


21 


59 A 


07 


0A74 


21 


594 


07 


0A74 


21 


059 A 


07 


0A74 


21 


05/42 


07 


0A74 


21 


5A4 


07 


0A74 


21 


5A4 


07 


0A74 


2.1 


5A4 


07 


0A74 


21 


5A4 


07 


0A74 


21 


5A4 


07 


0A7C 


21 


05A8 


07 


CATC 



3581 
3532 
3 583 
3584 

353 5 
3586 
3 5 87 

3 58 8 
353 9 
3590 
359 1 
3592 

359 3 
3 56 4 
3 59 5 
3596 
3597 
3 59 8 
3599 
3600 
3 60.1 
3602 
3603 
3604 
3605 

360 6 
3607 
36 3 8 
3609 
3610 
3611 
8612 
3613 
3614 
3615 
3616 
3617 
3618 



PROCEDURE C EQUAL (R1)J 

BEGIN LOGICAL SAVER1 ,SAV£R3, RELATE; SAVER1 s= Rlj SAVER3 := R3; 

RELATE := RO; LOADREG; 
3EGIN RO := LSTACKM4(R5» ; 

IF RO < THEN 

BEGIN RO := RO AND MASKS; R3 := LSTACKM8 CR5 ) ; 

IF R3 < THEN R3 := ft 3 AND MASK 5 OR SIGN; 

RO ?= RO OR #09000000; 

R6 s= SAVER3 - 2; ASSEMBLE; RO := RELATE; 

IF RO = 7 THEN 

BEGIN Rl := 0; R3 := LOGPOINTER + 4; LOGPOINTER := R3; 
L0GSTACMR3) : = Rl; 

END; 

RO := 7; LOGBRANCH; I NITI AL I ZEL INK; 

RO := LSTACKM4CR5) SHLL 4 AND MASK5; R3 : = LSTACKM8CR5 1 J 

IF R3 < THEN R3 := R3 SHLL 4 AND MASK5 OR SIGN ELSE 

IF R6 = 2 THEN R.3 3= R3 + 4 ELSE R3 := R3 + 8; 

RO := RO OR #09000000; ASSEMBLE; 

RO : = RELATE; 

IF RO = 8 THEN 

BEGIN R3 := LOGPOINTER + 4; Rl := 0; LOGPOINTER i= R3; 
L0GSTACK(R3 ) := Rl ; 

END; 

RO := RO OR #100 SHLL 16; R3 := LOGPOINTER + 4; 

LOGPOINTER i= R3; LQGSTACKCR3) : = RO ; 

RIO := R6; R6 s- 4; R3 : = LSTACKM4< R5) I RELEASE; 

R3 := LSTACKM8(R5); RELEASE; R6 s= RIO; R5:=R5-8; 
END ; 
END; 

R7 : = #86000000; Rl := S.AVER1; 
END; 

PROCEDURE ARG2RELATI0NCR1) ; 

BEGIN COMMENT RO HAS LEFT TO RIGHT COMPARE BRANCH; 
LOGICAL SAVEP.li RELATE; 
SAVER 1 := Rl; 
RELATE := RO; CONVERT; R6 := R6 SHLL 1 SHRL 25; 
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21 


5 BE 


07 


0A7C 


21 


5C4 


07 


0A7C 


21 


5C4 


07 


0A7C 


21 


05EA 


07 


0A7C 


21 


5FE 


07 


0A7C 


21 


612 


07 


0A7C 


21 


G 61 2 


07 


0A7C 


21 


0616 


07 


0A7C 


21 


62 A 


07 


0A7C 


21 


064A 


07 


0A7C 


21 


064E 


07 


0A7C 


21 


065 E 


07 


CA7C 


21 


0672 


07 


0A7C 


21 


67 A 


7 


0A7C 


21 


06 8 E 


07 


0A7C 


21 


06 46 


07 


0A7C 


21 


0696 


07 


0A7C 


21 


06AA 


07 


0A7C 


21 


C686 


07 


0A7C 


21 


06 B A 


07 


0A7C 


21 


06C6 


07 


0A7C 


21 


C6CE 


07 


0A7C 


21 


0602 


07 


0A7C 


21 


C6DA 


07 


0A7C 


21 


C60C 


07 


0A7C 


21 


06 DC 


07 


0A7C 


21 


6 DC 


07 


0A7C 


21 


06E4 


07 


0A84 


21 


06EA 


07 


0A84 


21 


06F4 


07 


0A34 


21 


06FC 


07 


0A84 


21 


C7CA 


07 


0A84 


21 


712 


07 


DA 84 


21 


0126 


07 


0A84 


21 


736 


07 


0A84 


21 


7 3C 


07 


0A84 


21 


74 C 


07 


0A84 


21 


07 50 


07 


OA 84 


21 


7 50 


07 


0A84 


21 


7 70 


07 


0A88 


21 


C790 


07 


0A88 


21 


079C 


07 


CAS 8 


21 


C7B0 


07 


0A8 8 


21 


7BC 


07 


0A88 


21 


7C4 


07 


0A88 


21 


C7C6 


07 


0A88 


21 


706 


07 


0A88 


21 


07C6 


07 


0A8 8 


25 


OCOO 


07 


0A94 


25 


OOCO 


07 


0A98 


25 


occa 


07 


0A98 


2 5 


0C18 


07 


0A93 


25 


026 


07 


0A98 


25 


0C26 


07 


0A98 


25 


002A 


07 


0A98 


25 


0042 


07 


0A98 


25 


€056 


07 


0A98 


25 


0060 


07 


0A98 



3619 IF R7 > THEN 

3620 BEGIN COMMENT TERM I NALNODE; 

3621 R7 := R7 SHLL 1 SHRL 1; GETAOORESS; IF R7 < THEN LOADREGJ 

3622 R5 ■:= R5 - 4; RESETRECORD; R5 := R5 + 4; 

3623 RO := LSTACKM4<R5 ) OR #09000000; ASSEMBLE; 

3624 END ELSE 

3625 BEGIN COMMENT NONTERMINAL; 

3626 LOADREG; RO := LSTACKM4CR5) OR #09000000; 

3627 R5 :■= R5 - 4 J RESETRECORD; R5 := R5 - 4; RESETRECORD; 
362 8 K5 := R5 + 8; 

362 R3 := LSTACKM8<R5); ASSEMBLE; 

3630 R3 : = L$TACKM8< R5 ) ; R5 := R5 - 4; RELEASE; 

3631 R3 := LSTACMR5); LSTACKM4CR5) := R3; 

3632 RO := RELATE; IF RO --= 8 THEN IF RO -n= 7 THEN 

3633 BEGIN RO := RO XOR #7; RELATE := RO; END; 

3634 END; 

3635 R3 := LSTACKM4I R5 J ; R5 s- R5 - 4; RELEASE; 

3636 R3 := LOGPOINTER + 12; LOGPOINTER := R3; 

3637 Rl := 0; 

3638 RO :- RELATE OR #100 SHLL 16; 

3639 LCGSTACK{R3) : = RO; L0GSTACK(R3-4) := Rl; 

3640 LCGSTACMR3-8) :=R1; 

3641 R7 5= #86000000; Rl := SAVERl; 

3642 END; 
3643 

3644 PROCEDURE LEQUAUR1)S 

3545 BEGIN LOGICAL S AVER1 , SAVER6; SAVER1 := Rl; SAVER6 := R6; 

364 6 IF R7 < THEM 

3647 BEGIN R3 := R7 SHLL 8 SHRL 24; 

3643 IF R3 = 1 THEN 

3649 BEGIN RO := LSTACKM4 (R5 ) ; R3 := RO AND #F000 SHLL 8| RiO := R3J 

3650 RO := RO OR R3; R3 := R8 OR SIGN; 

3651 LSTACKM4CR5) := R3; RO := RO OR #43000000; EMIT; 

3652 Rl := CPTBASE; R3 : = C0NSPTTABCR1 ) AND MASK OR #E000; 

3653 RO := RIO OR #04000000; 

3654 R6 := 1; ASSEMBLE ; 
3 65 5 END ELSE FVALUATELOG; 

3656 END ELSE 

3657 BEGIN LOGICAL SAVEADD; GETADDRESS; SAVEAOD := R3; 

3658 GENREG; RO := RO OR SAVEADD OR ICC; EMIT; 

3659 RO := LSTACKM41R5) XOR SIGN OR #04000000; 

3660 Rl:=CPTBASE; R3 :=CONSPTTAB( Rl) AND MASK OR #E000; R6:=l ;ASSEMBLE; 

3661 END; 

3662 Rl :-= SAVERl; R6 := SAVER6; 

3663 END; 
3664 

3665 SEGMENT PROCEDURE ARG2EQU AL ITI ES (Rl ) ; 

3666 BEGIN LOGICAL SAV ER1,R ELATE, SAVEADD; 

3667 LOGICAL SR6; 

3668 SAVERl s= Rl; SR6 := R6; 

3669 IF RO -.= 8 AND RO ~*= 7 THEN 

3670 BEGIN R3 : = TREE<R6); IF R3 <= THEN RO := RO XOR #7S 
36 71 END; 

36 72 RELATE := RO; 

3673 R3 -:= R7 SHLL 1 SHRL 25; IF R7>0 THEN IF R3-=RCCLfD THEN 

3674 BEGIN GETTYPE; IF R3 < 6 THEN 

3675 BEGIN CONVERT; 

3676 IF R7 < THEN R3 := R7 SHLL 1 SHRL 25 ELSE GETTYPE; 
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2 5 


CC80 


07 


0A9 8 


25 


00 SO 


07 


0A98 


25 


CC88 


07 


0A9 8 


2 5 


0C8C 


07 


0A98 


25 


AC 


07 


0A98 


25 


€ C B 3 


07 


0A98 


25 


OCCO 


07 


0A98 


25 


OCCG 


07 


0A98 


25 


OCCO 


07 


0A98 


2 5 


0CC8 


07 


0A98 


2 5 


DC 


07 


0A98 


25 


OOF 4 


07 


0A98 


25 


01C8 


07 


0A9 8 


2 5 


one 


07 


0A98 


25 


0128 


07 


0A98 


25 


013 8 


07 


0A98 


25 


0140 


7 


0A98 


25 


014 4 


07 


0A93 


2 5 


0144 


07 


0A98 


2S 


014 8 


07 


0A9 8 


25 


014A 


07 


0A98 


2 5 


015G 


07 


0A98 


25 


015C 


07 


0A98 


25 


0170 


07 


0A9C 


25 


0184 


07 


0A9C 


25 


1 8C 


07 


0A9C 


25 


019 8 


07 


0A9C 


2 5 


010 8 


07 


0A9C 


25 


01 AC 


07 


0A9C 


25 


01 BO 


07 


0A9C 


2 5 


0113 


07 


0A9C 


25 


o i e s 


07 


0A9C 


25 


01CC 


07 


0A9C 


25 


OlCA 


07 


0A9C 


25 


01EA 


07 


0A9C 


2 5 


Q1F6 


07 


0A9C 


25 


01FE 


07 


0A9C 


2 5 


02G2 


07 


0A9C 


25 


202 


07 


0A9C 


25 


2 1 2 


07 


0A9C 


25 


0222 


07 


0A9C 


25 


023A 


07 


0A9C 


25 


023 E 


07 


0A9C 


25 


024 A 


07 


0A9C 


25 


2 5A 


07 


OA 9C 


25 


0262 


7 


0A9C 


25 


C266 


07 


0A9C 


25 


0266 


07 


0A9C 


25 


0276 


07 


0A9C 


25 


0276 


07 


0A9C 


25 


2 84 


07 


OAAO 


25 


020 6 


07 


OAAO 


25 


02A6 


07 


OAAO 


25 


2A6 


07 


OAAO 


25 


G2A6 


07 


OAAO 


25 


28 A 


07 


OAAO 


2 5 


02EA 


07 


OAAO 


25 


02CE 


07 


OAAO 



3677 
36 7 8 
36 79 
3680 
36 81 
3632 
3 6 33 
3634 
3685 
3686 
363 7 

368 8 
363 9 
3690 
3691 
869 2 
3693 
38 94 
3695 
3 6 96 
8697 

369 8 
3699 
3 700 
3 701 
3702 
3 70 3 

370 4 
3705 
370 6 
3707 
370 8 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
8717 
3718 
3719 
3 720 
372 1 
372 2 
3723 
372 4 
372 5 
3 726 
372 7 
3728 

372 9 
3730 
3731 

373 2 
3733 
3 734 



end; 

END ELSE 



.3 := 9; 



RO : = 
IF R3 
IF R3 
BEGIN 
CASE 
BEGIN 

BEGIN 



RELATE; 

< 4 THEM ARG2R ELATION ELSE 

THEN CEQUAL ELSE 

:- R3 - 5; 

OF 



< 6 

R3 
R3 



COMMENT 



= LOGICAL ARG25 
LEQUAL; RO := LSTACKM4CR5) OR 
R3 := LSTACKM8LR5) ; R6 := 1; 
R3 := LSTACKM4CR5); RELEASE; 
RELEASE; R5 := R5 - 3; R7 := 
R3 : = LOGPOINTER + 12; LOGPO INTER 
Rl := 0; RO := RELATE OR #100 SHLL 
LDGSTACK(R3) :=RQ; LOGS TACK (R3-4) 
L0GSTACK(R3-8) := Rl; 
END; 

BEGIN COMMENT = STRING ARG2; 
R6 := R7 ; 
IF R7 < THEN 
BEGIN 
BEGIN 
RO 
R5 
RO 
END; 
R3 J = 
R3 : = 
END ELSE 
BEGIN Rl := LSTACKM4(R5) ; 

SAVEADO := Rl; GETADDRESS; Rl : 
IF R7 < AMD Rl -.= LSTACKH4IR5) 
SETIR3FLAG); LOADREG; 
LSTACKM4(R5) XOR SIGN SHRL 
:= SAVEADO; 
R3 := R3 SHLL 16; 



#09000000; 
ASSEMBLE; R6 : = li 
R3 := LSTACKM8<R5); 
#86000000; 

= R3; 

16; 



RO := LSTACKM8CR5J ; IF RO i= STACKP4CR8) 
LOGICAL SAVE; R5 : = R5 - 8; SAVE := RO; 

:= RO OR #58000000 OR SAVE; EMIT; 

:= R5+4; RO := LSTACKM8{ R 5) ; 

: = RO XOR SIGN SHRL 8; LSTACKH8CR5) := RO 


THEN 
GENREG; 

* 


LSTACKM4{R5); 
R3 SHLL 16; 


RELEASE; R5 : 


= R5-4J 







BEGIN 

Rl ■: = 

RO 

end; 

END; 
R6 



= SAVEADO; 
THEN 

8; LSTACKH4IR5) := Rl, 



RO : = 
R3 
R7 : = 
R3 : = 
Rl : = 



typemask or 

release; 

:= R3; 
16; 
:= Rl; 



SR6; RO := TREE{R6) AND 
RO OR #0 5000000; EMIT; 
:= LSTASKM4IR5); R6 : = 1; 
#86 000000; 

LOGPOINTER + 12; LOGPOINTER 
0; RO := RELATE OR #100 SHLL 
L0GSTACMR3) := RO; LOGSTACK CR3-4) 
LOGSTACK(R3-8) := Rl; 
END; 

BEGIN ARG2RELATI0N; 
END; 
BEGIN LOGICAL SAVER6; SAVER6 := R6; 

BEGIN R3 := R7 SHLL 1 SHRL 25; IF R3 = RCCLID 
BEGIN RECORDALLOCATE; R7 s= #89000000; 
END; 

END; 

RO := RELATE; R6 := SAVER6; ARG2RELATI0N; 

END; 
END; 
END; 



LSTACKM4(R5); 

R5 := R5 - 4; 



IF R7 >= 



THEN 
THEN 
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25 
25 



21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
2.1 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 

21 



02CE 
0202 



C7C6 
07C6 
C7C6 

07CA 

C7D2 

Q1DB 
7F8 
C7F0 
7F4 
07F4 
0800 
C800 
8 04 
806 
G8C6 
C306 
806 
C 8CA 
0810 
G820 
830 
033C 
C9 3C 
C94A 
3 52 
086A 
G87E 
0832 
C392 
039E 
089E 
8AA 
8 82 
C 8 6 A 
038A 
8BA 
08DE 
8EA 
08EA 
8EA 
3F2 
G8F4 
8F4 
8F4 
08F8 
09 1C 
09 3 2 
Q93E 
0946 
95E 
09 60 
C9 6C 
0960 



07 
07 



07 

07 
07 
7 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
(37 
07 
07 
07 
07 
07 
07 
07 
07 



OAAO 
OAAO 



OAAO 
OAAO 
OAAO 
0AA4 
0AA4 
0AA4 
0AA4 
0AA4 
CAA4 
0AA4 
0AA4 
0AA4 
0AA4 
0AA4 
0AA4 
0AA4 
0AA4 
OAAO 
0AA8 
0AA8 
0AA8 
0AA8 
OAAO 
0AA8 
0AA8 
0AA8 
0AA8 
0AA3 
0AA8 
0AA8 
0AA8 
0AA3 
0AA8 
0AA8 
0AA8 
0AA8 
OAAO 
0AA8 
0AA8 
OAAO 
0AA8 
0AA8 
CAA8 
0AA8 
OAAC 
OAAC 
OAAC 
OAAC 
OAAC 
OAAC 
OAAC 
OAAC 
OAAC 



3735 
3736 



Rl := SAVER 1 J 

END; 



SEGMENT 25 NAME ■= SEG#25 



LENGTH = 03 20 BASE REG = 15 



3 73 7 
37 3 8 

373 9 
3740 
3741 
3 74 2 
3743 
3744 
3 74 5 
3746 
3 747 

374 8 
3749 

375 
3751 
3752 
37 53 
3754 
37 5 5 
3 756 
3757 

375 8 
3759 

376 
376 1 
3762 
3 763 
3 764 
3765 

376 6 
3767 
3 76 8 
3760 
3770 
3771 

377 2 
3773 
37 74 
3775 
3776 
37 77 
3778 
3779 
3780 

378 1 
3782 
378 3 
3784 
378 5 
3786 
3787 
3 73 3 
378 9 



PROCEDURE IFSTANDEXP(Rl) ; 

BEGIN LOGICAL SAVER1; SAVER1 := Rl j 

R3 := LOGPOINTER; RO := LOGSTACM R3) ; 

IF RO -.= C THEN 

BEGIN R3 := INSCOUNTER; FIXUP; 

R3 s= LOGPOINTER; RO : = LOGSTACKC R3+4) I 
L0GSTACK{R3) := RO; 
END ELSE 

BEGIN R3 s- R3 - 4; LOGPOINTER := R3; 
END; 

Rl:= SAVERl; 
END; 

PROC EDURE AMD0RARG2 ( R 1 ) ; 

BEGIN COMMENT ANOFLAG IS ON IF AND, OFF IF OR; 
LOGICAL SAVERl; SAVERl := Rl; 
IF R7 >- THEN 
BEGIN LQGCOMPARE; TEST( ANOFLAG) ; 

IF = THEN RO i- #0207 ELSE RO s= #0108; 
I NO I GATE BRANCH; 
END ELSE 

BEGIN R3 := R7 SHLL 8 SHRL 24; 
IF R3 = 1 THEN 

BEGIN RO := LSTACKM4IRS) OR CLII OR #00010000; EMIT; 
R3 i- LSTACKM4CR5); RELEASE; R5 := R5 - 4; 
TEST(ANDFLAG); 

IF = THEN RO := #0207 ELSE RO := #0108; 
INDICATEBRANCHJ 
END ELSE 

BEGIN R3 := LOGPOINTER; IC i RIO ,L0GSTACK{R3) ) ; 
RIO := RIO AND #FF; TESTI ANOFLAG) ; 
IF = THEN RIO := RIO XOR #3; 
CASE RIO OF 
BEGIN 

MERGE24; MERGE34; 
END; 
END; 
E MD ; 

R7 := #86000000; Rl := SAVERl; 
END; 

PROCEDURE ARG2F0RLIST{R1) ; COMMENT FORCE REGISTER, EMIT LINK; 
BEGIN INTEGER SAVERl; SAVERl := Rl; 

LOAOREG; R3 := 1; CORRECTREG; R3 : = LSTACKM4CR5) ; R6 := lj 

RELEASE; R5 : = R5 - 4; R3 := R8 - SSIZE; 

RO i- STACKP4iR8) + 1 ; STACKP4(R3) := RO; 

RO := INSCOUNTER; STACKP81R3) := RO; 

RO := #45100000 OR STACKP8(R8) ; EMIT; Rl J= SAVERl; 

END; 

S E G M E NT P RO C EDUR E A R G2 1 < R 1 ) ; 
BEGIN LOGICAL SAVERl; 
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26 


00 GO 


07 


0AB9 


26 


OCCG 


07 


OABO 


26 


oooo 


07 


OAfU 


26 


000 


07 


0AB1 


26 


GCC8 


07 


0A8 8 


26 


OOOE 


07 


0AB3 


26 


00 20 


07 


0AB3 


26 


00 2 


07 


0AB3 


26 


0030 


07 


0AB3 


26 


C04C 


07 


0AB8 


26 


0C63 


07 


0AB3 


26 


CC6A 


07 


GAB 8 


2 6 


006 A 


07 


0AB8 


26 


C06A 


07 


0AB8 


26 


0C6A 


07 


0AB3 


26 


CC6A 


07 


OABC 


2 6 


0C6A 


07 


OABC 


26 


C06E 


07 


OACO 


26 


0072 


07 


OACO 


26 


0086 


07 


OACO 


26 


00 A 8 


07 


OACO 


26 


0080 


07 


OACO 


26 


0CB4 


07 


OACO 


26 


0086 


07 


OACO 


26 


008A 


07 


OACO 


26 


OOCO 


07 


OACO 


26 


OOCO 


07 


OACO 


2 6 


OOCA 


07 


OACO 


26 


00 EC 


07 


OACO 


2 6 


OOFO 


07 


OACO 


26 


OOFO 


07 


OACO 


26 


OOFO 


07 


OACO 


26 


0CF4 


07 


OACO 


26 


OOFE 


07 


OACO 


26 


10 E 


07 


OACO 


26 


012 


07 


OACO 


26 


C13C 


07 


OACO 


26 


0156 


07 


OACO 


26 


C15A 


07 


OACO 


26 


015A 


07 


OACO 


26 


015A 


07 


OACO 


26 


C15A 


07 


OACO 


26 


01 5E 


07 


OACO 


26 


0160 


07 


OACO 


26 


016 8 


07 


OACO 


2o 


016B 


07 


OACO 


2 6 


0168 


07 


OACO 


26 


0170 


07 


OACO 


26 


01 €2 


07 


OACO 


26 


018 3 


G7 


OACO 


26 


0194 


07 


OACO 


26 


01A6 


07 


OACO 


26 


01AA 


07 


OACO 


26 


01 A A 


07 


OACO 


26 


01 AE 


07 


OACO 


26 


01B6 


07 


OACO 


26 


oiec 


07 


OACO 


26 


01CE 


07 


OACO 



379 

3791 

3 792 

370 3 

3 794 

3 7^5 

379 6 

3797 

379 3 

3799 

3300 

3301 

3302 

3 303 

3804 

3305 

330 6 

3 307 

3 30 8 

3309 

3810 

3811 

3812 

3813 

3314 

3315 

3316 

3317 

3813 

3819 

3320 

3821 

332 2 

3823 

38 24. 

3825 

3826 

3 82 7 

3823 

3829 

3830 

38 81 

3832 

3333 

3 334 

3835 

3336 

3837 

3 83 8 

3339 

3840 

3841 

3 342 

3843 

3844 

3 845 

3346 

3847 



BYTE DIVFLAG; COMMENT SET TO CONTROL MULT/DIV CODE IN POLL; 
PROCEDURE PCLL(Rl); COMMENT GENERATE CALL FOR COMPLEX MULT/DIV; 
BEGIN LUGICAL SAVERl; SAVERl := Rl ; 
RO := aCARITHFN; RO := NEG RO; 
R3 := R6-3; IF DIVFLAG THEN R3 := R3+2; 

CQMI-1ENT 1=CMULT, 2=LCMULT, 3=CDIV, 4=LCDIV ; 
R3 := R3 SHLL 16 j EMITCALLJ 

IF DIVFLAG AND R6 = 4 THEN RO := #40000000 ELSE RO :« Oj 
IF --DIVFLAG THEN R6 := 5; PRFLREG; Rl := SAVERl J 
END; 

PROCEDURE SUBDIV(Rl); COMMENT DOES SETUP FOR ARG2 SUBTRA 
DIVIDE; 

BEGIN LOGICAL SAVERl; 

PROCEDURE SUBSUBDIV(Rl); COMMENT HANDLES COMMON CASE; 
BEGIN LOGICAL SAVERl; 
SAVERl : = Rl; 

LOADREG; RO := LST ACKM4 iR5 ) ; R3 := LSTACKM8C R5) ; 
IF R3 < THEN RELEASE ELSE ADJSTACKS; 



R5-4; 



ELSE 

THEN LOADREG; 



LSTACKM8<R5) := RO; R5 := 

Rl := SAVERl; 

end; 

SAVERl := Rl; 
IF R7 > THEN 
BEGIN 

IF RIO < THEN SUBSUBDIV 
BEGIN GETADDRESS; IF R7 < 

RO := LSTACKM4(R5); 
END; 
END ELSE 
BEGIN 

IF RIO < THEN SUBSUBDIV ELSE 

BEGIN R5 := R5-4; RO := LSTACKMMR5); R3 •= L STACK (R5J; 
IF RO < THEM RELEASE ELSE 
BEGIN LOADREG; RELEASE; 

IF R3 < OR R6 = 1 THEN ADJSTACKS; 
RO := L STACK M4{R5) ; 
END; 
END; 

END; 

Rl := SAVERl; 

end; 

SET(ARGFLAG) ; 
CASE R3 OF 
BEGIN 

BEGIN COMMENT + 
CONVERT; P. 6 := R6 
IF R7 >= THEN 
BEGIN GETADDRESS; 
IF R7 < THEN LOADREG; 

RO :- LSTACKM4CR5); 
END ELSE 
BEGIN 

RO :- LSTACKM8CR5) ; R3 

IF RO >= THEN 

BEGIN IF R3 > THEN LOADREG; 

RO := LSTACKM4CR5) ; R3 := LSTACKM8I R51 ; 



SAVERl ■:= Rl; 



SHLL 1 SHRL 25; 



:= LSTACKM41R5); 



PL360 COMPILATION 


26 


0106 


07 


OACO 


26 


01E6 


07 


OACO 


# 26 


1 F A 


07 


OACO 


26 


02 A 


07 


OACO 


26 


214 


07 


OACO 


^ 26 


021 E 


07 


OACO 


26 


02 IE 


07 


OACO 


26 


0222 


07 


OACO 


26 


0232 


07 


OACO 


26 


023 A 


07 


OACO 


26 


023E 


07 


OACO 


• 26 


024E 


07 


OACO 


26 


C25 8 


07 


OAC 


26 


0262 


07 


OACO 


• 26 


C262 


07 


OACO 


26 


026 6 


07 


OACO 


26 


0278 


07 


OACO 


' # 26 


02 8 


07 


OACO 


-': 26 


284 


07 


OACO 


p 26 


02 S A 


07 


OACO 


':; 26 


02 A 3 


07 


OACO 


1 26 


2 AC 


07 


OACO 


l 26 


C2C0 


07 


OACO 


| 26 


02CO 


07 


OAC 


26 


02CC 


07 


OACO 


26 


0202 


07 


OACO 


• 26 


02F4 


07 


OACO 


26 


02 FC 


07 


OACO 


26 


03 04 


07 


OACO 


£ 26 


0314 


07 


OACO 


26 


03 14 


07 


OACO 


26 


03 1 8 


07 


OACO 


26 


0320 


07 


OACO 


26 


03 2 A 


07 


OACO 


26 


033E 


07 


OACO 


^P 26 


G33E 


07 


OACO 


26 


034 A 


07 


OACO 


26 


034 A 


07 


OACO 


• 26 


034E 


07 


OACO 


26 


03 4 e 


07 


OACO 


26 


C3 5A 


07 


OACO 


26 


0366 


37 


OACO 


26 


03 7E 


07 


OACO 


26 


C39C 


07 


OACO 


# 26 


03 84 


07 


OACO 


26 


03D4 


07 


OACO 


26 


03C2 


07 


OAC 


• 26 


03 D4 


07 


OACO 


26 


03 E A 


07 


OACO 


26 


03 FC 


07 


OACO 


• 26 


03 FC 


07 


OACO 


26 


404 


C7 


OACO 


26 


040A 


07 


OACO 


26 


041 A 


07 


OACO 


26 


4 2 8 


07 


OACO 


26 


0432 


07 


OACO 


• 26 


C44C 


07 


OACO 


26 


454 


C7 


OACO 
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384 8 
3 849 
3850 
3 851 
3352 
38 53 
3 854 
38 5 5 
3856 
3 357 
33 5 8 
3 85 9 
3860 
3 8 6 1 
3362 

386 3 
3864 
3 86 5 
8 8 66 
3 367 
3868 
3869 
3370 

387 1. 
3 8 72 
38 7 3 
3874 
38 7 5 
38 76 
3 877 
38 73 
3 379 
3330 
3831 

388 2 
3883 
3384 
3385 
3 33 6 
3837 
3838 
38 39 
3890 
3891 
3802 
3893 
3894 
3805 
3806 
3897 
3 89 8 
3390 
3000 
3901 
3*092 
300 3 
3904 
3005 



LSTACKM8(R5) := RO; AOJSTACKS; 

ENO ELSE RELEASE; R5 : = R5-4; 
END; RO :■= RO OR A; ASSEMBLE; 
R7 := R6 SHLL 24 OR SIGN; 
CONVERTRESULT; 
END; 
BEGIN COMMENT - ; 

CONVERT; RIO := R6 ; RIO := TREE(RIO); 
K6 := R6 SHLL 1 SHRL 2 5; 
SUBOIV; 

RO := RO OR S; ASSEMBLE; 
R7 := R6 SHLL 24 OR SIGN; 
CONVERTRESULT; 
END; 

BEGIN COMMENT * ; ; 

CONVERT; R6 := R6 SHLL 1 SHRL 25; 
IF R6 <= 3 THEN 
BEGIN SET(PAIRFLAG); 
IF R7 >= THEN 

BEGIN GETADDRESS; IF R7 < THEN LOADREG; 
RO := L STACK M4CR5) ; 
IF R6 = 1 THEN FORCEPAIR; 
END ELSE 

BEGIN RO i- LSTACKM8(R5); R3 := LSTACKM4< R 5) ; 
IF RO >= THEN 

BEGIN IF R3 >= THEN LOADREG; RO : = LSTACKM41 R5 ) ; 
IF R6 = 1 THEN FORCEPAIR; 

R3 := LSTACKM8CR5); RO i- LSTACKM4* R5) ; 
LSTACKM8(ft5) := RO; AOJSTACKS; 
END ELSE 
BEGIN 

IF R6 = 1 THEN 

BEGIN IF R3 < THEN R3 := LST ACKH4I R5) i 

R5 := R5-4; FORCEPAIR; R5 : = R5+4; 
END; 
RELEASE; 

end; 

R5 := R5-4; 

ENO; 

RESET(PA IRFLAG) ; RO:=RO AMD #FFFOFFFF OR M; ASSEMBLE; 
END ELSE 
BEGIN RESETCDI VFLAG); CONVERT; IF R7 > THEN 

BEGIN GETADDRESS; RO : = #41000000 OR R3; EMIT; 
R7 := R6 SHLL 24 OR SIGN; STFUNCTION; PCLL; 
END ELSE 
BEGIN RO := LSTACKM4C R5 ) ; IF RO > THEN 

BEGIN R3 := RO; RO := RO OR #41000000; EMIT; 

RELEASE; R5 :» R5-4; R7 := R6 SHLL 24 OR SIGN; 
STFUNCTION; POLL; 
END ELSE 

BEGIN R3 := LSTACKM8CR5I ; 
IF R3 < THEN 

BEGIN RO := FSTACK(O); OUMPPRFLREGl END; 
RO := LSTACKM4LR5) ; R7 : = R6 SHLL 24 OR SIGN; 
IF RO < THEN RO := LSTACKMdf R5I ; 
RO := RO OR #41000000; EMIT; STFUNCTION; 
R5 := R5-4; PCLL; 
END; 
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26 


0454 


07 


OACO 


26 


045"*+ 


07 


OACO 


26 


0454 


07 


OACO 


26 


4 5E 


07 


OACO 


26 


0466 


07 


OACO 


26 


C46 6 


07 


OACO 


26 


04 6 6 


07 


OACO 


26 


04 74 


07 


OACO 


26 


4 80 


07 


OACO 


26 


049 


07 


OACO 


26 


C4 9C 


07 


OACO 


26 


04 90 


07 


OACO 


26 


4 A 8 


07 


OACO 


26 


04/. 3 


7 


OACO 


26 


04AC 


07 


OACO 


26 


04B4 


07 


OACO 


26 


C4B8 


07 


OACO 


26 


404 


07 


OACO 


26 


0404 


07 


OACO 


26 


040 3 


07 


OACO 


26 


04 CO 


07 


OACO 


26 


04 C4 


07 


OACO 


26 


04DE 


07 


OACO 


26 


040 E 


07 


OACO 


26 


04 E 2 


07 


OACO 


26 


04F2 


07 


OACO 


26 


04 FA 


07 


OACO 


26 


W _> M C. 


07 


OACO 


26 


516 


07 


OACO 


26 


516 


07 


OACO 


26 


5 24 


07 


OACO 


26 


524 


07 


OACO 


26 


C5 36 


07 


OACO 


26 


C546 


07 


OACO 


26 


546 


07 


OACO 


26 


54 A 


07 


OACO 


26 


05 5 


07 


OACO 


26 


56 6 


07 


OACO 


26 


C5£2 


07 


OACO 


26 


582 


07 


OACO 


26 


592 


07 


OACO 


26 


C5A6 


07 


OACO 


26 


5B4 


07 


OACO 


26 


05BE 


07 


OACO 


26 


053E 


07 


OACO 


26 


53E 


07 


OACO 


26 


0502 


07 


OACO 


26 


502 


07 


OACO 


26 


05CC 


07 


OACO 


26 


5D6 


07 


OACO 


26 


5 06 


07 


OACO 


26 


C5CA 


07 


OACO 


26 


05CA 


07 


0AC4 


26 


50 A 


07 


0AC4 


26 


5 02 


07 


0AC8 


26 


C5EC 


07 


0AC8 


26 


5FC 


07 


0AC8 


26 


05FE 


07 


0AC3 



3 906 
3907 
3 90 8 
390 9 
3910 
3911 
39 L ?. 
3913 
3914 
3915 
3916 
3917 
3 313 
3919 
3920 
3921 
392 2 
362 3 
3924 
3925 
3926 
3927 

392 3 
3929 

393 
3931 
393 2 
3933 
3934 
3935 
393 6 
3937 
393 8 
39 39 
3640 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3 94 8 
3949 

395 
39 5 1 
3952 
3953 
3954 
39 55 
3956 
3957 
3958 
3959 
3960 

396 1 
396 2 
3963 



end; 

ENUJ 

R7 := R6 SHLL 24 OR SIGN; 
IF R6 = 1 THEN 

BEGIN COMMENT EVEN-ODD PAIR IN LSTACKM4. UMFLAG ODD IN 
R AND ERASE FROM LSTACKM4. EMIT SLDA 0DDREG,32l 
R3 := LSTACKM4CR5) AND MASK4 SHRL 15; RO:=RO-RO; 
R(R3) := RO; RO := LSTACKM4CR5) AMD MASK5 OR 
#8F000020; EMIT; RO := RO AND MASK5 OR SIGN; 

LSTACKM4{R5) := RO J 
END ELSE 
IF R6 ■= 2 THEN 
BEGIN 

R7 := #8 3000000; 

Rl := FSTACKM4(R4) AND #BFFFFFFF; FSTACKM4CR4) := RlJ 
END ELSE 
IF R6 = 4 THEM 
BEGIN 

R7 := #3 5000000; 

Rl := FSTACKM4(R43 AND #3FFFFFFF; FSTACKM4CR4) := Rl; 
END; 

CONVERTRESULT; 
END; 

BEGIN COMMENT / ; 4 

CONVERT; RIO := R6; RIO i- TREE(RIO); 
R6 := R6 SHLL 1 SHRL 2 5; 
IF R6 <= 3 THEN 

BEGIN SUBDIV; RO := RO OR D; ASSEMBLE; 
END ELSE 

BEGIN SET(DIVFLAS); IF RIO < THEN 
BEGIN COMMENT ON LEFT SIDE; 

STFUNCTION; RO := LSTACKM4CR5J OR #41000000; 
EMIT; R5 := R5-4; 
END ELSE 

BEGIN COMMENT ON RIGHT SIDE; 
IF R7 > THEN 
BEGIN GET ADDRESS; RO : = R3 OR #41000000; EMIT; 

R7 := R6 SHLL 24 OR SIGN; STFUNCTION; 
END ELSE 
BEGIN DUMPALLFLREG; 

RO : = LSTACKM4LR5) OR #41000000; EMIT; 
R5 := R5-4; R7 := R6 SHLL 24 OR SIGN; 
STFUNCTION; 
END; 
END; 
PCLL; 
END; 

R7 : = R6 SHLL 24 OR SIGN; 
CONVERTRESULT; 
END; 

BEGIN COMMENT ** ; 5 

INTEGER TYPE; COMMENT ON EXPONENT SIDE; 
PROCEDURE PC ALL CRD ; 
BEGIN LOGICAL SAVEK1; SAVER1 : = Rl; 

R3 := R3 SHLL 16; RO i= 3ARITHFN; RO := MEG RO; 
EMITCALLS Rl := SAVER 1; 

end; 

P.6 := STACKP4U8) SHLL 1 SHRL 25; TYPE ;= R6| RO s» 0; 
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26 


0612 


07 


0AC8 


26 


0620 


07 


OAC 8 


26 


062A 


07 


0AC8 


26 


06 36 


07 


0AC8 


26 


C*36 


07 


OAC 8 


26 


C646 


07 


CAca 


26 


C646 


07 


OAC 8 


26 


C6 5 


07 


OAC 8 


26 


066 G 


07 


OAC 8 


2 6 


C660 


07 


OAC 8 


26 


67 2 


07 


0AC8 


26 


0672 


07 


oaco 


26 


06 8C 


C7 


OAC 8 


26 


069 


07 


0AC8 


26 


06A4 


07 


0AC8 


26 


06 A 4 


07 


OAC 8 


26 


0688 


07 


0AC8 


26 


068 E 


07 


OAC 8 


26 


06CA 


07 


OAC 3 


26 


0606 


07 


0AC8 


26 


06 OE 


07 


OAC 8 


26 


06EA 


07 


0AC8 


26 


06F8 


07 


OAC 8 


26 


€704 


7 


0AC8 


26 


704 


07 


OAC 8 


26 


07 1C 


07 


OACO 


26 


7 32 


07 


OAC 3 


26 


C746 


07 


OAC 8 


26 


C752 


07 


0AC8 


26 


0152 


07 


OAC 3 


26 


7 52 


07 


0AC8 


26 


C 766 


07 


0AC8 


2 6 


0766 


07 


OAC 8 


26 


0' 7 6A 


07 


OAC 8 


26 


QUA 


07 


OACO 


26 


€77 A 


07 


OAC 8 


26 


C77E 


07 


OAC 8 


26 


€7 80 


07 


OAC 8 


26 


C 7 8C 


07 


OAC 8 


26 


700 


07 


0AC8 


26 


C 7 9E 


07 


OAC 8 


26 


79E 


07 


OAC 8 


26 


C7A2 


07 


0AC8 


26 


G7AE 


07 


OAC 8 


26 


7AE 


07 


OACO 


26 


C7B2 


07 


OAC 8 


2 6 


G736 


07 


OAC 8 


26 


078 A 


07 


0AC8 


26 


C7CA 


07 


0AC8 


26 


7DA 


07 


0AC8 


26 


07EE 


07 


0AC8 


26 


C3C0 


07 


0AC8 


26 


G8O0 


07 


OAC 8 


26 


80E 


07 


0AC8 


26 


0822 


07 


OAC 8 


26 


832 


07 


OAC 8 


26 


832 


07 


OAC 8 


26 


0*536 


07 


OAC 8 



3964 
3 065 

396 6 
3967 
3068 
3906 
3970 
39 71 
39 72 

397 3 
39 74 
39 75 
3 9 76 
3977 
3978 
3979 
3 9 80 
3981 

398 2 
39 33 
3984 
3985 
3986 
3 98 7 

398 8 
3939 
3990 
3991 

399 2 
3 993 
3994 
3995 
3996 
39 07 
399 8 

399 9 
4000 
4001 
4002 

400 3 
4004 
400 5 
4006 
4007 
4008 
4009 
40 1 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 



P. I := P. 7 SHRL 24; IF Rl = NUMBER THEN 
BEGIN HI := R7 AND f-FFFF +• CPTBASE; 

Rl := CONSPTTABCRl.) AND #FFFF; RO := PROGRAMM(Rl) I 
END; 

IF RO = 2 AND R6 <= 3 THEN 
BEGIN COMMENT SQUARE OF INTEGER, REAL, LONG REAL J 

RO := LSTACKM4CR5) ; IF RO > THEN 

BEGIN LOADREG; RO := LSTACKM4< R5) ; 

END; 

R3 := RO; RO := RO OR M; ASSEMBLE*, 
END ELSE 
BEGIN LOADREG; RO := RO-RO; IF RO < LSTACKM8(R5) THEN 

BEGIN R7 := STACKP4(R8); 

R5 := R5-4; LOADREG; R5 := R5+4; 

E ND ; 

R6 := l; R3 : = LSTACKM4* R5 ) ; RELEASE; 

R6 := TYPE; RIO := R6 ; 



RO 



LSTACKM44R5) SHLL 8 SHRL 28; 



R3 := R6 SHLL 8; RO := RO OR R3 OR #41000000; 
IF R6 <= 3 THEN 

BEGIN R3 : = LSTACKM8tR5) AND MASKS SHRL 16; 
RO := RO OR R3 ; EMIT; 



R 



J "3. ' =5 



l; pcall; 



R5 := R5-4; 
END ELSE 
BEGIN EMIT; R5 : = R5-4; R7 := STACKP4CR8) OR SIGN; 

STFUNCTIONJ R3 : = 2; PCALL; 

IF R6 = 4 THEN RO : = #40000000 ELSE RO := 0; 
PRFLREG; 
END; 
END; 

R7 := R6 SHLL 24 OR SIGN; CONVERTRESULT; 
END; 
BEGIN COMMENT L* = ; < 

LC0LEQARG2; R7 := SIGN; 
END; 
BEGIN COMMENT A:= ; 

NUMERICALASSIGNj R7 := SIGN; 
END; 

S : = ; i 

R7 : = 



SIGN; 



BEGIN COMMENT 

SC0LEQARG2; 
END; 
BEGIN COMMENT R:= ; 9 

RC0LEQARG2; 
END; 

NULL; 10 

NULL; 11 

BEGIN COMMENT STEPUNTIL ; 12 

LOADREG; RO := STACKP4CR8); 

IF RO ->- 1 THEN RIO := LSTACKM4C R5-4) ♦ 4 ELSE 

BEGIN R3 := NEXTAOOR •*- 3 AND #FFFC; NEXTADDR : = R3; 
RIO := 4; I NCR AD OR; RIO %- R3J 

END; 

RO := LSTACKM4CR5) AND iOOFOOOOO OR RIO OR #50000000; 

EMIT; R3 := LSTACKMMR51; LSTACKM4CR5) s = RIO; 

R6 := 1; RELEASE; 
END; 
BEGIN COMMENT DIV ; 13 

DIVREM; CONVERTRESULT; 
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26 


C8 4C 


07 


0AC3 


26 


C34C 


07 


OAC 8 


26 


C«80 


07 


OACO 


26 


C364 


07 


0AC8 


26 


G86E 


07 


0AC8 


2 6 


CS6E 


37 


0AC3 


26 


08 72 


07 


0AC8 


26 


880 


07 


0AC3 


26 


C 8 8 


07 


OACO 


26 


8 84 


07 


0AC8 


26 


0892 


07 


0AC8 


2 6 


0892 


07 


0AC8 


26 


896 


07 


0AC8 


26 


C8M 


07 


0AC8 


26 


C8A4 


07 


0AC8 


26 


8A8 


07 


0AC8 


26 


C8B6 


07 


OACO 


2 6 


866 


07 


0AC8 


26 


08BA 


07 


0AC6 


26 


CSC 3 


07 


0AC8 


26 


8C3 


07 


0AC8 


26 


C8CC 


07 


0AC8 


26 


8CA 


07 


OAC 8 


26 


G8CA 


07 


0AC3 


26 


C80E 


07 


OAC 8 


26 


G8E2 


07 


OAC 8 


26 


C8FA 


07 


OACO 


26 


C8FA 


07 


0AC8 


26 


08FE 


07 


OACO 


26 


09 1 A 


07 


0AC8 


26 


C91A 


07 


OAC 8 


26 


09 IE 


07 


0AC8 


26 


934 


07 


0AC8 


2 6 


C9 34 


7 


OAC 8 


26 


0933 


07 


OAC 8 


26 


C94C 


07 


0AC8 


26 


C94C 


07 


0AC8 


2 6 


0959 


07 


0AC8 


26 


0954 


07 


OACO 


26 


C558 


07 


OAC 3 


26 


09 5 C 


07 


0AC8 


26 


C96 


07 


0AC8 


2 6 


OS 66 


07 


OAC 8 


26 


09 7 2 


07 


0AC8 


26 


C 9 8 3 


07 


OAC 3 


26 


09 8 8 


07 


OAC 3 


26 


099 E 


07 


OACO 


26 


C99E 


07 


OAC 8 


26 


09 9 E 


07 


OAC 8 


26 


09 A 2 


07 


OAC 8 


26 


09B0 


07 


OAC 8 


26 


09 80 


07 


0AC8 


26 


09B4 


07 


0AC8 


26 


09C6 


07 


OAC 8 


26 


09D2 


07 


OAC 8 


26 


09EC 


07 


OAC 8 


26 


OAOC 


07 


OAC 8 


26 


OAOC 


07 


0AC8 



4023 
4024 

402 5 
432 6 
4027 
432 3 
40 29 

403 
40 31 
403 2 
4033 
4034 
403 5 
403 6 
4037 
4088 
403 9 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
40 49 
■405 3 
4051 
4052 
405 3 
4054 
4055 
40 5 6 
4057 

405 8 
40 5 9 
4060 
4061 

406 2 
4063 
4064 
406 5 
4066 
406 7 
406 8 
4 06 9 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
40 7 8 
407^ 



69.326 a 00:02 
14 
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END; 

begin comment rem ; 

set(rbmainder); divrem; reset! remainder) ; 

convertresult; 

END; 

BEGIN COMMENT < ; 

RO s= #4; ARG2 EQUALITIES; 
END; 
BEGIN COMMENT <= ; 

RO := #C; ARG2EQUALITIES; 
END; 
BEGIN COMMENT > ; 

RO : = #2; ARG2EQUALITIES; 
EN D ; 
BEGIN COMMENT >= ; 

RO := #A; ARG2EQUALIHES; 
END; 
BEGIN COMMENT = j 

RO := #8; ARG2EQUALITIESS 
END; 
BEGIN COMMENT -.= ; 

RO := #7; ARG2EQUALITIES; 
END; 
NULL; 
BEGIN COMMENT L:=2 I 

SET<CEQ2); LC0LEQARG2; R7 := #86020000; RES£T{C£Q2)J 
END! 
BEGIN COMMENT A: =2 ; 

SETCCEQ2); NUMERICALASSIGN; CONVERTRESULT; RESET(CEQ2); 
END; 
BEGIN COMMENT S:=2 ; 

SETICEQ2); SC0LEQARG2; R7 := #87000000; RESETCCEQ2); 
EN D ; 
BEGIN COMMENT R:=2 ; 

SETICEQ2); RC0LEQARG2; RESET <CEQ2); 
END; 
NULL; 
MULL; 
NULL; 
BEGIN COMMENT AP) ; 

Rl := STACK P8CR8); 

If Rl < THEN 

BEGIN RO := 0; Rl := Rl AND MASK / 12; 

R3 := Rl; STANOARDFUNCTION; CONVERTRESULT; 

END ELSE 

BEGIN R3 := 3; PARAMETERS; R7 := R7 OR SIGN; 

END; 
END; 
BEGIN COMMENT INDX ; 

P3 : = 3IMDEX0P; ARRAYS; 
END; 
BEGIN COMMENT REFX j 

R3 := R7 AND TYPEMASK; IF ■*= AND CHECKFLAG THEN 

BEGIN RO := LSTACKM4JR5) XOR SIGN OR REFTEMP OR 

#50000000; EMIT; RO s= #95000000 OR R3 OR REFTEMP; 
EMIT; RO s= #45100000 OR REFBINOERR; EMIT; 

end; 

R3 := R7 AND #FFFF ; R3 := IDLOC2CR3); 



15 
16 
17 

18 
19 

20 



21 
22 



23 



24 



25 



26 
27 

28 
29 



30 



31 
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26 


C5A16 


07 


0AC8 


26 


0A2A 


07 


0AC8 


26 


.A 3 8 


07 


0AC8 


26 


0A3A 


07 


0AC8 


26 


CA4A 


07 


0AC3 


26 


0A56 


07 


0AC8 


26 


0A62 


07 


0AC8 


2 6 


0A7 3 


07 


0AC8 


26 


0A80 


07 


0AC8 


2 6 


CA8C 


07 


0AC8 


26 


0A96 


07 


0AC8 


26 


0A96 


07 


0AC8 


26 


CA9A 


7 


0AC8 


26 


OAAC 


07 


0AC8 


2fc 


0AB8 


07 


0AC8 


26 


0AC8 


07 


0AC8 


26 


0AC4 


07 


0AC8 


26 


OADE 


07 


0AC8 


26 


OAOE 


07 


0AC8 


26 


OA E2 


07 


0AC8 


26 


0AE6 


07 


0AC8 



21 


0960 


07 


0AC8 


21 


0960 


07 


0AC8 


2 7 


000 4 


07 


OACC 


27 


0004 


07 


OACC 


2 7 


C 04 


07 


OACC 


27 


oooc 


07 


OACC 


27 


0018 


07 


OACC 


21 


0028 


07 


OACC 


27 


03 2 


07 


OACC 


27 


0032 


07 


OACC 


27 


0036 


07 


OACC 


27 


OC42 


07 


OACC 


27 


0G52 


07 


OACC 


2 7 


C 50 


07 


OACC 


2 7 


0050 


07 


OACC 


27 


0C60 


07 


OACC 


27 


CC6A 


07 


OACC 


27 


006A 


07 


OACC 


27 


CC7E 


07 


OACC 


27 


GC9 


07 


OACC 


27 


C0A2 


07 


OACC 


27 


O0A6 


07 


OACC 


27 


00 A 6 


07 


OACC 


27 


OOAA 


07 


OACC 


27 


OOAE 


07 


OACC 


27 


0084 


07 


OACC 


27 


O0B4 


07 


OACC 


27 


000 2 


07 


OACC 


27 


O0C2 


07 


OACC 


27 


O0C8 


07 


OACC 


27 


00 DC 


07 


OACC 


27 


OODC 


07 


OACC 


27 


OOEO 


07 


OACC 


27 


OOEE 


07 


OACC 



4080 


408 1 


4082 


40 8 3 


4084 


4085 


49 8o 


4 37 


40 3 8 


400^ 


4070 


4071 


4092 


409 3 


4<m 


4095 


409 6 


40 77 


409 8 


4099 


•4100 


SEGMENT 


410 1 


4102 


4103 


4104 


4105 


4106 


4107 


4108 


4109 


4110 


4111 


4112 


A113 


4114 


4115 


4116 


4117 


4118 


4119 


412 


4121 


412 2 


412 3 


4124 


4125 


4126 


4127 


412 8 


412 9 


4130 


413 1 


4132 



R.S := R5 - 4; RESETRECORD; R5 := R5 ♦ 
RO : = LSTACKMMR5) XOR SIGN; RIO : = RO 
RIO := RIO ++ R3; 
LSTACKMMR5) := RIO; GETTYPEj 
IF R3 = 6 THEN RIO := #10000 ELSE 
IF R3 = 7 THEN 

BEGIN GETLENGTH; RIO := R3 SHU- 
END ELSE RIO := 0; 
R7 := R3 SHLL 24 OR SIGN OR RIO; 

convertresult; 
end; 

BEGIN COMMENT IFEXP ; 

SET{ IFEXP); UNCDNOJUMPJ RESETUFEXP); 



4 j 
SHRL 



8; 



16; R3 := 7i 



32 



END; 



Rl 



R3 := LOGPOINTER + 
R3 := INSCOUNTERJ 
R3 := LOGPOINTER - 
CONVERTRESULT; 

END; 

NU LL ; 

NULL; 

:= SAVER.1; END; 



4; LOGPOINTER : = R3i 
FIXUP; 

4; LOGPOINTER := 



R3; 



33 
34 



»6 NAME ■= SEG#26 



LENGTH = 0C18 8ASE REG = 15 



4133 
4134 



SEGMENT PROCEDURE ARG22(R1); 

BEGIN LOGICAL SAVER1; SAVER 1 := Rl; 
CASE R3 OF 
BEGIN 

BEGIN COMMENT SHL ; 35 

BITS SHI FTARG2J 

RO := RO OR #89000000; EMIT; 
R7 := R6 SHLL 24 Oft SIGN; 
END*. 

BEGIN COMMENT SHR ; 36 

BITSSHIFTARG2; 

RO := RO OR #88000000; EMIT; 
R7 := R6 SHLL 24 OR SIGN; 
END; 

BEGIN COMMENT B8 ; 37 

Rl := STACKP8IR8); IF Rl -.= THEN 
BEGIN COMMENT AT LEAST ONE REFERENCE ARRAY; 

Rl : = Rl SHLL 16; RO := CLN SHLL 12 OR REFARY+1 OR 

Rl OR #92000000; EMIT; 
RO := 3NULLREFARY.; RO : = NEC RO ; EM ITCALL I 
END; R7 := SIGN; 

end; 

begin comment end ; 38 

ro := stackp8(r8); 

IF RO < THEN 

BEGIN COMMENT BLOCKEXIT; 

R3 := 4; ENTRYEXIT; 

END; 

RO := R7 AND OPCQOEMASK; 
IF RO = NULLST THEN R7 := SIGN ELSE R7 i= R7 OR SIGN; 

end; 

begin comment pcl ; 39 

R3 := 2; ENTRYEXIT; 

end; 



^mmmimmm 
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21 


OOEE 


07 


OACC 


27 


C0F2 


07 


OACC 


2 J 


CCF6 


7 


OACO 


27 


COFC 


07 


OACD 


27 


0104 


07 


OACD 


27 


01CA 


07 


OACO 


27 


CI IE 


07 


OACD 


27 


C122 


07 


OACO 


27 


G122 


07 


OACD 


27 


012C 


07 


OACO 


27 


CI 34 


07 


OACO 


27 


013E 


07 


OACO 


27 


0144 


07 


OACD 


27 


C144 


J7 


OACD 


27 


Q14C 


07 


OACD 


27 


015E 


07 


OACD 


2 7 


0172 


G7 


OACD 


27 


0184 


07 


OACO 


27 


CI S3 


07 


OACD 


27 


CIS 3 


07 


OACD 


21 


01 AO 


07 


OACO 


27 


CI AC 


07 


AC D 


27 


01B4 


07 


OACD 


27 


01 CO 


07 


OACD 


27 


01CC 


07 


OACD 


27 


1 E4 


07 


OACD 


27 


01EC 


07 


OACD 


27 


2 CO 


07 


OACD 


27 


2 CO 


07 


OACO 


2 7 


02 CC 


07 


OACO 


2 7 


2CC 


C7 


OACD 


27 


0210 


07 


OACO 


27 


0210 


37 


0AD4 


27 


021 A 


07 


0AD4 


27 


0222 


07 


0AD4 


27 


€234 


07 


0AD4 


27 


2 34 


07 


0AD4 


27 


023C 


07 


0AD4 


27 


0252 


07 


OA 04 


27 


02 66 


07 


0AD4 


27 


0273 


07 


0A04 


27 


C28C 


07 


0A04 


2 7 


023C 


07 


0AD4 


27 


0298 


07 


0A04 


27 


02A6 


€7 


0AD4 


27 


02AE 


07 


0AD4 


2 7 


C2C8 


07 


OA04 


27 


02C8 


07 


0AD4 


27 


020E 


07 


0A04 


27 


2 EC 


07 


0AD4 


27 


02F8 


07 


0AD4 


27 


030 A 


07 


0AD4 


2 7 


03 CA 


07 


0AO4 


2? 


0320 


07 


0AD4 


2? 


0328 


07 


0A04 


27 


0338 


G7 


0AD4 


27 


0344 


07 


0AD4 


27 


G344 


07 


0AD4 



413 5 
4 1 3 6 

413 7 
4138 
4139 
4140 
4141 
4142 
4143 
4 144 
4145 
4146 

414 7 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 

415 7 
415 8 

415 
4160 
4161 

416 2 
4163 
4164 
4 1 6 5 

416 6 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 

417 8 
4179 
4130 
4181 
4132 
4183 
4184 
4185 
4186 
4187 
413 8 
4139 
4190 
4191 
419 2 



OPTl: 



0PT2: 



BEGIN COMMENT SUBSTRIN ; 

BYTE LOADFLAG; RESET ( LOADFL AG) % 
IF R7 < THEM 

BEGIN RO := LSTACKM8(R5) AND #FFF; 
IF RO > THEN 
BEGIN R5 := R5 - 4; LOADREG; R5 := R5 «• 4j 

SETILOADFLAG) ; 
END J 

RO := STACKP4IR3); IF RO < THEM 
BEGIN RO := RO XOR SIGN + STACKP8IR8?; 
R3 := R7 SHLL 8 SHRL 24; 
IF R3 >= RO THEN GOTO OPTl; 
END; 

IF CHECKFLAG THEN 

BEGIN RO := R7 SHLL 8 SHRL 24 -STACKP81R8) OR LAA; 
EMIT; R3 := LSTACKM8IR5) AND MASK5; 
RO := R3 OR #15000000; EMIT; 
RO := #45100000 OR STRINGERR; EMIT; 
END; 
RO := LSTACKM81R5) AND MASK5 SHRL 4 

OR LSTACKM8CR5I AND fFFFOOO OR LSTACKMMR5) 
OR #41000000; 
EMIT; 

RO := LSTACKM8CR5) XOR SIGN SHRL 8; LSTACKM8( R.5 ) :=R0 J 
R3 i= t.STACKM4{R5) ; RELEASE; R5 := R5 - 45 
IF LOADFLAG THEM 

BEGIN R6 := lj ADJSTACKS; R6 := 7; 
END; 

R7 := STACKP8CR8) SHLL 16 OR #7000000; 
END ELSE 
BEGIN 

LOGICAL SAVE ADD; 

^0 := STACKP4(R8}; IF RO < THEN 
BEGIN RO := RO XOR SIGN + STACKP8(R8) J ■ 
GETLENGTH; IF R3 >= RO THEN GOTO 0PT2; 

END; 

IF CHECKFLAG THEN 

BEGIN GETLENGTH; RO s= R3 - STACKP8(R8) OR LAA; 

EMIT; R3 := LSTACKM4CR5) AND MASK5; 

RO := R3 OR #15000000; EMIT; 

RO := #45100000 OR STRINGERR; EMIT; 
END; 

GETAODRESS; 

RO := LSTACKM4CR5) ; SAVEADD := R3; IF RO < THEN 
BEGIN RO := RO AND MASKS SHRL 4 OR LSTACKM4CR5I 

XOR SIGN OR R3 OR LAA; EMIT; 
END ELSE 
BEGIN RIO := RO; R5 := R5 - 4; GENREG; 

R3 := RO SHRL 8; IF R3 = SAVEADD THEN 

BEGIN RO := LSTACKM4CR5) XOR SIGN OR A 5 
R3 := RIO; R6 := 1; ASSEMBLE; 

END ELSE 

BEGIN RO r= RO OR #58000000 OR RIO; EMIT; 
R3 := LSTACKM4IR5) XOR SIGN; 
RO := R3 SHRL 4 OR R3 OR SAVEADO OR LAA; 
EMIT; 

END; 
END; 



40 
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27 


0344 


07 


0AD4 


27 


3 50 


07 


0AD4 


27 


0354 


07 


0A04 


27 


036 


07 


0AD4 


27 


36 


07 


OAD4 


27 


03 64 


07 


GAD4 


27 


0364 


07 


0AD4 


27 


368 


07 


0AD4 


27 


0372 


07 


0A04 


2 1 


37 A 


07 


0AD4 


27 


37 A 


07 


0AD4 


27 


03 7E 


07 


0A04 


27 


0332 


07 


OAD'4 


27 


03 88 


07 


0AD4 


27 


03 9 


07 


0AD4 


27 


03 A 4 


07 


0AD4 


27 


03A4 


07 


0AD4 


27 


03 BC 


07 


0AD4 


27 


C53C4 


07 


0AD4 


27 


0300 


07 


0A04 


27 


03 DO 


07 


0A04 


27 


C3D0 


07 


0A04 


27 


0304 


07 


A 04 


27 


G3DE 


07 


0AD4 


2 7 


03D£ 


07 


0A04 


27 


03 E2 


07 


0AD4 


27 


C3FQ 


07 


0AD4 


27 


03FO 


07 


0A04 


27 


03 F 4 


07 


0AD4 


2 7 


0402 


07 


0AD4 


27 


040 2 


07 


0AD4 


27 


0406 


07 


0AD4 


27 


0410 


07 


0AD4 


27 


0410 


07 


0AO4 


27 


414 


07 


0AD4 


27 


04 24 


07 


0A04 


27 


0424 


07 


OAD4 


27 


C42 8 


07 


0A04 


27 


0434 


07 


0AD4 


27 


044-h- 


07 


OA04 


2 7 


044 E 


07 


0A04 


27 


044 E 


07 


0AD4 


2 7 


0452 


07 


0AD4 


27 


o^ez 


07 


0AD4 


27 


04 62 


07 


0A04 


27 


0466 


G7 


0AD4 


2 7 


472 


07 


0A04 


2 7 


04 82 


07 


0AO4 


27 


04 8C 


07 


0AD4 


27 


048C 


07 


0A04 


27 


0490 


07 


0A04 


27 


04AA 


07 


0AD4 


27 


04BE 


07 


0A04 


27 


04 C 6 


07 


0AD4 


27 


04C6 


07 


0AD4 


27 


04C6 


07 


0AD4 


27 


04E0 


07 


OAD4 


27 


04EC 


07 


OA04 



4193 


4104 


419 5 


4196 


4197 


419 3 


419 9 


420 


420 1 


4202 


4 203 


4204 


420 5 


4206 


420 7 


420 8 


4209 


42 1 


4211 


4 212 


42 1 3 


4214 


4215 


4216 


4217 


4218 


4219 


42 20 


4221 


4222 


4223 


422 4 


4 22 5 


4226 


422 7 


422 8 


4229 


423 


4231 


4232 


4233 


4234 


42 35 


4236 


423 7 


423 8 


4239 


4240 


424 1 


4242 


4243 


4244 


4245 


4246 


424 7 




4240 


42 50 



STACKP8(R8+12) : = R3; 
STACKP4CR8+12) : = R3; 



ARRAYS; 

ARRAYS; 



RO := LSTACKM4CR5) XOR SIGN SHRL 8; 

LSTACKM4CR5) := RO; 

R7 :■= STACKP8(R8) SHLL 16 OR #7000000; 

END; 

R7 := R7 OR SIGN; 
END; 
BEGIN COMMENT I ; 

R3 := R7 AND MASK; 

R3 : = STACKP4<R8); 

end; 

begin comment ap, ; 

Rl := STACKP8CR8); 

IF Rl < THEN 

BEGIN RO := C; STACKP8 (R8+12 ) := Rl; 

Rl := Rl AMD MASK / 12; R3 := Rl; STANOARDFUNCTION; 
END ELSE 
BEGIN R3 := 2; PARAMETERS; R3 := R8 - SSI2E; 

Rl := aSTACKP4(R8) ; RIO := 3STACKPMR3); 

LM<R0,R1 ,B1 }; STM<R0,R1,B10); R7 := SIGH; 
END; 

end; 

begin comment r, ; 

RECOESIGASSIGN; 
END; 
BEGIN COMMENT AR, ; 

R3 := 3FILLDESCRIP; 

END; 

BEGIN COMMENT AR) ; 

R3 := OCLOSEDESCRIP; 
END; 
BEGIN COMMENT R) ; 

RECDESIGASS IGM; 
END; 
BEGIN COMMENT LOGOR ; 

RESET CAN DEL AG) ; ANOORARG2; 
END; 
BEGIN COMMENT BITOR ; 

BITSAND0RARG2; 

RO : = RO OR #06000000; ASSEMBLE; 

R7 := R6 SHLL 24 OR SIGN; 
END; 
BEGIN COMMENT LOGA.NO ; 

S ET C ANDFLAG } ; ANDOR ARG2 ; 

end; 

BEGIN COMMENT BITANO ; 
BITSAND0RARG2; 

RO := RO OR #04000000; ASSEMBLE; 
R7 := R6 SHLL 24 OR SIGN; 
END; 
BEGIN COMMENT ITERST ; 

IF R7 >= AND R7 -.= NULLST THEN CALLPROPROCWOPARAM; 

RO s= #58200000 OR LST ACKH4< R5 ) ; EMIT; 

RIO := STACKP8(R8); Rl := STACKP4CR8); 

CASE Rl OF 

BEGIN 

BEGIN RO := #47FOE004 ++ RIO; EMIT; 

RO := INSCOUNTER OR #E000; PROGRAM(R10+14) 5= RO; 
END; 



41 



42 



43 



44 



45 



46 



47 



48 



49 



50 



51 
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27 


04 EC 


07 


0A0 4 


27 


0504 


07 


0AD4 


27 


C 5 16 


7 


OA04 


27 


522 


07 


0AD4 


27 


5 22 


07 


0AD4 


2 7 


5 3 3 


07 


0A04 


2 7 


5 44 


07 


0AD4 


27 


C554 


07 


0AD4 


2 7 


554 


07 


0AD4 


27 


564 


07 


0AD4 


27 


C56C 


07 


0AD4 


27 


56C 


07 


0AD4 


27 


570 


07 


0AD4 


27 


058A 


07 


0AD4 


27 


5S4 


07 


0AD4 


27 


05£8 


07 


0AD4 


27 


58C 


07 


0AQ4 


27 


05C3 


07 


0AD4 


27 


C5C8 


07 


A 04 


27 


5CC 


07 


0AD4 


27 


05CC 


07 


OA 04 


27 


C5D0 


07 


0AD4 


27 


05E0 


07 


0AD4 


27 


05E0 


07 


0AD4 


27 


C5E4 


07 


0AD4 


27 


05EC 


07 


0AD4 


2 7 


5F6 


07 


0AD4 


27 


06C2 


07 


0A04 


2 7 


6 16 


07 


0AD4 


2 7 


C62A 


07 


0AD4 


27 


0*2A 


07 


0AD4 


27 


063 E 


07 


0AD4 


27 


06 4 A 


07 


0AD4 


27 


06 5 A 


07 


0AD4 


2 7 


0672 


07 


0A04 


27 


C6 76 


7 


0AD4 


27 


0676 


07 


0AD4 


27 


06 96 


07 


0AD4 


27 


06^6 


07 


0AD4 


27 


069 A 


07 


0AD4 


27 


06A4 


07 


0A04 


27 


06B4 


07 


0AD4 


27 


06 BC 


07 


CAD4 


27 


C600 


07 


OA04 


2 7 


C6E8 


07 


0AD4 


27 


06 E 8 


07 


0A04 


27 


070 8 


07 


0AD4 


27 


0118 


07 


0AD4 


27 


071E 


07 


0AD4 


27 


C722 


07 


0AD4 


27 


0128 


07 


0AD4 


27 


72C 


07 


0AD4 


27 


C 1 3C 


07 


0AD4 


27 


07 5 E 


07 


0AD4 


2 7 


C772 


07 


0AD4 


2 7 


C77E 


07 


0A04 


2 7 


07 7 E 


07 


0A04 


2 7 


?83 


07 


OA04 



425 1 

425 2 
4253 
42 54 
425 5 
42 56 
4257 
425 8 
42 59 
4260 



4261 


426 2 


4263 


4264 


426 5 


426 6 


42c>7 


426 8 


4269 


4270 


4271 


4272 


4273 


4 274 


427 5 


427 6 


4 277 


427 8 


4 279 


4230 


428 1 


42 3 2 


428 3 


4284 


423 5 


4286 


4287 


4 28 8 


4289 


429 


4291 


429 2 


4293 


4294 


429 5 


429 6 


4297 


429 8 


4299 


4300 


4301 


430 2 


4303 


4304 


430 5 


4 30 6 


430 7 


430 8 



BEGIN RO := #98450000 OR LSTACKM4IR5-8) ; EMIT; 
KO :■= #8724E008 ++ RIO; EMIT; 

RO := INSCOUNTER OR #E000; PROGRAM! R10+6) : = RO; 
END; 
BEGIN RO := #4 7FOE004 ++ RIO J EMIT; 

RO := INSCOUNTER OR #E000; PROGRAM! P. 10+ 18) := RO; 
RO := RO + + #47000004; EMIT; 
END; 
END; 

R5 := R5 - 12; R7 := SIGN; 
END J 
BEGIN COMMENT ITERST2 ; 

IF R7 >= AND R7 ■-.= NULLST THEN CALLPROPROCWOPARAM; 
RIO := SrACKP4<R8); IE RIO ~-= THEN 
BEGIN RO := LSTACKM4TR5) OR #58100000; EMIT; 
RO := #07F10000; EMIT; R5 := R5 - 4; 
RO -■= INSCOUNTER OR #£000; PROGRAM! R10+2) := RO; 
END; 

R7 := SIGN; 
END; 
BEGIN COMMENT FORLIST ; 

ARG2F0RLIST; R7 := #81000000; 
END; 
BEGIN COMMENT FORCL 1 

RIO := STACKP4IR8M RO := INSCOUNTER; 

R3 5= R8 - SSIZEi STACKP4CR3) : = RIO; STACK.P8CR3) := RO; 
IF RIO -= 2 THEN 

BEGIN RO := #47FQ£t)0S ++ INSCOUNTER; EMIT; 
RO := #5A2O0OO0 OR LSTACKM4 (R5-8 ) ; EMIT; 
END; 

RO : = #59200000 OR EST ACKMM R5-4) ; EMIT; 
IF RIO = 1 THEN RO := #47400000 ELSE 
IF RIO = 2 THEN RO := #47200000 ELSE 
BEGIN RO := #58300003 ++ LSTACKM4! R5-8 ) ; EMIT; 

RO := #44300000; 
END; 

EMIT; RO := #50200000 OR LSTACKM4CR5) ; EMIT; 
END; 
BEGIN COMMENT EMOFORL I ; 

RO := STACKP4CR8); IF RO = THEN 

BEGIN LOAOREG; RIO := 0; COMMENT FLAG THIS CASE; 
RO := L5TACKM4CR5) AND #00F00000 OR LSTACKM4! R5-4) 

OR #500 00000; EMIT; 
R3 := LSTACKM41R5); R6 := U RELEASE; R5 := R5 - 8; 
END ELSE 
BEGIN ARG2F0RLIST; RO := #47F00000; EMIT; 

RO 1= INSCOUNTER OR #E000; Rl := INSCOUNTER - 8; 

WHILE Rl -»= DO 

BEGIN R3 := PR0GRAMLR1+2 ) ; 

PR0GRAM1R1+2) := RO; Rl := R3j 
END; 

R3 := NEXTADDR + 3 AND #FFFC; NEXTADDR s = R3 3 
RO := R3 OR #50100000; EMIT; RIO := 4; INCRADDR; 
RO := #50200000 OR LSTACKM4!R5) ; EMIT; 
LSTACKM4!R5) := R3; RIO := INSCOUNTER - 12; 
END; 

R3 := R8 - SSIZE; STACKP4IR31 := RIO; 
END; 
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53 



54 
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2 7 


C788 


07 


0AD4 


27 


Q73C 


07 


0AD4 


27 


C79E 


07 


0AD4 


27 


C 79E 


07 


0AD4 


27 


7 A 2 


07 


0A04 


27 


7AA 


07 


0AD4 


2 7 


C7B2 


07 


0AD4 


27 


0786 


07 


0A04 


2 7 


C7BA 


07 


0A04 


27 


C7CA 


07 


0AD4 


27 


07CA 


07 


0AD4 


27 


C7D4 


07 


0AU4 


27 


07D4 


07 


0AD4 


27 


70 8 


07 


0AO4 


27 


C7E0 


07 


0AD8 


2 7 


Q7E8 


07 


0AD8 


27 


7F6 


07 


0AO8 


27 


C7FA 


07 


0AD8 


27 


7FE 


07 


0AD8 


27 


caio 


07 


0AD8 


2 7 


C81C 


07 


0AD8 


27 


0824 


07 


0AD8 


27 


CS2C 


07 


0AD8 


27 


0834 


07 


0AD8 


27 


083C 


07 


0A08 


27 


Z 4 4 


07 


0AD8 


27 


844 


07 


0A08 


27 


08 50 


07 


0A08 


27 


C858 


07 


0AD8 


27 


3 6 4 


07 


0AD8 


27 


C87C 


07 


0AD8 


2 7 


C883 


07 


0A0 8 


27 


8 94 


07 


0AD8 


27 


C 8 A 4 


07 


0AD8 


27 


Q8B0 


07 


0AD8 


27 


0888 


07 


0A08 


27 


CSC 3 


7 


0A08 


27 


C3C8 


07 


0A08 


27 


08CC 


07 


0AD8 


27 


0800 


07 


0A08 


27 


8E2 


07 


0A08 


27 


C8E2 


07 


0AD8 


27 


C3E6 


07 


0AO8 


27 


8 EC 


07 


GADS 


2 7 


SfcC 


07 


0AD8 


27 


08F2 


7 


0AD8 


27 


8PA 


07 


0A08 


27 


CO 14 


07 


0AD8 


27 


0^14 


07 


0AD8 


27 


0-914 


07 


0AD8 


27 


0918 


07 


0AD8 


27 


09 24 


07 


0A08 


27 


0934 


07 


0AD8 


27 


940 


C7 


0AD8 


27 


0940 


07 


0AD8 


27 


09^4 


07 


0AD8 


27 


0954 


07 


0AD8 


27 


9 54 


37 


0AD8 



4309 


4310 


4311 


4312 


4313 


4314 


4315 


4316 


43 1 7 


4318 


431 9 


4320 


4 321 


4 32 2 


432 3 


4324 


4325 


4326 


4327 


4328 


4 32 9 


4330 


4331 


4332 


4 333 


4334 


433 5 


433 6 


433 7 


4338 


4339 


4 3 40 


4341 


4342 


4343 


4344 


4 345 


434 6 


4 34 7 


434 8 


4349 


4350 


43 51 


4352 


4 35 3 


4 354 


4355 


435 6 


4357 


4 35 8 


435 9 


4360 


4361 


4362 


4363 


4364 


436 5 


4366 



RESET(UJIFEXP) 



ftl := SAVEL; 



BEGIN COMMENT UJIFEXP ; 

S£T{ UJ IF EXP)5 UNCONOJUMPJ 
END; 
BEGIN COMMENT UJ ; 

IF R7 -= SIGN THEN 

BEGIN R8 := STACKP8(R8>; 
STCCR3,TREE<R1+1» ) ; 
STACKP8<R8+12) s= R3 ; 
IF R7 < THEN CONVERTRESULT ; 

END; 

UNCONOJUMP; 
END; 
BEGIN COMMENT CL ; 

LOGICAL SAVETREE; R3 := SAVEL AND MASK; 

Rl := TREFIR3); SAVETREE := Rl; 

RO := STACKP8CR8) SHLL 16; Rl := Rl AND MASK 2 OR ROS 

TREEJR3) := Rl; 

RESET TLOGFL AG) ; 

SET(CLFLAG); UNCONDJUMP; RESET (CLFLAGJ ; 

P3 := SAVEL; Rl := SAVETREE; TREECR3) := Rl J 

TESTILOGFLAG); IF = THEN 



56 



57 



RO := L0GSTACMR3-I2); 
LOG STACK (R3-12) t = RIO; 
L0GSTACMR3-8) := R10J 

R7 := #86000000? 



BEGIN R3 := LOGPOINTER; 
RIO := L0GSTACKCR3-8) i 
RIO := LQGSTACKCR3-4); 
L0GSTACK{R3-4) : = RO; 
END; 

R3 := LOGPOINTER - 4; RIO : = 3L0GSTACK( R3 I ; 
R3 s* LGGSTACMR3); MVI (0, B10U ) ) ! 
FIRSTCASE := R3; R3 := INSCOONTER - 4; 
FIXUP; R3 :- LOGPOINTER + 4; LOGPOINTER i- 
F.ILLCASETA3LE; 

4; LOGPOINTER := R3; 
FIXUP; 

8; LOGPOINTER : = R3; 
= THEN 
INDICATEBRANCHI 



R3 1 



R3 := LOGPOINTER + 
P. 3 : = INSCOUNTER; 
R3 := LOGPOINTER - 
TESTCLOGFLAG); IF 
BEGIN RO := #0200 
END; 

R7 := R7 OR SIGN; 
RESET* LQGFLAG) ; 
IF R7 -.= SIGN THEN 
END; 

BEGIN COMMENT I EST ; 

IF R7 > THEN 
BEGIN 

Rl := R7 SHRL 24; 
IF Rl = FUNCID THEN 
BEGIN DUMPALLGENREG; 
END; 
END; 

SIGN; 

LOGPOINTER. + 
INSCOUNTER; 
LOGPOINTER - 



CONVERTRESULT; 



59 



R3:=R3-R3; PROCCALLCODE; 



END; Rl 



P. 7 

E3 

R3 

R3 
END; 
BEGIN COMMENT 

LOADREG; 

end; 

:= SAVER l; END; 



4; LOGPOINTER := R3| 

Fixup; 

4; LOGPOINTER := R3; 



60 



R7 := R7 OR SIGN; 



PL 360 C CMP I L ATI Of 



ALGOL M COMPILER - PASS 3 
SEGMENT 27 NAME = SEG#27 LENGTH 
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DAAO BASE REG =15 



21 


CS60 


07 


OADH 


21 


09 6Q 


07 


0A0 8 


28 


CO 04 


07 


OAOC 


2 8 


CO 04 


07 


OADC 


28 


00G4 


07 


OAOC 


28 


OOOC 


07 


OADC 


28 


0C1C 


07 


OADC 


28 


2C 


07 


OADC 


28 


C040 


07 


A DC 


28 


O0 50 


07 


OADC 


28 


0G5C 


07 


OADC 


2 8 


CC68 


07 


OADC 


28 


007C 


07 


OADC 


28 


0C7C 


07 


OADC 


2 8 


CC80 


07 


OADC 


2 8 


00 84 


07 


OADC 


28 


00 8 A 


07 


OADC 


2 8 


CC92 


07 


OADC 


28 


0092 


07 


OAOC 


28 


0C52 


07 


OAOC 


2 8 


OCA 4 


07 


OAOC 


28 


00A4 


07 


OADC 


23 


CCBt 


07 


OADC 


23 


OCCE 


07 


OADC 


28 


OOCE 


07 


OADC 


28 


000 2 


07 


OADC 


28 


CCE8 


07 


OADC 


28 


00 63 


07 


OAOC 


28 


0CE3 


07 


OADC 


28 


10 2 


07 


OAOC 


28 


01GE 


07 


OAOC 


28 


0118 


07 


OADC 


28 


0113 


07 


OADC 


28 


cue 


07 


OADC 


23 


C12S 


07 


OADC 


2 8 


0128 


07 


OADC 


2 8 


012C 


07 


OADC 


28 


0146 


07 


OADC 


28 


015A 


07 


OADC 


28 


172 


07 


OAOC 


28 


017A 


07 


OADC 


28 


017 A 


07 


OADC 


28 


017E 


07 


OA DC 


2 8 


1 8 A 


07 


OADC 


28 


C18A 


07 


OADC 


28 


018E 


07 


OADC 


23 


01A4 


07 


OADC 


2 8 


01 A E 


07 


OAOC 


28 


0188 


07 


OADC 


28 


01C4 


07 


OADC 


20 


01D2 


07 


OAOC 


28 


0102 


07 


OADC 


28 


01D6 


07 


OADC 


28 


1FO 


07 


OA DC 


2 8 


20 3 


07 


OA DC 


2 3 


C214 


07 


OAOC 



43 6 7 
4363 
4 3 6 9 
43 70 
4371 
4 3 72 
4373 
43 74 
4375 
4 376 

437 7 
43 7 8 
4 3 7 9 
4380 
4331 
4382 
4383 
4384 
4335 
4386 

438 7 
4338 
4389 

439 
4391 
4392 
439 3 
4 394 
439 5 
4 39 6 
439 7 

439 8 
4 39 9 
4400 
4 401 

440 2 
4403 
4404 
440 5 
4406 
440 7 
4408 
4409 
4410 
44 1 1 
4412 
4413 
4414 
4415 
44 1 6 
4417 
4418 
4419 
4420 
442 1 
442 2 



SEGMENT PROCEDURE ARG23<R1>; 

BEGIN LOGICAL SAVER1; SAVER1 := RlJ 



CASE R3 OF 
BEGIN 

BEGIN 

RO 

R6 

R5 

R3 

RO 

RO 

ENOJ 

NULL! 

BEGIN 

Rl 



COMMENT IS ; 

:= TYPEINF0IR7) SHLL 24 SHRL 8 OR CL I I OR 

LSTACKM4CR5) ; EMIT; 

:= i; R3 := LSTACKM41 R5 ) ; RELEASE; 

:= R5 - 4; resetrecord; 
:= LOGPO INTER + 8,* LOGPOINTER := R3J 
:= 0; L0GSTACK(R3) : = RO ; LOGSTACK. ( R3-41 := ROJ 
= #0108; INDICATEBRANCHj R7 := #86000000; 



61 



CALL WITH NO PARAMETERS. CHECK 



COMMENT , ; 

= R7 SHRL 24; 
IF Rl = FUNCID THEN 
BEGIN COMMENT PROCEOUR 
IF TYPED; 

GETTYPE; IF R3 = THEN 
BEGIN COMMENT PROPER PROCEDURE; 

DUMPALLGENR£G;DUMPALLFLREG;R3:=R3-R3;PRGCCALLCQDE; 
R7 := SIGN; 
END ELSE 

BEGIN COMMENT TYPED - END OF TYPED PROCEDURE; 
TERMPROCEXTT; R7 := R6 SHLL 24 OR SIGN; 

END; 
END ELSE 
IF R7 >= AMD Rl -= SEG AND R 1 -.= RCCLOC THEN 

TERMPROCEXTT; 
CONVERTRESULT; 
END; 
BEGIN COMMENT WHILEOP ; 

IFJAP.G2; 
END; 
BEGIN COMMENT WHILEST J 

IF R7 >= AND R7 -.= NULLST THEN CALLPROPRGCWOPARAM; 
RO := #47F0E000 OR STACKP4<R8) ; EMIT; 
R3 := INSCOUNTER; FIXUP; R3 := LOGPOINTER - 4, 
LOGPOINTER := R3; R7 := SIGN; 

END; 
BEGIN COMMENT IFJ ; 

IFJARG2; 
END; 

BEGIN COMMENT UMINUS ; 
CONVERT; LOAOREG; 
R6 := R7 SHLL 1 SHRL 2 5; 

RO := LSTACKM4(R5) ; R3 s= RO; RO := RO OR #03000000; 
ASSEMBLE; 

CONVERTRESULT; R7 := R7 AND OPCODEMASK; 
END; 
BEGIN COMMENT ABS ; 

CONVERT; IF R7 < THEN R3 := R7 SHLL 1 SHRL 25 ELSE 

GETTYPE; IF R3 < 4 THEN 

BEGIN LOADREG; 

R6 := R7 SHLL 1 SHRL 25; 



62 
63 



64 



65 



66 



67 



68 
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PL 360 COMPILATION 
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28 


021E 


07 


OADC 


28 


230 


C7 


OADC 


28 


0230 


07 


OADC 


28 


23 8 


07 


OADE 


28 


0243 


07 


OADE 


28 


02 50 


07 


OADE 


2 3 


02 64 


07 


OADE 


28 


26C 


07 


OADE 


28 


274 


07 


OADE 


28 


02 SC 


G7 


OADE 


28 


28C 


07 


OADE 


28 


029A 


07 


OADE 


28 


029A 


07 


OADE 


28 


02 9E 


07 


OADE 


28 


2A2 


07 


OADE 


28 


G2A6 


07 


OADE 


28 


2 AC 


07 


OADE 


28 


02C0 


07 


OADE 


28 


G2CC 


C7 


OADE 


28 


2 CO 


07 


OADE 


2 8 


02 fcO 


07 


OAOE 


28 


02E0 


07 


OADE 


28 


02EE 


07 


OADE 


28 


2F6 


07 


OADE 


28 


0302 


07 


OADE 


Zh 


031 A 


07 


OADE 


28 


03 2 6 


07 


OADE 


28 


033A 


07 


OADE 


28 


034 A 


07 


OAOE 


23 


34 A 


07 


OADE 


28 


0336 


07 


OADE 


28 


Q33E 


07 


OADE 


28 


03 5 E 


07 


OADE 


28 


035E 


07 


OADE 


28 


0362 


07 


OADE 


2 8 


362 


07 


OADE 


28 


0366 


07 


OADE 


23 


0372 


07 


OAOE 


28 


037C 


07 


OADE 


2 8 


03 88 


07 


OADE 


28 


0398 


07 


OADE 


28 


C398 


07 


OADE 


2 3 


03 9 C 


07 


OADE 


28 


03AG 


07 


OADE 


28 


03A4 


37 


OADE 


28 


03B2 


07 


OADE 


28 


83 2 


07 


OADE 


28 


0366 


07 


OADE 


2 8 


03 04 


07 


OADE 


23 


3C4 


07 


OADE 


28 


03C3 


07 


OADE 


28 


3C8 


07 


OADE 


28 


03CC 


07 


OADE 


28 


03D3 


07 


OADE 


28 


0308 


07 


OADE 


26 


3DC 


07 


OADE 


IB 


03 EC 


07 


OADE 


28 


03FE 


07 


OADE 



4423 
4424 
442 5 
442 6 
4427 
44 2 8 

442 9 
4430 

443 1 
4432 
44 3 3 
44 34 
4435 
443 6 
443 7 
443 8 

443 9 
4440 
4441 
4442 
4443 
4444 

/j. ty /j. 3 

444 7 

444 3 

4449 
4450 
4481 
44 5 2 
4453 
4454 

445 5 
4456 
445 7 
445 8 

445 9 

446 
4461 
446 2 
4463 
4464 
446 5 
4466 
446 7 

446 8 
4469 
4470 
4471 
4472 
44 7 3 
4474 

447 5 
4476 
4477 
447 8 
4479 
4480 



P.O := LSTACKM4CR5); R3 s= RO; ASSEMBLE; 

END ELSE 

BEGIN SHORT INTEGER SAVETYPE; SAVETYPE : = R3i 
STFUNCTION; RO := 3ARITHFN; RO := NEG RO; 
R3 := SAVETYPE - 1; COMMENT 3=CABS, 4=LCABSJ 
R3 := R3 SHLL 16; EMITCALL; R3 : = SAVETYPE; 
IF R3 = 4 THEN 

BEGIN RO := #C0000000; R7 : = #82000000; END ELSE 
BEGIN R0:=#8000Q000; R7: =#83000000; END; FLREG; 

end; 

CONVERTRESULT; R7 := R7 AND OPCQDEMASK; 
END; 

null; 69 

null; 70 

begin comment log-' ; 71 

IF R7 >= THEN 

BEGIN LOGCCMPAREj R3 := LOGPOINTER + 8; 

LOGPOINTER : = R3; RO := 0; L0GSTACK1R3I := RO; 

L0GSTACK1R3-4J := RO; 

RO := #0107; INOICATEBRANCH; 
END ELSE 

BEGIN R3 := R7 SHLL 8 SHRL 24; 
IF R3 = 1 THEN 

BEGIN RO J= LSTACKM4<R5) OR CLII OR #00010000; 
EMIT; R3 : = LOGPOINTER + 8; LOGPOINTER := R3; 
RO := 0; L0GSTACKCR3J := RO; LQGSTAGK1R3-4) :=ROj 
R3 := LSTACKN4{R5); R5 := R5 - 4; RELEASE; 
RO := #0107; INOICATEBRANCH; 
END ELSE 
BEGIN R3 := LOGPOINTER; RO := LOGSTACKH R3) XOR 

#0300; L0GSTACKLCR3) := RO; 
END; 
END; 

R7 :=#86000000; 
END; 

BEGIN COMMENT BIT-* ; 72 

LOAOREG; 

P. 6 := R7 SHLL 1 SHRL 2 5; 

RO := LSTACKM4CR5) AND MASKS OR #57000000; 
RO := RO OR ALLONES; EMIT; 
END; 

NULL; 73 

NULL; 74 

BEGIN COMMENT GOTO ; 75 

R3 := 6; ENTRYEXIT; 
END; 

BEGIN COMMENT : ; 76 

R3 :■= 5; ENTRYEXIT; 
END; 

BEGIN COMMENT STACKAOOR ; 77 

END; 
BEGIN 78 

IFJARG2; 
END; 
BEGIN COMMENT CARD ; 79 

R3 := SAVEL; R3 := TREECR3) AND MASK; CARDNUH := R3J 

RiO:=RUNERRPTj R0:=R7 SHRL 24; IF R0^=PROCDC THEN 

BEGIN Rl := RIO - 4; RO := Bl AND MASK; 
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28 


040C 


07 


OAOE 


28 


Q4 1C 


07 


OADE 


• 28 


04 24 


07 


OAOE 


2 8 


4 24 


07 


OADE 


28 


04 3 6 


07 


OADE 


• 28 


C4 36 


07 


OADE 


28 


043 6 


07 


OADE 


28 


0436 


07 


OADE 


# 2 3 


C44E 


07 


OADE 


2 8 


04 5 8 


07 


OADE 


2a 


0464 


07 


OADE 


• 2B 


046E 


07 


OADE 


28 


47 6 


07 


OADE 


28 


0486 


07 


OADE 


# 28 


04 54 


G7 


OADE 


• 28 


4A0 


07 


OADE 


28 


04 A 


07 


OADE 


:{§ 28 


0404 


07 


OADE 


28 


4 8C 


07 


OADE 


:j 2 8 


04 ac 


07 


OADE 


• 28 


C4CA 


07 


OADE 


1 28 


04 C 8 


07 


OADE 


;: 28 


04D8 


07 


OADE 


28 


04 DC 


07 


OADE 


28 


04 E4 


07 


OADE 


28 


4E4 


07 


OADE 


1 # 28 


04E4 


07 


OADE 


28 


04F0 


07 


OADE 


28 


5 C 2 


07 


OADE 


28 


0502 


07 


OADE 


2 8 


0506 


07 


OADE 


2 8 


506 


07 


OADE 


28 


50 A 


07 


CADE 


2 8 


G51E 


07 


OADE 


28 


5 22 


07 


OADE 


# 28 


0530 


07 


OADE 


28 


5 3 8 


07 


OADE 


28 


0540 


07 


OADE 


^ 28 


554 


07 


OADE 


28 


0564 


07 


OADE 


28 


0576 


07 


OADE 


^ 28 


C53A 


07 


OADE 


28 


C58A 


07 


OADE 


28 


59C 


07 


OADE 


# 28 


053 


07 


OADE 


28 


5D4 


07 


OADE 


28 


05F0 


07 


OADE 


• 28 


5F4 


07 


OAOE 


28 


5FC 


07 


OADE 


2 8 


06 04 


07 


OADE 


# 28 


06CE 


07 


OADE 


2 8 


6 1 A 


07 


OADE 


28 


06 1 E 


07 


OADE 


# 28 


0626 


07 


OADE 


28 


062E 


07 


OADE 


2 8 


C62E 


07 


OADE 


£ 28 


62 2 


07 


OADE 


28 


063 A 


07 


OADE 



44 8 1 
4432 
44 83 

4484 
4485 
44 36 
44 3? 
44 3 8 
4430 
4490 
4401 
4402 
4493 
4494 
449 5 
449 6 
4497 

449 8 
4499 
4500 

450 1 
4502 
4503 
4504 
4505 
4506 
4507 
450 8 
450 9 
4510 
45 1 1 
4 512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4 524 
452 5 
4526 
4527 
4528 

452 9 
4530 
4531 

453 2 
453 3 
453 4 
4535 
4536 
4 53 7 
453 8 



IF KO = CARONUM THEN GOTO H; RO := Bl SHRL 16; 

IF RO = INS COUNTER THEN 

BEGIN 

RO := Bl AMD MASK1 OR R3; 8 1 := RO; GOTO H; 

END; 
END; 

COMMENT CHECK. IF CARD TABLE WILL OVERWRITE TREE; 
IF RIO >= TREEBASE THEN BEGIN R3 : = 6; EROR; END; 
Rl := INSCOUNTER SHLL 16 OR R3; 

BIO := Rl; RIO := RIO + 4; RUNERRPT :» RIO; 

H: Rl := R7 SHRL 24; R8 := R8 - SSIZE; 
IF Rl = PRO CDC THEN 
BEGIN R10:=R10-4; R3:=B10 AND MASK; BiO:=R3j 

R3 := 1; ENTRYEXIT; 
END ELSE IF Rl = BEGINN THEM 

BEGIN COMMENT CHECK FOR BLOCK OR COMPOUND STATEMENT; 

R3: = STACK(R8) AND MASK; R3: = TREE(R31 SHLL 1 SHRL 25; 

IF R3 = 3BB THEN 

BEGIN COMMENT BLOCK ENTRY; 
R3 := 3; ENTRYEXIT; 
Rl := SIGN; R3 := R8 - SSIZE; STACKP8CR3) := Rl; 

END ELSE 

BEGIN COMMENT COMPOUND STATEMENT; 
Rl := 0; STACKP8(R8) := Rl; 

END; 
EUD ELSE 

IF Rl = ARRAYDC THEN 

BEGIN R3 := 3INITA0CL; ARRAYS; R7 :■= SIGN; 
END; 

P. 8 := R8 + SSIZE; 
EN D ; 

BEGIN COMMENT CASE ; 80 

R3 := 0; IC( R3 f TREECR6+1 ) ) ; IF R3 > 5 THEN R3 := 05 
STACKP8{R8+12) := R3 ; 
RIO := R6; LOADREG; 
RO ;= TREEiRlO); TEMP := RO; 
RO := RO AMD MASK OR #41000000; 
IF CHECKFLAG THEN EMIT; 

R3 ■:= LSTACKM4CRS) XOR SIGN; IF CHECKFLAG THEN 
BEGIN RO := R3 OR #15000000; EMIT; 

RO := #45100000 OR CASEERR; EMIT; 
END; 

RO := R3 OR #8 8000002; EMIT; 
R'3 := LSTACKM4(R5) ; R6 : = 1; RELEASE; 
HARKRECORDS? DUMPALLGENREG; DUMPALLFLREG; 
RO s= LSTACKM4LR5) XOR SIGN SHRL 4 OR #47FO00G0; EMIT; 
R5 := R5 - 4; 
RO := INSCOUNTER - 4; 
R3 := LOGPO INTER + 4; 

RIO := TEMP SHLL 16; RO := RO OR RIO; 
L0GSTACKCR3) : = RO ; R3 := R3 + 4; CL l( 6, TEMP( 113 ; 
IF = THEN 
BEGIN RIO := 0; L0GSTACKCR3+4) ::= RIO; 

L0GSTACKLR3) : = RIO; R3 := R3 ♦ 8j 
END; 

LOGPOINTER := R3; 
RO := 0; L0GSTACKCR3) := RO ; 
END; 
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28 


063 A 


07 


OADE 


28 


06 3 E 


07 


OADE 


2 8 


64 2 


07 


OADE 


2 3 


C69E 


07 


OADE 


28 


G6A2 


07 


OADE 



453 9 


NULL; 


454 


null; 


4541 


END; 


4542 


Rl := SAVER 1 


4543 


end; 



81 
82 



SEGMENT 28 NAME = SEG#28 



LENGTH = 0718 BASE REG = 15 



21 


C *5 6 C 


07 


OADE 


21 


0^60 


07 


OADE 


29 


OOOO 


07 


0AE4 


29 


OOCO 


07 


0AE4 


29 


00 


07 


0AE4 


29 


or 04 


07 


0AE8 


2 9 


ore 8 


07 


0AE3 


29 


000 E 


07 


0AE8 


29 


02 6 


07 


0AE8 


29 


02 A 


07 


0AE8 


29 


002C 


07 


0AE3 


29 


0C2C 


07 


0AE8 


29 


002C 


07 


0AE8 


29 


00 30 


07 


OAEC 


29 


0C48 


07 


OAEC 


29 


0C5C 


07 


OAEC 


29 


0064 


07 


OAEC 


29 


0C64 


07 


OAEC 


29 


0C7C 


07 


OAEC 


29 


0C7C 


07 


OAEC 


29 


0CS4 


07 


OAEC 


29 


0084 


07 


OAEC 


29 


OC84 


07 


OAEC 


2 9 


CC98 


07 


OAEC 


29 


QC9C 


07 


OAEC 


29 


O0A2 


07 


OAEC 


29 


062 


07 


OAEC 


29 


COB A 


07 


OAEC 


29 


0CC6 


07 


OAEC 


29 


COCA 


07 


OA EC 


29 


OOCE 


07 


OAEC 


29 


OOCE 


07 


OAEC 


29 


00D6 


07 


OAEC 


29 


CGD6 


07 


OAEC 


29 


OCDE 


07 


OAEC 


29 


OOOE 


07 


OAEC 


29 


O0E8 


07 


OAEC 


29 


OOF A 


07 


OAEC 


29 


010 4 


07 


OAEC 


2 9 


C10A 


07 


OAEC 


29 


010A 


17 


OAEC 


29 


010E 


07 


OAEC 


29 


010E 


07 


OAEC 


29 


0122 


07 


OAEC 


29 


0122 


07 


OAEC 


29 


0126 


07 


OAEC 


29 


0128 


07 


OAEC 


29 


0128 


07 


OAEC 


29 


0128 


07 


OAEC 


29 


012C 


07 


0AF4 



4544 


4545 


4546 


4547 


4 54 8 


4 54 9 


455 


45 5 1 


455 2 


45 5 3 


4 554 


455 5 


4 5 5 6 


4557 


455 8 


455 9 


4560 


4 561 


456 2 


456 3 


4564 


4565 


4566 


4567 


456 8 


4569 


457 


4571 


4 572 


45 73 


4 574 


457 5 


4576 


4577 


457 8 


4579 


45 80 


4581 


4582 


45 83 


4534 


4585 


458 6 


4 5 87 


45 8 8 


4589 


4590 


4591 


459 2 


4593 



SEGMENT PROCEDURE ARGKRUj 
BEG IN LOGICAL SAVER1; 

PROCEDURE ARGIRELATIQN(RI) ; 
BEGIN LOGICAL SAVER1; 
SAVER 1 := Rl; 
R3 := R7 SHRL 24; 

CONVERT; LOADREG; R6 
Rl := SAVER 1; 
END; 



= P. 6 OR R7; 



PROCEDURE AR61EQUALITIESCR1); 

BEGIN LOGICAL SAVER1; SAVER1 := Rl; 

R3 :■= R7 SHLL 1 SHRL 25; I F R7 > THEN IF R3 ■-.= RCCLID THEN 

GETTY PE ELSE R3 := 9; 
IF R3 < 6 THEN 
BEGIN COMMENT TERMINAL ARITHMETIC QUANTITY; 

CONVERT; LOADREG; R6 := R6 OR R7; 
END ELSE 

BEGIN R3 := R3 - 5; 
CASE R3 OF 
BEGIN 
L EQUAL; 

BEGIN COMMENT = STRING REG1; 
IF R7 >= THEN 

BEGIN GETADDRESS; LSTACKTR5) : = R3; 
IF R3 = #30 00 THEN 
BEGIN R3 := FLAG; R( 6):= R3; RSTACKCR2) := R5 J 

R2 := R2 + 4; 
END; R5 := R5 + 4; 
END; 

R3 ;= LSTACKM4JR5); STACKP40R8) := R3; 
END; 

BEGIN ARG1RELAT10N; 

END; 

BEGIN IF R7 >= THEN 

BEGIN R3 := R7 SHLL 1 SHRL 25; IF R3 = RCCLIO THEN 
BEGIN RECORDALLOCATE; R7 := #89000000; 
END; 
END; 

ARG1RELATI0N; 
END; 
END; 
END; 

Rl := SAVER l; 
END; ' 

PROCEGURE LC0LEQARG1 (Rl); 

BEGIN LOGICAL S AVER1 ,S AVEADD; SAVER1 := Rl; 
IF R7 >= THEN 



PL360 COMPILATION 



ALGOL W COMPILER - PASS 3 



69.326 a 00:02 



PAGE 81 



29 


13 2 


07 


OAF 4 


2.9 


014 


07 


0AF4 


29 


1 5C 


07 


0AF4 


29 


0170 


07 


0AF4 


29 


0170 


07 


0AF4 


29 


018 3 


07 


OAF 4 


29 


0163 


07 


OAF 4 


2 9 


0183 


07 


OAF 4 


29 


19C 


07 


OAF 4 


29 


01AE 


07 


0AF4 


29 


01B6 


07 


0AF4 


29 


01C6 


07 


0AF4 


29 


1 D A 


07 


0AF4 


29 


OIF 2 


7 


OAF 4 


29 


91F2 


07 


0AF4 


29 


01 F2 


07 


0AF4 


29 


OIF 6 


07 


OAF 4 


29 


1 F 3 


07 


0AF4 


29 


OIF 8 


07 


0AF4 


29 


OIF 3 


07 


OAF 4 


29 


01FC 


07 


OAFS 


29 


02G2 


07 


0AF3 


29 


202 


07 


OAFS 


29 


<\212 


07 


OAFS 


29 


021 A 


7 


OAF 8 


29 


022 A 


07 


OAF 8 


29 


C22A 


07 


0AF8 


29 


2 2 E 


07 


OAF 8 


29 


022 E 


07 


OAFS 


29 


0236 


07 


0AF8 


29 


023 A 


07 


OAF 8 


29 


02 30 


07 


OAFS 


29 


023C 


07 


OAFS 


23? 


2 3C 


07 


OAFS 


29 


0240 


07 


OAFC 


29 


24 A 


C7 


OAFC 


29 


02 50 


07 


OA FC 


29 


0256 


07 


OAFC 


29 


02 7A 


07 


OAFC 


29 


028A 


07 


OAFC 


29 


02 8 A 


07 


OAFC 


29 


0294 


07 


OAFC 


29 


2 BE 


07 


OA FC 


29 


C2CE 


07 


OAFC 


29 


2CE 


07 


OAFC 


29 


02CE 


07 


OAFC 


29 


020 6 


07 


OAFC 


29 


G2C8 


07 


OAFC 


2<> 


02C8 


07 


OAFC 


29 


020 8 


07 


OAFC 


29 


02DE 


07 


OAFC 


29 


02 E A 


07 


OAFC 


29 


2F6 


07 


OAFC 


29 


02FE 


07 


OAFC 


29 


0300 


07 


OAFC 


2 9 


0300 


07 


OAFC 


29 


0304 


07 


OAFC 


29 


0304 


07 


OAFC 



459 4 
459 5 

459 6 
45 97 
4 59 3 

45 9 9 
4600 
4601 
4602 
4603 
4604 

460 5 
4606 
4607 

46 8 
4609 
4610 
4611 
4812 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
462 5 
4626 
4627 

462 8 
4629 
4630 
4631 
4632 
4633 
4634 
4 63 5 
4636 
4637 

463 8 

463 9 
4640 
4641 
4642 
4643 
4644 

464 5 
4846 
4647 
4648 
4649 
4650 

465 1 



BEGIN R6 := R6 AND MASK; R3 := TREEIR6); IF R3< THEN 
BEGIN GETADDRESS; SAVEAOD := R3; GENREG; 

RO := RO OR SAVEAOD OR ICC; EMIT; 
END ELSE 

BEGIN GETADDRESS; LSTACKIR5) := R3; R5 := R5 + 4; 
END; 
END ELSE 

BEGIN R3 := R6 AND MASK; R3 := TREECR6); IF R3 < THEN 
BEGIN R3 := R7 S HLL 8 SHRL 24; IF R3 = 1 THEM 
BEGIN RO := L STACKM4I R5) *, R7 : = R7 AND HASK7; 

RIO := RO AND BASEMASK SHLL 8; RO := RO OR RIO OR ICC; 
RIO := RIO OR SIGN; LSTACKM4IR5) := RIO; EMIT; 
END ELSE IF R3 -»= 2 THEN EVALUATELOG; 
END; 
END; 

Rl := SAVER L; 
END; 

PROCEDURE SC0LEQARG1 CRD; 

BEGIN LOGICAL SAVER1; SAVER1 := Rl; 
IF R7 >= THEN 
BEGIN COMMENT TERMI NALNODE; 

GETADDRESS; LSTACKCR5) := R3; 
IF R3 = #3000 THEN 
BEGIN R3 :* FLAG; R< 6}:= R3; 
END; 

R5 ■:= R5 + 4; 
END; 

R3 := LSTACKM4IR5) ; STACKP4CR3) : = 
Rl := SAVER 1; 
END; 



RSTACMR2) := R5; R2:=R2+43 



R3 ; 



PROCEDURE RCQLEQARGlCRin 

BEGIN LOGICAL SAVERL; SAVERl := Rl; 
R3 := TREECR6); IF R3 < THEN " 
BEGIN IF R7 >= THEN 

BEGIN R3 := R7 SHRL 24; 

IF R3 = RCCLIO THEN RECORDALLOCATE ELSE LOADREG; 
END ELSE LOADREG; 
END ELSE 
BEGIN IF R7 >= THEM 

BEGIN GENREG; GETADDRESS; RO := RO OR R3 OR LAA; EMIT; 

RO s= LSTACKM4CR5) SHLL 1 SHRL 9; LSTACKH4(R5) := RO; 
END; 
E NO ; 



R* 

END; 



:= R8 OR #89000000; Rl 



SAVERl; 



PROCEDURE ARGlFORLIST(Rl) ; COMMENT SAVE FOR VAR ADDR, INITIALIZE STACK; 
IF R7 >= THEN 

begin ro := 0; stackp4<r8) := ro ; stackp8(r8) := ro; 

ro := idl0ckr7) shll 12 + ioloc2cr7); 

r5 := r5 + 4; lstackm4{r5) := ro; 
end; 

SAVERl := Rl; 
COMMENT ARG1J 

RESETIARGFLAO); 



PL360 COMPILATION 



ALGOL W COMPILER - PASS 3 



69.326 a OOi 



PAGE 82 



29 


03 C 8 


07 


OAFC 


29 


03C8 


07 


OAFC 


29 


03G8 


07 


OAFC 


29 


0310 


07 


OAFC 


29 


3 2 a 


07 


OAFC 


29 


03 2 8 


07 


OAFC 


29 


032C 


07 


OAFC 


29 


0344 


07 


OAFC 


29 


0344 


07 


OAFC 


19 


034 3 


07 


OAFC 


29 


03 62 


07 


OAFC 


29 


C366 


07 


OAFC 


29 


036 8 


07 


OAFC 


29 


036 3 


07 


OAFC 


29 


03 6 C 


07 


OAFC 


29 


038A 


07 


OAFC 


29 


039 2 


07 


OAFC 


29 


0394 


07 


OAFC 


29 


0394 


07 


OAFC 


29 


0398 


07 


OAFC 


29 


03A2 


07 


OAFC 


29 


03 84 


07 


OAFC 


29 


03 84 


07 


OAFC 


29 


383 


07 


OAFC 


29 


030C 


07 


OAFC 


29 


G38C 


07 


OAFC 


29 


03C0 


07 


OAFC 


29 


03 C A 


07 


OAFC 


29 


3EC 


07 


OAFC 


29 


36 2 


7 


OAFC 


29 


03 1 2 


07 


OAFC 


29 


03c 6 


07 


OAFC 


2 9 


03 E A 


07 


OAFC 


29 


C3EA 


07 


OAFC 


29 


03EE 


07 


OAFC 


29 


03F2 


07 


OAFC 


29 


C3F2 


07 


OAFC 


29 


03F6 


07 


OAFC 


23 


03 F A 


07 


OAFC 


29 


C3FE 


07 


OAFC 


29 


040 6 


07 


OBOO 


29 


0414 


07 


800 


29 


04 IE 


07 


0800 


29 


042A 


07 


0800 


29 


042 A 


07 


0800 


2<» 


043 


07 


OBOO 


29 


04 30 


07 


OBOO 


29 


04 3 C 


07 


OBOO 


29 


0440 


07 


OBOO 


23 


0440 


07 


OBOO 


29 


0454 


07 


OBOO 


29 


04 5E 


07 


OBOO 


29 


046 E 


07 


800 


29 


04 7 A 


07 


OBOO 


29 


04 7E 


07 


OBOO 


29 


0492 


07 


OBOO 


29 


040C 


07 


OBOO 


29 


0-488 


07 


OBOO 



4652 
4653 
4654 
465 5 
4656 
465 7 

465 8 
46 5 9 

466 
466 1 
4662 
4663 
4664 
4685 
4666 
4667 
466 8 

466 9 
4670 
4671 

467 2 
46 73 
4674 
46 7 5 
46 7 6 
4677 

467 8 
4679 
4680 
463 1 

468 2 

468 3 
46 34 
4685 
4686 
463 7 
4638 
4639 

469 
469 1 
4692 
4693 
4694 
469 5 
4696 
469 7 
469 8 
4699 
4700 
4701 
4702 
4 703 
4704 
4705 
4708 
4707 
4708 
4 709 



CASE R3 OF 
BEGIN 

BEGIN COMMENT + ; 

CONVERT; LOADREG; R6 := R6 OR R7; 
END J 
BEGIN COMMENT - ; 

CONVERT; LOADREG; R6 := R6 OR R7; 
END; 
BEGIN COMMENT * ; 

CONVERT; SETTPAIRFLAG) ; LOADREG; 

RESET* PAIRF LAG); 

R6 := R6 OR R7; 
END; 

BEGIN COMMENT / ; 

CONVERT; SET(PAIRFLAG) ; SETCDIVIDE); LOADREG; 
RESET (PA1RFLAG) ; RESET (01 VI DE) ; 

R6 := R6 OR R7; 
END? 
BEGIN- COMMENT ** ; 

CONVERT; COMMENT ON BASE SIDE; 

LOADREG; R6 := R6 OR R7; STACKP4(R8> := R7? 
END; 
BEGIN COMMENT L:= ; 

LCOLEQARGl; 
END; 
BEGIN COMMENT A: = ; 

RIO := TREEIR6); IF RIO < THEN 

BEGIN CONVERT; LOADREG; END; 

R6 := R6 OR R7; 
END; 
BEGIN COMMENT $:= ; 

SCOLEQARGl; 
END; 
BEGIN COMMENT R:= ; 

RCOLEQARGl; 
END; 
NULL; 

null; 

begin comment stepuntil ; 

logical saver6; saver6 := r6; rb := 0? 

Rl := R7 SHRL 24; IF Rl = NUMBER THEM 
BEGIN Rl := R7 AND #FFFF + CPTBASE; 

Rl := CONSPTTAB(Rl) AND #FFFF ; R6 := PROGRAMME Rl) ; 

END; 

IF R6 < THEN 

BEGIN COMMENT NEGATIVE CONSTANT; 

R5 := R5+4; Rl := Rl OR #E0OC; LSTACKM4CR5 3 '.- Rl; 

RO := 1; COMMENT TYPE 1; 
END ELSE 
BEGIN LOADREG; RIO : ■= NEXTADDR; 

IF R6 > THEN RIO := RIO + 7 AND #FFF8 
ELSE RIO ■:= RIO + 3 AND #FFFC; 

NEXTADDR := RIO; R3 s= LSTACK«4{R5) AMD #00FO0000; 

LSTACKM4IR5) := RIO; 

RO :■= #50000000 OR R3 OR RIO; EMIT; 

IF R6 > THEN RIO := 8 ELSE 

BEGIN RO := R3 SHRL 4 OR R3 OR #12000000; EMIT; 
RO := #41000020 OR R3; EMIT; 
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4710 
4711 
4712 
4713 
H 1 1 4 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
472 2 
472 3 
472 4 
472 5 
4726 
4 72 7 

472 8 
4729 
4730 
4731 
4732 
4733 
4734 

473 5 
4736 
4737 
47 3 8 
47 39 
4740 
4741 
4742 
4743 
4 744 
4745 
4 746 
4747 
4748 
4749 
4750 
4751 

475 2 
4 75 3 
4754 
4755 
4756 
47 5 7 
4758 
4759 
4760 

476 1 
4762 
476 3 
4764 
476 5 
4766 
4767 



RO := #47ACE006 ++ INSCOUNTER; EMIT; 

RO := R3 SHRL 4 OR R3 OR #1E000000; EMIT; 

RO :,= #50000008 OR R3 ++ RIO; EMIT 5 RIO := 12; 
END; 

R6 := l; R3 := R3 OR SIGN; RELEASE; 

RO := RIO SHRL 2; COMMENT TYPES 2, 3; INCRADDR; 
END; 

R3 := R8 - SSIZE; STACKP4(R3) := RO; STACKP4CR8) := RO; 
R6 := SAVER6; 

end; 

BEGIN COMMENT DIV 5 

RIO := TREE(R6»; IF RIO > THEN 

BEGIN 

SET(PAIRFLAG) ; SET (DIVIDE); LOADREG; 

P. ESET C PAI RF LAG ) ; RESET C 01 VIDE); 

END ELSE LOADREG; 

R6 := R6 OP. R7 ; 
END; 
BEGIN COMMENT REM ; 

RIO := TREEIR6); IF RIO > THEN 

BEGIN 

SET(PAiRFLAG); SET (01 VIDE ) ; LOADREG; 

RESET(PAIRFLAG) ; RESET (DIVIDE* ; 

R6 := R6 OR R7; 

END ELSE LOADREG; 
END; 
BEGIN COMMENT < ; 

ARG1 EQUALITIES; 
END; 
BEGIN COMMENT <= J 

ARG1 EQUALITIES; 
END; 
BEGIN COMMENT > ; 

ARG1EQUALITIES; 
END; 
BEGIN COMMENT >= ; 

ARG1 EQUAL! TIES; 
END; 
BEGIN COMMENT = ; 

ARG1 EQUALITIES; 
END; 
BEGIN COMMENT -»= ; 

ARG1 EQUAL I TIES; 
END; 
NULL ; 
BEGIN COMMENT L:=2 ; 

LC0LEQARG1J 
END; 
BEGIN COMMENT A:=2 J 

CONVERT; LOADREG; 
END; 
BEGIN COMMENT S:=2 ; 

SCOLEQARGl; 
END; 



13 
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15 



16 



17 



BEGIN COMMENT 
RCOLEQARGl; 

end; 
null; 



Ri=; 
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477 1 


4 7 72 
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4775 


4776 


477 7 
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NULL; 27 

NULL; 28 

BEGIN COMMENT AP) ; 29 

IF R7 >= THEN 
BEGIN Rl := R7 SHRL 24; 
IF Rl = FUNCID THEN 
BEGIN COMMENT PROCEDURE CALL? 

R3 := 1; PARAMETERS; 
END ELSF IF Rl = STFUNCID THEN 
BEGIN Rl 1= P,7 AND MASK; R3 : = Rl OR SIGN; 

STACKP8CR8) := R3 ; RO := RO ~ ROj Rl s= Rl / 12; 
END ELSE IF Rl = STPROCID THEN 

BEGIN Rl := R7 AND MASK OR SIGN; STACKP8CR8) := Rl; 
IF PI = SREAD THEN 

BEGIN RO := MVI I OR #FFOOOO OR READFLAG; EMIT; 
END ELSE 

IF Rl = SWRITE THEN 

BEGIN RO := MVI I OR #FF0000 OR WRITEFLAG; EMIT; 
END; 
END; 

end; 
END; 

BEGIN COMMENT INDX ; 30 

Rl := R7 SHRL 24; IF Rl = ARRAYID THEN 

begin r3 := 3initaref; arrays; end; 

end; 

begin comment refx ; 31 

IF R7 < THEN 

BEGIN RO := LS TACKM4I R5) ; 
IF RO > THEN 

BEGIN R3 := RO SHLL 8 AND MASKS; RO := RO OR R3; 
R3 := R3 OR SIGN; LSTACKM4< R5) := R3 ; 
RO := RO OR #5 8000000; EMIT; 
END; 

END ELSE 

LOAOREG; 

R7 : = #89000000; 
END, 
BEGIN COMMENT IFEXP ; 

IFSTANDEXP; 
END; 
NULL; 
NULL; 
BEGIN COMMENT SHL ; 

P. 10 := TREEIR6); 

IF RIO < THEN SHIFTAMOUNT ELSE LOADREG; 

R6 := R6 OR R7 ; 
END; 
BEGIN COMMENT SHR ; 36 

RIO := TREECR6); 

IF RIO < THEN SHIFTAMOUNT ELSE LOADREG; 

R6 := R6 OR R7 ; 
END; 

BEGIN COMMENT BB ; 37 

END; 

BEGIN COMMENT END ; 38 

END; 
BEGIN COMMENT PCL ; 39 



32 
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4826 
4827 
4828 
4329 
4830 
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4859 
436 
4 86 1 

436 2 
4363 
4864 
4365 
4866 
4867 
4363 
4369 

437 
4871 
4872 
437 3 
4374 
487 5 
4876 
4377 
48 78 
4879 
4880 
48 81 
43 3 2 
4833 



END; 

BEGIN COMMENT SUBSTRIN ; 40 

END; 

BEGIN COMMENT 1 ; 41 

R3 := R7 SHRL 24; If R3 = NUMBER THEN 
BEGIN Rl := CPTBASE; R3 := R7 + Rl; 
R3 J= C0NSPTTAB1R3) AND MASK; 

RO := CONSPTTAB(Rl) AND MASK; R3 := R3 - RO; 
R3 := R3 + CONS TAB; R3 := B3; 

IF R3 < THEN R3 := ELSE R3 := R3 OR SIGN; 
END ELSE R3 := 0; 
STACKP4LR8) := R3 ; 
LOADREG; R6 := R6 OR R7 ; 
END; 

BEGIN' COMMENT AP, ; 42 

IF R7 >= THEN 
BEGIN Rl := R7 SHRL 24; 
IF Rl = FUNCID THEN 
BEGIN COMMENT PROCEDURE CALL; 

R3 := I; PARAMETERS; 
END ELSE IF Rl = STPROCID THEN 

BEGIN Rl := R7 AND MASK OR SIGN; STACKP8CR8) := Rl; 
IF Rl = SREAO THEN 

BEGIN RO := MVII OR MFFOOOO OR READFLAG; EMIT; 
END ELSE 

IF Rl = SWRITE THEN 

BEGIN RO := MVII OR #FFOOOO OR WRITEFLAG; EMIT; 
END; 
END; 
END; 
END; 

BEGIN COMMENT R, ; 43 

IF R7 >= THEN 

BEGIN R3 := R7 AND MASK. + 12; STACKP4CR8) :-= R3; 
R3:=R3+12; STACKP4( R8+12 ) :- R3 ; RECOROALLOCATE; 
END ELSE 

BEGIN R3 := STACKPMR8) + 125 STACKP4C R8+ 12) :*R3j 

END; 

R7 := #89000000; 
END; 

BEGIN COMMENT AR, ; 44 

END; 

BEGIN COMMENT ARJ ; 45 

END; 

BEGIN COMMENT R) 5 46 

IF R7 >= THEN 
BEGIN R3 := R7 AND MASK + 12; STACKP4CR8) :« R3; 

RECOROALLOCATE; 
END; 
END; 

begin comment loggr ; 47 

reset (andfl ag) ; amd0rarg1; 
end; 
begin comment bitor ; 48 

loadreg; r6 : = r6 or r7 ; 

END; 

BEGIN COMMENT LOGAND ; 49 

SETC AMDFLAG ) ; AN0ORARG1 ; 
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end; 






BEGIN 


COMMENT 


BIT AND ; 


LOAOKEG; K6 z- 


-- R6 OR R7; 


ENOi 






BEGIN 


COMMENT 


ITER ST ; 


end; 






BEGIN 


COMMENT 


ITERST2 ; 


END; 






BEGIN 


COMMENT 


FORLIST ; 


ARG1F0RLIST; 


R6 := R6 OR #81000000; 


END; 






BEGIN 


COMMENT ' 


FORCL ; 


END; 






BEGIN 


COMMENT 


ENDFORL I ; 


ARGIFORLISTJ 




END; 






BEGIN 


COMMENT 


ujifexp ; 


END; 






BEGIN 


COMMENT 


UJ ; 


end; 






BEGIN 


COMMENT 


CL ; 


end; 






BEGIN 


COMMENT 


IFST ; 


IFSTANDEXP; 




end; 






BEGIN 


COMMENT 


* * » 


■LOADREG; 


R6 := R6 OR R7 ; 


R3 


:= 3LB0UND 


; ARRAYS; 


end; 






BEGIN 


COMMENT 


is ; 


IF 


R7 >= THEN 


BEGIN 






GETAODRESS 


; IF R3 = #3000 THEN 




BEGIN GENREGJ Rl s= RO SHRL 8; LSTACKMMR5) 




RO := RO OR LAA OR #3000? EMIT; 




END ELSE 






BEGIN LSTACKCR5) := R3; R5 := R5 + 4; 




END; 




end; 




end; 






NULL ; 






BEGIN 


COMMENT 


t ; 


end; 




, 


BEGIN 


COMMENT 


WHILEOP ; 


RO 


s = INSCOUNTER; STACKP4(R8 + 12) :■= RO; 


end; 






BEGIN 


COMMENT 


WHILE ST ; 


END; 






BEGIN 


COMMENT 


IFJ ; 


MARKRECORDS; 


DUMPALLGENREG; DUMPALLFLREG J 


end; 






END; 






Rl : = SAVER 1 


J 




:nd; 
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OB 80 


30 


OOAE 


07 


0B8C 


30 


8 2 


07 


08 80 


30 


C0B4 


C7 


OBBC 


30 


0084 


07 


088C 


30 


0084 


07 


OBBC 


30 


OOBC 


07 


OB 94 


30 


€004 


07 


0B94 


3-0 


OOCE 


07 


0894 


30 


OOOE 


07 


08 94 


30 


( 0E8 


07 


0B94 


30 


OOF 4 


07 


OB 9 4 


30 


0102 


07 


0B94 


30 


0102 


07 


0894 


3 


01CC 


07 


OB 94 


30 


1 L 8 


07 


0B94 


30 


C11A 


07 


0B94 


30 


1 1A 


07 


OB 94 


30 


011A 


07 


0394 


30 


0126 


07 


OB 94 


30 


013 


07 


OB 94 


30 


0142 


07 


0B94 



4939 
4940 
4941 
4942 
4043 
4944 
4945 
4946 
494 7 
494 8 

494 9 
4950 
49 51 

495 2 
495 3 
49 54 
49 5 5 
4956 

495 7 
4958 
4959 
4960 

496 1 
4962 
4963 
4964 
496 5 
4966 
4967 
4968 

496 9 
49 70 
49 7 1 
4972 
4973 
49 74 
4<?75 
4976 
4977 

497 8 
4979 
4930 

498 1 
493 2 
4983 
4984 
4985 
4986 
49 37 

498 8 
4989 
4990 
4991 
4992 
49 9 3 
4994 

499 5 
4996 



- ME NT P RO C ED UR E OUT PU T S E G ( R 1 ) ; 
BEGIN COMMENT PRODUCE OBJECT MUOULE 
COMMENT SEE SRL FORM Y28-6610 
ARRAY 5 LOGICAL SAVERS; 
ARRAY 20 INTEGER CARD; 

ARRAY 40 SHORT INTEGER SCARO 
SHORT INTEGER SB2 SYN B2; 
BYTE SO SYN 0, ER SYN 2; 
ARRAY 2 INTEGER PTLIfS; 
INTEGER PTLOW SYN PTLIMS(O); 
INTEGER PTHIGH SYN PTLIMS(4) 



FOR 
FOR 



SYN CARD: 



COMMENT 
COMMENT 



SEGMENT; 
FORMATS 



AND CODES, 



START 
START 



ADDRESS 
ADDRESS 



OF 
OF 



FIELD; 

SEQNO; 



ARRAY 3 SHORT INTEGER MVTREE= ( #D200S , 3Bl t 3B2) , 

MVTXT=t#D200S,3CAR0< 16), OBI ) , MVCARO=( #D200S fd'CARO C 16} ,383) ; 

PROCEDURE MOVETREE(Rl) ; COMMENT MOVES TREE TO RECOVER SPACE; 
IF COMPACTED THEN 
BEGIN R3 := 8; EROR; 
END ELSE 

BEGIN ARRAY 3 LOGICAL SAVE 13; STM{ Rl ,R3 , SAV E13 ) ; SET (COMPACTED) ; 
RO := TREELINK; IF RO < THEN R12 := COMSTART ELSE 
BEGIN Rl := RUNERR5TART + 1024; 

IF Rl < RUNERRPT THEM Rl i- RUNERRPT; 
COMMENT RO = SIZE OF FREE SPACE (MUST 



RO 
BE 

,3 ■:= R12 - TREEBASE; COMMENT # BYTES TO 
TREEBASE; TREEBASE l= Rl; 
R3 > 256 00 

MVC<255fBl t B2); R3 := R3 - 256; 
i= 081(256); R2 := 362(256); 



:= TREEBASE - Rl J 
POSITIVE); 

move; 



R2 : = 

WHILE 

BEGIN 
Rl 

END; 

DECRCR3); 

WHILE Rl > 

BEGIN R2 := 

END; 

R12 := R12 - 
END; 

RO := aCARD; Rl 
LM(R1,R3,SAVE13); 
END; 



EX( R3 f MVTREE) ; 

DO COMMENT 
= MEM(Rl) - RO; 



RO; 

:= R12; R3 :■= 



Rl : = 3TREELINK; 
FIX-UP TREE LINKS; 
MEM(Rl) := R2; Rl 



:= R2; 



APUTCARD; 8ALR(R2,R3); 



PROCEDURE CARDOUT(Rl); COMMENT SET LENGTH FIELD, PUNCH, CLEAR? 
BEGIN INTEGER SAVER1, SAVER3; SAVER1 := Rl; SAVER3 := R3; 
IF R2 -.= PTLOW THEN 
BEGIN RO := R2 - PTLOW; SCARD(IO) s= RO; 

RO := SEQMO+1; SEQNO := RO; CVD( RO,PKDEC) ; 
UNPK(4,2,CARD(75),PK0EC(5)) ; OH »0" , C ARD< 79) ) ; 



RO := 3CARD; Rl 
WHILE RO < DO 

END; 

HVK" ",CARD{ 16) ) ; 

Rl :■= SAVER1; R3 : = 
END; 



:= R12; R3 := APUTCARD; BALR(R2»R3); 
MQVETREE; COMMENT ATTEMPT ERROR RECOVERY; 



MVC(54 f CARDU7),CAR0( 16)) J 

SAVER3; 



R2 



3CAR0(16); 



PROCEDURE SETNAME(Rl); COMMENT RO - SEGNO, NAME TO 82; 
I F RO = THE N MVC ( 7 , 82 , " AWX RCT BL »' ) £ LS E 
BEGIN MVC(3,B2,»AViXS"); 

IF RO < THEN MV I ( »L" , 32(4) ) ELSE MVI (»C», B2( 4) ) ; 

RO := ABS RO; CVD (RO, PKDEC) ; UNPK( 2 , 1 ,82 (5 ) ,PKDEC( 6 ) ) l 
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30 


014E 


07 


0894 


30 


0152 


07 


OB 94 


30 


1 54 


07 


OB 94 


30 


1 54 


07 


0B94 


30 


01 3E 


37 


0B94 


30 


Q16A 


07 


08 94 


30 


016E 


07 


0094 


30 


017A 


07 


0B94 


30 


018A 


07 


0894 


30 


0192 


07 


894 


30 


01.A6 


7 


OB 94 


30 


C18C 


07 


0894 


30 


G1C4 


07 


0894 


30 


1C4 


07 


08 94 


30 


01DO 


07 


08^4 


30 


0104 


07 


OB 94 


30 


01E4 


07 


08 94 


30 


01F4 


07 


0B94 


30 


01FC 


07 


0894 


30 


01FC 


07 


0894 


30 


020C 


07 


0B94 


30 


214 


07 


OB 94 


30 


0214 


07 


OB 9 4 


30 


022 


07 


0894 


30 


02 24 


07 


08 94 


30 


0234 


07 


0B94 


3 


023C 


07 


0894 


30 


0244 


07 


OB 94 


30 


0252 


07 


OB 94 


30 


026 2 


07 


0894 


30 


02 7 2 


07 


0894 


30 


C27 3 


07 


894 


30 


2 7C 


07 


0B94 


30 


0286 


07 


0894 


30 


02 6 A 


07 


0394 


3 


C292 


07 


OB 94 


30 


020 A 


07 


0894 


30 


02 A 8 


07 


0894 


30 


02B2 


G7 


0894 


30 


02C2 


07 


OB 94 


30 


02C E 


07 


0894 


30 


0204 


07 


08 94 


30 


02D8 


07 


0894 


30 


02D8 


07 


0894 


30 


02t"2 


07 


0B94 


30 


02LE 


07 


OB 94 


30 


02FA 


07 


OB 94 


30 


03 C A 


07 


0894 


30 


0316 


07 


OB 9 4 


30 


03 22 


07 


0894 


30 


033 2 


07 


0894 


30 


C332 


07 


089 4 


30 


0336 


07 


OB 9 4 


30 


033 A 


07 


0B94 


30 


C34E 


07 


OB 94 


30 


03 5E 


07 


0B94 


30 


036A 


07 


0394 


30 


037 2 


07 


OB 94 



4997 
4998 
4999 
5000 
5001 
500 2 
5003 
5004 
5005 
5006 
5007 
500 8 
5009 
5010 
50 1 1 
5012 
50 1 3 
5014 
5015 
5016 
5017 
5018 
5C1<3 
5020 
5021 
5022 
5C23 
502 4 

502 5 
5026 
5027 
5028 
5029 
5030 

503 1 
5032 
5033 
5034 
503 5 
5036 
5037 
503 8 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
505 1 
5052 
5053 
5054 



MVC(7,CARD(72) 1" " ) J 
:= 3CARD116); R3 := 3CARD(72); 



RO; MVIC* ",82(12)); 

4 STEP 4 UNTIL SEGTA8IDX DO 

:= SEGN0(R3); IF RO -.= LOGSEG THEN 
R4 := R4 + i; RO -.= 382(16); IF RO 
CAROOUT; SCAR0C14) := R4; 



B2C8) := RO; ■MVI(S0fB2(8)); 

IF CARDFLAG AND Rl -*= THEN 
RO + BUO); 

R2 := aB2{ 16); 



01<"0 w ,82<7) ).; 

END; 

STM(R0,R4, SAVERS) ; 
MVI(#02,CAR0) ; R2 
SFM(R2,R3,PTLIMS) ; 

RO := CODELENGTH + INSCOUNTER; CODELENGTH := RO J 

MVC<3fCAR0(l),"6SD " J; MVC ( 66, CAR DC 5 ) .CARD* 4 ) ) ; R2 := 3CARDC16); 
R4 := l; SC.4RDC14) := R4; 
RO := LOGSEG; SETMAME; RO := 0; 
RO := INSCOUNTER; Rl := LOGSEG; 
BEGIN Rl := RUNERRSTART; RO := 
END; 

B2(12) := 
FOR R3 := 
BEGIN RO 
BEGIN 

BEGIN 

end; 

RO := SEGN0JR3); SETNAMEj RO := 0; 82(8) := RO; 
MVUERiB2(8)); R2 := 382(16); 
END; 
END; 

CAROOUT; 

MVC(3,CAR0U), M TXT »); MVCC8 , CAROI 5 ) ,CARO< 4) ) ; R3 : = 0; 
WHILE R3 < INSCOUNTER DO 
BEGIN RO := Is SCARO( 14) : = RO; 

CARD(4) := R3; MVK" M »CARD(4)); RO := INSCOUNTER - 
IF RO > 56 THEN RO : = 56; SCARDQO) := RO; 

:= RO-iJ Rl := 3PR0GRAH (R3) ; EXIR4, MVTXT) 5 R3 
:= R2+R0; CAROOUT; 



> P THIGH THEN 



R4 
R2 
END; 

RO 1 = 
BEGIN 



R3; 
:= R3+R0*, 



LOGSEG; IF RO -= THEN 
R3 := RUNERRSTART; 
WHILE P. 3 < RUN ERR PT DO 
BEGIN RO 3= 1; SCARDU4) : = 



RO ; 



RO : = 
MVI!" 

IF RO 

R4 : = 
R2 : = 

END; 

END; 



R3 - RUNERRSTART + INSCOUNTER; CARDC4) := RO; 



M ,CARD(4}); RO := RUNERRPT 



R3; 



> 56 THEN RO := 56; SCARDUO) := RO; 



RO 
R2 



1; EX(R4,MVCAR0); 
RO; CAROOUT; 



R3 := R3 + RO; 



RO : = 

BEGIN 
RO : = 
Rl : = 
RO : = 
BEGIN 
Rl 
END; 
R4 : = 



LOGSEG; IF 



RO --.= THEN 
MVC(3,CARD(1),"RLD " ) ; MVC { 10 ,CAR0(5 ) , CARD (4J) 5 
= l; S82C0) := RO; 582(2) := RO; 

= 8; B2(4) := Rl; MVI ( #0C, 82(4) ) ; R2 := 3B2* 8) ; 
= INSCOUNTER; IF RO > 4096 THEN 

RO := 1; SB2C0) := RO; SS2J2) := RO; 
:= 12; 82(4) ■:= Rl J MV I ( #0C, 82 (4)) ; R2 :« 382(81; 

1 * 

FOR R3 := 4 STEP 4 UNTIL SEGTABIDX DO 
BEGIN RO := 362(8); IF RO > PTHIGH THEN CAROOUT; 

RO J= 1; SB2(2) := RO; RO := CHAIN<R3)5 B2C4J := RO; 

RO s= SEGN01R3); IF RO = LOGSEG THEN 

BEGIN MVI (#0C, 82(4)) ; RO := 1; 

END ELSE 
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30 


3 1 2 


07 


OB 94 


30 


0380 


07 


OB 94 


30 


03 8 C 


07 


OB 94 


3 


03 8 8 


07 


OB 94 


30 


3 94 


07 


OB 94 


30 


039 8 


07 


OB 94 


30 


39 8 


07 


OB 94 


30 


3 A4 


07 


0B94 


30 


03 A E 


07 


0894 


30 


0302 


07 


OB 9 4 



BEGIN MVI(#1C,B2<4)); R4 := R4 + 1; RO : = R4; 

END; 

SB2(0) s= RO; R2 := 3(32(8); 

END; 

CARDOUT; 
EM 1 

M VC ( 3 , CARD { 1 ) , " EN •• ) ; MVC { 10 , C ARD ( 5 ) , C AR 0( 4 ) ) ; 

RO := " »; R2 := R2 + RO ; COMMENT FORCE BLANK COUNT; CARDOUT; 
LM(R0,R4, SAVERS) ; 
end; 



5055 
5056 
505 7 
505 8 

505 9 

506 
50 61 
5062 
5063 
506 4 

SEGMENT 30 NAME = SEG#30 



LENGTH = 0400 BASE REG = 15 



21 


C96C 


07 


OB 94 


21 


C<560 


07 


0B94 


21 


96 


07 


0B94 


21 


G96C 


07 


0B94 


21 


0^60 


07 


0899 


21 


09 60 


07 


0899 


21 


OS £4 


07 


OBAO 


21 


09 64 


07 


OBAO 


21 


09 82 


07 


OBAO 


21 


0986 


07 


OBAO 


21 


09 8 A 


07 


OBAO 


21 


C99A 


07 


OBAO 


21 


09 9 A 


07 


OBAO 


21 


C9A6 


07 


OBAO 


21 


09AE 


07 


OBAO 


21 


09 HA 


07 


OBAO 


21 


09U0 


C7 


OBAO 


21 


09D6 


07 


OBAO 


21 


09 £ A 


07 


OBAO 


21 


C9F4 


07 


OBAO 


21 


09f 8 


07 


OBAO 


21 


09F8 


07 


OBAO 


21 


0AC4 


07 


OBAO 


21 


OAOC 


07 


OBAO 


21 


0A1C 


07 


OBAO 


21 


0A32 


07 


OBAO 


21 


0A3E 


07 


OBAO 


21 


0.A44 


C7 


OBAO 


21 


0A50 


07 


OBAO 


2.1 


0A5 2 


07 


OBAO 


21 


0A5A 


07 


OBAO 


21 


0A6A 


07 


OBAO 


21 


0A72 


07 


OBAO 


21 


0A7E 


07 


OBAO 


21 


0A36 


07 


OBAO 


21 


0A8E 


07 


OBAO 


21 


0A96 


07 


OBAO 


2.1 


OAAO 


07 


OBAO 


21 


OA A 8 


07 


OBAO 


21 


0AB8 


07 


OBAO 


21 


OACC 


07 


OBAO 


21 


0AD4 


07 


OBAO 


21 


0A04 


07 


OBAO 


21 


0AD4 


07 


OBAO 


21 


OAOC 


07 


OBAO 



506 5 
5066 
5067 
5C6 8 
5069 
5 070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 

507 8 
5 7 9 
5080 
5081 
5032 
5033 
5084 
5085 
5086 
5087 
5088 

508 9 

509 
5091 
50 92 
50 93 
50 94 

509 5 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 

510 5 
5106 
510 7 
5108 
5109 



COMMENT 

INTEGE 
ARRAY 
INTEGE 
CGMMEN 
R1:=0; 
FOR R3 
BEGIN 
Rl 
BEC 



* * EXECUTION * * * 



R STACKORG; 
65 LOGICAL 
R SAVERl; 
T SEARCH NA 
R9:=R1; F 
:= STEP 
SHORT INTEG 
:= Oj IC(R1 
JIN COMMENT 
R8 := TYPEI 
IF R8 > R9 
Rl := SIMTY 
R2 := TYPEI 
FOR R6 ' = R 
BEGIN IC(R 
END; 
NUMREFCR8) 



BYTE 
WORKAR 

SAVERl 
METABL 
OR R3 
12 UMT 
ER REC 
,TYPF{ 
RECOR 
NF0{R3 
THEN R 
P £ I NF 
NF0JR3 
3 + 12 S 
Of SIMP 

:= Rl; 



FINISHED; COMMENT USED IN TREE PROCESSING; 
EA SYN MEMIR14); 

:= Rl; 
£ TO BUILD RE CT ABLE IN WORKAR EA; 
:= STEP 4 UNTIL 256 00 WORK ARE A (R3) := RlS 
IL NAMETA8LESIZE DO 

LEN SYN VfORKAREA(B) , NUMREF SYN WORKAREA( 10) I 
R3) ); IF Rl = 4 THEN 
C CLASS; 

) AND #F SHLL 4; COMMENT REC CLASS f * 16 J 
9 1= R8; 

(R3); RECLENCR8) := Rl; Rl s= 0; 
} SHRL 8 AND #FF * 12S + R3; RO : = 05 
TEP 12 UNTIL R2 DO 
LETYPF(R6)); IF RO - 9 THEN Rl 2 = Ri + lj 



END 

END; 

RO : = 

RO : = 

R12 : = 

Rl :■= 

WH I L E 

BEGIN 

R12 

Rl 

RO 

RO 

RO 

Rl 

RO 

RO 

Rl 

Rl 

R2 

RS 

R9 



#FFFFFFFF; WORKAR 
0; L0G5EG := RO; 

TREETOP ; OUTPUT 
REFRECBASE; RUNER 
R2 >= DO 
Rl := MEMCR2) ; T 
:= Rl; COMMENT 
:= Rl + MEM(Rl) + 
:= MEM(Kl+4) +. 7 
:= 3MEMCR1+-8); C 
:= MEMCR 1) - 4; 
:= Rl + MEM(RL) + 
:= 3MEM(Rl+4) ; CO 
: = MEM(Rl) ; CONS 
:= RUNERRSTART; M 
',= 381(12) ; RUNE 
:= o; R4 : = ' 0; R5 
:= STACKTOP-12; S 
:= TREECG) ; RESE 



EAIR9+16) := RO; COMMENT MARK END OF RECTA8; 
SEGTABIDX := RO; RO := 256; INSCOUNTER := RO; 
SEG; R14 := SAVE 14; 
RSTART := Rl; R2 : = TREELINK; 

REEL INK := Rl; Rl := 3MEM( R2+12 ) ; 
ESTABLISH TREE BASE; 

4; COMMENT CONSTANT POINTER &ASE; 
AND #FFF8; LITORG : = RO; 
PTBASE := RO; 
CONSPTTABL : = ROj - 

4; COMMENT CONSTANT TABLE BASE; 
NSTAB := RO; 
TABL 1= RO; 

VCC7,Bn4>»32(4)); COMMENT PROC ID; 
RRPT := Rl; 

:= 0; LPOINTER i= R5; 
TACKORG := R8; RO := SIGN; STACKERS) :» RO; 
T(FINISHED) ; 



COMMENT * * * TREE TRANSVERSAL ALGORITHM * * 
WHILE -.FINISHED DO 
BEGIN RIO := TREECR9); 



PL360 COMPILATION 





21 


OAEO 


07 


OBAO 




21 


OAE8 


07 


OBAO 




21 


OAE3 


07 


OBAO 




21 


OAF4 


C7 


OBAO 




21 


o e G 4 


07 


OBAO 




21 


OBC4 


07 


OBAO 




21 


QBCA 


C7 


OBAO 




21 


OBOA 


07 


OBAO 




21 


OB 12 


07 


OBAO 




21 


OB 12 


07 


OBAO 




21 


o a i £ 


07 


OBAO 




21 


OB IE 


07 


OBAO 




21 


(5 32 6 


07 


OBAO 




21 


002-6 


07 


OBAO 




21 


0B2A 


C7 


OBAO 




21 


0B38 


07 


OBAO 




21 


0B33 


07 


OBAO 




21 


0838 


07 


OBAO 




21 


08 30 


07 


OBAO 




21 


0B46 


07 


OBAO 




21 


0834 


07 


OBAO 




21 


B54 


07 


OBAO 




21 


0B5C 


07 


OBAO 




21 


OB £4 


07 


OBAO 




21 


0B76 


07 


OBAO 




21 


G8S2 


C7 


OBAO 




21 


0B90 


07 


OBAO 




21 


OB SO 


07 


OBAO 




21 


03A2 


07 


OBAO 




21 


0BA2 


07 


OBAO 




21 


QfiA6 


07 


OBAO 




21 


OB 8 6 


G7 


OBAO 




21 


OECO 


07 


OBAO 




21 


QBC4 


07 


OBAO 




21 


03CA 


07 


OBAO 




21 


BC A 


07 


OBAO 




21 


OB 2 


C7 


OBAO 




21 


obca 


07 


OBAO 




21 


03EC 


07 


OBAO 




21 


08 F6 


07 


OBAO 




21 


OBFA 


07 


OBAO 




21 


OCOE 


07 


OBAO 




21 


ocoe 


07 


OBAO 




21 


OCOE 


u7 


OBAO 




21 


CC12 


07 


OBAO 




21 


0C12 


07 


OBAO 




21 


0C22 


07 


OBAO 




21 


0C2C 


07 


OBAO 




21 


0C3 6 


07 


OBAO 




21 


0C48 


07 


OBAO 




21 


0C56 


07 


OBAO 




21 


0C6 2 


07 


OBAO 




21 


0C6E 


07 


OBAO 




21 


0C7C 


07 


OBAO 




21 


0C9Q 


07 


8A0 




21 


0C<3E 


07 


OBAO 




21 


OCAC 


07 


OBAO 




21 


GC8B 


07 


OBAO 
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5110 

51 11 

5112 
5 1 1 3 
5114 
5115 
5 1 1 6 
5117 
5118 

5 1 1 S 
5120 
5121 
5122 
5123 
5124 

512 5 
5126 
512 7 
5123 

512 9 
51-30 
5131 
5132 

513 3 
5134 
5135 
513 6 
5 1 3 7 

513 8 
5130 
5140 
5141 
5142 
5143 
5144 
5145 
5 1 46 

514 7 
5.148 
5149 
5150 
5151 
5152 

515 3 
5154 
5155 
5156 
5157 

5 1 5 8 
5159 

516 
516 1 
5162 
5163 
516 4 
5165 
516<S 
5167 



IF RIO < TERMINALNODE THEN 

BEGIN COMMENT NOM-TERMI NAL, TREE SWITCH IS SIGN BIT; 
R8 := R8 + SSI IE; IF R8 <= INSCOUNTER THEN 
BEGIN R3 := 2 J ERGR; 
END! 

IF RIO < THEN 
BEGIN COMMENT BINARY OPERATOR, TREE SWITCH IS ON; 

STACK(RB) := R9 ; R9 :■= R9 - 4; 
END ELSE 

IF RIO < UNARYCP THEN 
BEGIN COMMENT BINARY OPERATOR, TREE SWITCH IS OFF? 

STACKERS) ■:= R9; R9 := TREEIMR9); 
END ELSE 
BEGIN COMMENT UNARY OPERATOR; 

RIO : = R9 OR SIGN; STACKIR8) : = RIO; R9 := R.9 - 4; 
END; 
END ELSE 

BEGIN COMMENT TERMINAL NODE - INITIATES PROCESSING; 
R7 := RIO; R6 := STACKIRS); R5 '.- STACKP(R8); 
WHILE R6 < AND -iF INI SHED DO 
BEGIN COMMENT ARG2 PROCESSING; 

IC(R3,TREE(R5))S R3 t= R3 AND #7F; COMMENT OPERATOR; 

SAVEL := R5; R5 := LPOINTER; COMMENT LSTACK INDEX; 

IF R3 <= 34 THEN ARG21 ELSE 

IF R3 <= 60 THEN 

BEGIN R3 := R3 - 34; ARG22; 

END ELSE 

BEGIN R3 := R3 - 60; ARG23; 

END; 

LPOINTER := R5; 

R8 := R8 - SS1ZE; IF R8 •= STACKORG THEN SETC FINI SHED) J 

R9 := STACKPCR8); R6 := STACK(R8); R5 := R9; 
END; 

IF P,6 >= THEN 
BEGIN COMMENT ARG1 PROCESSING, STACK NOT EMPTY; 

IC<R3,TREE«R5.U; R3 := R3 AND #7F; COMMENT OPERATOR; 

SAVEL := R5; R5 := LPOINTER; COMMENT LSTACK INDEX; 

ARGl; LPOINTER := R5; R5 := SAVEL; 

RIO := SIGN OR R6; STACKERS) := RIO; 

RIO := TREEIR5); 

IF RIO >= THEN RO r= R5-4 ELSE R9 :* TREEP1R5); 
END; 
END; 
END; 

Rl s= RUNERRPT; RO := INSCOUNTER SHLL 16; BKO) := RO; 

Rl := 381(4); RUNERRPT :■= Rl; RO := Rl; 

Ri := RUNERRSTART; RO := R0-R1; BKO) := RO; 

OUTPUTSEG; IC«R1,TRACEITI; Rl :=R1.AND#F; 

IF Rl i= AND Ri i= 6 THEN 

BEGIN IF Rl ■-= 3 THEN MVH " 1" , CARRCONT ) ; 

MVC(7,GWBUF<4) , "SEGMENT « ) ; MVC (51 ,OWBUF ( 12 ) , OWBUF < 11 I ) ; 

RO := LOGSEG; CVDC R0»PKDEC) ; UNPKC 1 ,7, OWBUF? 13) , PKOEC ) J 

Oi (i*C"«0W8UF(L4)) ; RO := 30WBUFJ WRITE; 

WORK := R2; UNPKi 8,4 ,0W8UF(1 ) f WORK) ; WORK := R4; 

UNPK<8,4,0WBUF{ 10), WORK) ; R5 : = LPOINTER; WORK := R5; 

UNPK<8,4,0WBUFU0) ,WORK) ; T R{ 25 , OWBUFC 1 ) »0TRTABLE( _240) ); 



MVH" '»,0WBUF{9) ) ; MVIC" **,0WBUFU8)) 



write; 
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ALGOL W COMPILER - PASS 3 



69.326 3 00:02 PAGE 91 



21 
21 
21 
21 
21 
21 
21 



cccc 

OCDA 

OCEE 
OCEE 
0CF2 
0CF6 
OCFA 



07 
07 
07 
07 
G7 
07 
07 



OB AG 
OBAO 
OBAO 
3 AC 
OBAO 
OBAO 
OBAO 



5.16 8 
5169 
5170 
51'1 
5172 
5173 
517 4 



MVC(62,0HBUF(1) ,OWBUF); 01 ( "O'S CARRCONTI ', R14 := SAVE14; 
IF Rl -•= 3 THEN WRITEALL; 

E NO ; 

R2 := TREELINK; 
END; 

Rl := SAVER l; 
END; 



SEGMENT 21 NAME 



SEG#21 



LENGTH 



0DA8 BASE REG = 15 



11 0BD8 
11 OBEA 



07 OBAO 
07 OBAO 



5175 
5176 



SAVER1 := Rl; LEVEL2; Rl := SAVER1; 

END; 



SEGMENT 11 NAME 



SEG#11 



LENGTH = OCAS BASE REG = 15 



10 09 E4 
10 C9C6 



07 OBAO 
07 OBAO 



5177 
5178 



SAVER1 := Rl; LEVEL l; Rl := SAVERl; 

END; 



SEGMENT 10 NAME 



SEG#10 



LENGTH * 0A78 BASE REG = 15 



09 CO 54 
09 0966 



07 OBAO 
07 OBAO 



5179 
5130 



SAVER1 := Rl; LEVELO; Rl := SAVER1; 

END; 



SEGMENT 09 NAME = SEG#09 



LENGTH = OAOO BASE REG = 15 



06 


0A1C 


07 


OBAO 


06 


0A1C 


07 


OBAO 


06 


0A2O 


31 


0000 


06 


0A20 


31 


0000 


06 


OA20 


31 


0400 


06 


0A2 


31 


0400 


06 


OA 20 


31 


0400 


06 


0A20 


31 


0400 


06 


0A2 


31 


0400 


06 


0A20 


31 


0400 


06 


0A20 


31 


0400 


06 


0A20 


31 


0400 


06 


0A20 


31 


0400 


06 


0A.20 


31 


0400 


C6 


0A20 


31 


0400 


06 


OA20 


31 


0400 


06 


0A2O 


31 


0400 


06 


0A20 


31 


0400 


06 


0A20 


31 


6400 


06 


0A20 


31 


0400 


0-6 


0A2 


31 


400 


06 


0A28 


31 


400 


06 


0A3 8 


31 


0400 


06 


0A46 


31 


400 


06 


GA54 


31 


0400 


06 


0A6 2 


31 


0400 


06 


OAtZ 


31 


0400 


06 


0A6 


31 


0400 


6 


0A6E 


31 


0400 


06 


0A74 


31 


0400 


06 


A 84 


31 


0400 


06 


0AS2 


31 


040 


06 


OAAO 


31 


0400 



5131 
5182 
5133 
5134 
5185 
5186 
5 187 
5103 
5 1 8 9 
5190 
5191 
5192 
5193 
5194 
5195 
5166 
5107 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
520 8 
5209 
5210 
5211 
5 212 
5213 



SEGMENT BASE R3 ; 
ARRAY 256 INTEGER MNEMONIC 
= { «**'********^'*.-j^*ss5j£SPM 3ALRBCTR3CR *-*******************************»• 



CLR OR XR LR 

* ********** #LD R 

* *#:# * ***** *:* l_ £R 

BAL OCT BC LH 

CL X L 



CR 


AR 


SR 


MR 


DR ALR 


SLR " 


CDR 


ADR 


SDR 


MDR 


DDR AWR 


SWR " 


CER 


AER 


SER 


HER 


OER A UP. 


SUR " 


CH 


AH 


SH 


MH 


****£y[) 


CVB * 


C 


A 


S 


M 


D AL 


SL » 


CD 


AD 


SO 


MD 


DD AH 


SW « 


CE 


AE 


SE 


HE 


DE AU 


SU " 


SLL 


SRA 


SLA 


SRDLSLDLSRDASLDA" 



******** **********:*****:*:**:**>* 



,«LPR LNR LTR LCR NR 
, M LPDRLNDRLTDRLCDRHDR 

,»'LPERLNERLTERLCERHER 

,"STH LA STC IC EX 

, »*ST ************M 

f m STD ****************************LD 

» "STE ****************************LE 

, h************************{3XH BXLESRL 

, "STM TM MVI TS NI CLI 01 XI LM 

., It ******************************** ****:****************************•» 
. *********************** ********************:***********************»» 

^M ****:********■***********■***************************■**#** *********** 

,«'****MVN HVC MV2 NC CLC DC XC ****************TR TRT ED EDHK" 

, *»* *:***:*:*** ** **********:************:************:********* A *** ******!» 

,«»**■** MVO PACKUNPK****#*^****#****ZAP CP AP SP MP DP ********* 

); 

MNBASE := R3; OLDSAVE := R5; 

MVCC63,XFERVECT0R,B1) ; Rl 5= ARUNID; MVC( 31 , HEADIMGC80 I , Bl); 
RO := #24005 Rl := #4800; R3 := A6ETMAIN; BALRtR2*R3); 
Rll := COMSTART; R14 s= RO ; SAVE14 := R14; STACKTOP s= Rlj 
LEVELA; RO :'= 0; 
ERXITJ 

R6 := RO; MVI( M 0"fCARRCONT); MVC I54,0WBUF { 6) , 

" SECONDS IN COMPILATION, XXXXX BYTES OF CODE GENERATED »U 
MVC<70,OWBUF<61) t 0WBUF<60) ) I 

R3 : = AGETTIME; BALRLR2 ,R3 ); Rl := RO — COMMTIME; Rl : = Rl*5/X920j 
CV0(R1»PKDEC) ; UNPK(4,2 f ClWBUF{ 1) ,PKDEC(5) 1 ; 

MVCC2 f nW8UF(0),0WBUF{l) )l MVI < «.», 0W8UF* 3} ) ; 01 { "0" f 0W8UF{ 5 ) } J 
RO 1= CUDELENGTH; CVlMROiPKDECl ; UNPK ( 4, 2 ,OWBIJF{ 31 ) ,PKDEC C5H » 
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06 OAAE 
06 0A8E 
06 0AC6 
Go 0AD4 
06 OACA 



06 GAD A 
06 0AE2 



31 0400 

31 0400 

31 0400 

31 0400 

31 040 



00 0000 
00 000 
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5214 On»0»SOH8UF(35) ); IF COMPACTED THEN MV1 ("**», OWBUF* 61 )) I 

5215 RO := aOWBUF; WRITE; 

5216 RO := SAVE14; Rl J= STACKTOP; R3 := AFREEMAIN; BALR(R2 f R3}; 

5217 P. 13 := OLOSAVE; R15 : = R6; 

521 8 END; 



SEGMENT 31 NAME = SEGOl 
SEGMENT 07 NAME = SEG#07 



LENGTH = 0400 BASE REG = 03 
LENGTH = OBAO BASE REG = 13 



# 



5219 R14 :•= 813(12); LM C RO t R12 , B13( 20 ) ) ; 

5220 END. 



SEGMENT 06 NAME = AWXCMPB1 



LENGTH = 0CA8 BASE REG = 15 






# 



'**<**"* n wiiBKBi im iw u Hwiff u w n w ■ w i m T M i'>«iiii m i ^ «iww i mmiwi'wwiff 



m m m^ m i mm mmrmimiiiimm 



IEF265I 
IEF2S5I 
I EF2€5 I 
IEF285I 
IEF2S5I 
IEF2 85I 
IEF280I 
1EF2« 5 I 
IEF285I 



K 



T123.PLLI3 

VOL SER NOS= SYS 11 , 

SYSUUT 

VOL SER NOS= 

AWXCMPB1 

VOL SER NOS= WIROOl 

0C2,WIR0QL,T0TAPE 

T123.PLLIB 

VOL SER HOS- SYS11 



PASSED 
SYSOUT 
KEPT 

KEPT 



HASP JOB STATISTICS — 5,231 CARDS READ — 

43 I/O CALLS 113 SVC CALLS 



5,364 LINES PRINTED — CARDS 
0.41 MINUTES CPU TM TIME= 



PUNCHED — 0.81 MINUTES EXECUTION TIME 
00:08:43 OATE= 11/22/69 



s* 



